| 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 |
467 |
OPPS_CALC |
_RL tLoc, sLoc |
|
./pkg/opps/opps_calc.F |
510 |
OPPS_CALC |
CALL FIND_RHO_SCALAR( tLoc, sLoc, pLoc, rhoLoc, myThid ) |
|
./model/src/find_rho.F |
1128 |
FIND_RHO_SCALAR |
sa = sLoc |
|
./model/src/find_rho.F |
1167 |
FIND_RHO_SCALAR |
theta_v = tLoc*( sLoc*atm_Rq + oneRL ) |
|
./model/src/find_rho.F |
834 |
FIND_RHO_SCALAR |
I tLoc, sLoc, pLoc, |
|
./model/src/find_rho.F |
855 |
FIND_RHO_SCALAR |
_RL tLoc, sLoc, pLoc |
|
./model/src/find_rho.F |
927 |
FIND_RHO_SCALAR |
s1 = sLoc |
|
./model/src/find_rho.F |
940 |
FIND_RHO_SCALAR |
& sBeta *(sLoc-sRef(1)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
264 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
321 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
345 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
347 |
SHELFICE_THERMODYNAMICS |
CALL SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL,tLoc(I,J)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
404 |
SHELFICE_THERMODYNAMICS |
& sLoc(I,J) * ( a0 + a1*sqrt(sLoc(I,J)) + a2*sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
428 |
SHELFICE_THERMODYNAMICS |
& * ( cFac*sLoc(I,J) + (1. _d 0-cFac)*convertFW2SaltLoc ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
454 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = a0*sLoc(I,J)+c0+b*pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
489 |
SHELFICE_THERMODYNAMICS |
& + eps8*( a0*sLoc(I,J) - eps7 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
490 |
SHELFICE_THERMODYNAMICS |
cqe = ( eps2 + eps8*eps7 )*sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
498 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: sLoc = ', sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
535 |
SHELFICE_THERMODYNAMICS |
& * ( 1. _d 0 - sLoc(I,J) / saltFreeze ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
557 |
SHELFICE_THERMODYNAMICS |
& * ( saltFreeze - sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
88 |
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 |
79 |
DWNSLP_CALC_RHO |
I tLoc, sLoc, |