| File |
Line number |
Procedure |
Code |
|
./pkg/frazil/frazil_calc_rhs.F |
43 |
FRAZIL_CALC_RHS |
_RL Tfreezing, Tresid, pLoc, sLoc, tLoc |
|
./pkg/frazil/frazil_calc_rhs.F |
73 |
FRAZIL_CALC_RHS |
sLoc = MAX(salt(i,j,k,bi,bj), 0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
74 |
FRAZIL_CALC_RHS |
tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
88 |
FRAZIL_CALC_RHS |
Tfreezing = (a0 + a1*sqrt(sLoc) + a2*sLoc) * sLoc + b*pLoc |
|
./pkg/icefront/icefront_thermodynamics.F |
114 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
117 |
ICEFRONT_THERMODYNAMICS |
tLoc = SW_TEMP(sLoc,tLoc,pLoc,0.D0) |
|
./pkg/icefront/icefront_thermodynamics.F |
134 |
ICEFRONT_THERMODYNAMICS |
bqe = - eps1*eps6 -sLoc*a0*eps3 + eps3*eps7 + eps2 |
|
./pkg/icefront/icefront_thermodynamics.F |
135 |
ICEFRONT_THERMODYNAMICS |
cqe = -(eps2+eps3*eps7)*sLoc |
|
./pkg/icefront/icefront_thermodynamics.F |
157 |
ICEFRONT_THERMODYNAMICS |
& mass2rUnit * sLoc |
|
./pkg/icefront/icefront_thermodynamics.F |
62 |
ICEFRONT_THERMODYNAMICS |
_RL tLoc, sLoc, pLoc |
|
./pkg/opps/opps_calc.F |
440 |
OPPS_CALC |
_RL FUNCTION STATE1( sLoc, tLoc, i, j, kRef, bi, bj, myThid ) |
|
./pkg/opps/opps_calc.F |
464 |
OPPS_CALC |
_RL tLoc, sLoc |
|
./pkg/opps/opps_calc.F |
495 |
OPPS_CALC |
CALL FIND_RHO_SCALAR( tLoc, sLoc, pLoc, rhoLoc, myThid ) |
|
./model/src/find_rho.F |
1106 |
FIND_RHO_SCALAR |
sa = sLoc |
|
./model/src/find_rho.F |
813 |
FIND_RHO_SCALAR |
I tLoc, sLoc, pLoc, |
|
./model/src/find_rho.F |
834 |
FIND_RHO_SCALAR |
_RL tLoc, sLoc, pLoc |
|
./model/src/find_rho.F |
905 |
FIND_RHO_SCALAR |
s1 = sLoc |
|
./model/src/find_rho.F |
918 |
FIND_RHO_SCALAR |
& sBeta *(sLoc-sRef(1)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
241 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
266 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
289 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
291 |
SHELFICE_THERMODYNAMICS |
CALL SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL,tLoc(I,J)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
346 |
SHELFICE_THERMODYNAMICS |
& sLoc(I,J) * ( a0 + a1*sqrt(sLoc(I,J)) + a2*sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
370 |
SHELFICE_THERMODYNAMICS |
& * ( cFac*sLoc(I,J) + (1. _d 0-cFac)*convertFW2SaltLoc ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
396 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = a0*sLoc(I,J)+c0+b*pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
431 |
SHELFICE_THERMODYNAMICS |
& + eps8*( a0*sLoc(I,J) - eps7 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
432 |
SHELFICE_THERMODYNAMICS |
cqe = ( eps2 + eps8*eps7 )*sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
440 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: sLoc = ', sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
477 |
SHELFICE_THERMODYNAMICS |
& * ( 1. _d 0 - sLoc(I,J) / saltFreeze ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
499 |
SHELFICE_THERMODYNAMICS |
& * ( saltFreeze - sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
80 |
SHELFICE_THERMODYNAMICS |
_RL sLoc(1:sNx,1:sNy) |
|
./model/src/ini_eos.F |
369 |
EOS_CHECK |
_RL tLoc(ncheck), ptLoc(ncheck), sLoc(ncheck), pLoc(ncheck) |
|
./model/src/ini_eos.F |
400 |
EOS_CHECK |
& sLoc |
|
./model/src/ini_eos.F |
483 |
EOS_CHECK |
sFld(i,j) = sLoc(kcheck) |
|
./model/src/ini_eos.F |
538 |
EOS_CHECK |
CALL FIND_RHO_SCALAR( tFld(i,j), sLoc(kcheck), |
|
./pkg/bbl/bbl_calc_rhs.F |
120 |
BBL_CALC_RHS |
bbl_salt (i,j,bi,bj) = sLoc(i,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
181 |
BBL_CALC_RHS |
Salt_r = sLoc(i,r) |
|
./pkg/bbl/bbl_calc_rhs.F |
216 |
BBL_CALC_RHS |
bbl_salt (i,d,bi,bj) = sLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
283 |
BBL_CALC_RHS |
Salt_r = sLoc(i,r) |
|
./pkg/bbl/bbl_calc_rhs.F |
318 |
BBL_CALC_RHS |
bbl_salt (i,d,bi,bj) = sLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
386 |
BBL_CALC_RHS |
Salt_r = sLoc(r,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
421 |
BBL_CALC_RHS |
bbl_salt (d,j,bi,bj) = sLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
488 |
BBL_CALC_RHS |
Salt_r = sLoc(r,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
523 |
BBL_CALC_RHS |
bbl_salt (d,j,bi,bj) = sLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
91 |
BBL_CALC_RHS |
sLoc(i,j) = salt (i,j,kBot,bi,bj) |
|
./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, |