| File |
Line number |
Procedure |
Code |
|
./pkg/icefront/icefront_thermodynamics.F |
108 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
111 |
ICEFRONT_THERMODYNAMICS |
tLoc = SW_TEMP(sLoc,tLoc,pLoc,0.D0) |
|
./pkg/icefront/icefront_thermodynamics.F |
128 |
ICEFRONT_THERMODYNAMICS |
bqe = - eps1*eps6 -sLoc*a0*eps3 + eps3*eps7 + eps2 |
|
./pkg/icefront/icefront_thermodynamics.F |
129 |
ICEFRONT_THERMODYNAMICS |
cqe = -(eps2+eps3*eps7)*sLoc |
|
./pkg/icefront/icefront_thermodynamics.F |
151 |
ICEFRONT_THERMODYNAMICS |
& mass2rUnit * sLoc |
|
./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 |
521 |
OPPS_CALC |
s1 = sLoc |
|
./pkg/opps/opps_calc.F |
527 |
OPPS_CALC |
& sBeta *(sLoc-sRef(kRef)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
123 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
142 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = ( sLoc(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 |
166 |
SHELFICE_THERMODYNAMICS |
& sLoc(I,J) * ( a0 + a1*sqrt(sLoc(I,J)) + a2*sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
186 |
SHELFICE_THERMODYNAMICS |
& * ( cFac*sLoc(I,J) + (1. _d 0-cFac)*convertFW2SaltLoc ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
229 |
SHELFICE_THERMODYNAMICS |
cqe = eps2*sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
237 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: sLoc = ', sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
268 |
SHELFICE_THERMODYNAMICS |
& * ( saltFreeze - sLoc(I,J) ) / saltFreeze |
|
./pkg/shelfice/shelfice_thermodynamics.F |
286 |
SHELFICE_THERMODYNAMICS |
& * ( saltFreeze - sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
63 |
SHELFICE_THERMODYNAMICS |
_RL sLoc(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 |
620 |
FIND_RHO_SCALAR |
s1 = sLoc |
|
./model/src/find_rho.F |
633 |
FIND_RHO_SCALAR |
& sBeta *(sLoc-sRef(1)) |
|
./model/src/ini_eos.F |
315 |
EOS_CHECK |
_RL tLoc(ncheck), ptLoc(ncheck), sLoc(ncheck), pLoc(ncheck) |
|
./model/src/ini_eos.F |
338 |
EOS_CHECK |
& sLoc |
|
./model/src/ini_eos.F |
407 |
EOS_CHECK |
sFld(i,j) = sLoc(kcheck) |
|
./model/src/ini_eos.F |
456 |
EOS_CHECK |
CALL FIND_RHO_SCALAR( tFld(i,j), sLoc(kcheck), |
|
./pkg/down_slope/dwnslp_calc_rho.F |
57 |
DWNSLP_CALC_RHO |
_RL sLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
73 |
DWNSLP_CALC_RHO |
sLoc(i,j) = sFld(i,j,kl,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
86 |
DWNSLP_CALC_RHO |
I tLoc, sLoc, |