| File |
Line number |
Procedure |
Code |
|
./pkg/icefront/icefront_thermodynamics.F |
107 |
ICEFRONT_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
111 |
ICEFRONT_THERMODYNAMICS |
tLoc = SW_TEMP(sLoc,tLoc,pLoc,0.D0) |
|
./pkg/icefront/icefront_thermodynamics.F |
124 |
ICEFRONT_THERMODYNAMICS |
eps6 = eps4 - tLoc |
|
./pkg/icefront/icefront_thermodynamics.F |
141 |
ICEFRONT_THERMODYNAMICS |
& eps1 * ( thetaFreeze - tLoc ) / |
|
./pkg/icefront/icefront_thermodynamics.F |
146 |
ICEFRONT_THERMODYNAMICS |
& FreshWaterFlux(I,J) ) * ( thetaFreeze - tLoc ) |
|
./pkg/icefront/icefront_thermodynamics.F |
62 |
ICEFRONT_THERMODYNAMICS |
_RL tLoc, sLoc, pLoc |
|
./pkg/opps/opps_calc.F |
442 |
OPPS_CALC |
_RL FUNCTION STATE1(sLoc,tLoc,I,J,KREF,bi,bj,mythid) |
|
./pkg/opps/opps_calc.F |
466 |
OPPS_CALC |
_RL tLoc,sLoc |
|
./pkg/opps/opps_calc.F |
516 |
OPPS_CALC |
t1 = tLoc |
|
./pkg/opps/opps_calc.F |
528 |
OPPS_CALC |
& - tAlpha*(tLoc-tRef(KREF)) ) + dRho |
|
./pkg/shelfice/shelfice_thermodynamics.F |
122 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
139 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
154 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),0.D0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
170 |
SHELFICE_THERMODYNAMICS |
& SHELFICEheatTransCoeff * ( tLoc(I,J) - thetaFreeze ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
183 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
223 |
SHELFICE_THERMODYNAMICS |
eps6 = eps4 - tLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
236 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: tLoc = ', tLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
275 |
SHELFICE_THERMODYNAMICS |
& - HeatCapacity_Cp*( thetaFreeze - rFac*tLoc(I,J) ) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
282 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
62 |
SHELFICE_THERMODYNAMICS |
_RL tLoc(1:sNx,1:sNy) |
|
./model/src/find_rho.F |
568 |
FIND_RHO_SCALAR |
I tLoc, sLoc, pLoc, |
|
./model/src/find_rho.F |
589 |
FIND_RHO_SCALAR |
_RL tLoc, sLoc, pLoc |
|
./model/src/find_rho.F |
615 |
FIND_RHO_SCALAR |
t1 = tLoc |
|
./model/src/find_rho.F |
634 |
FIND_RHO_SCALAR |
& -tAlpha*(tLoc-tRef(1)) |
|
./model/src/ini_eos.F |
315 |
EOS_CHECK |
_RL tLoc(ncheck), ptLoc(ncheck), sLoc(ncheck), pLoc(ncheck) |
|
./model/src/ini_eos.F |
322 |
EOS_CHECK |
DATA tLoc |
|
./model/src/ini_eos.F |
405 |
EOS_CHECK |
tFld(i,j) = tLoc(kcheck) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
56 |
DWNSLP_CALC_RHO |
_RL tLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
72 |
DWNSLP_CALC_RHO |
tLoc(i,j) = tFld(i,j,kl,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
86 |
DWNSLP_CALC_RHO |
I tLoc, sLoc, |