| 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 |
74 |
FRAZIL_CALC_RHS |
tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
90 |
FRAZIL_CALC_RHS |
IF (tLoc .LT. Tfreezing) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
113 |
ICEFRONT_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
117 |
ICEFRONT_THERMODYNAMICS |
tLoc = SW_TEMP(sLoc,tLoc,pLoc,0.D0) |
|
./pkg/icefront/icefront_thermodynamics.F |
130 |
ICEFRONT_THERMODYNAMICS |
eps6 = eps4 - tLoc |
|
./pkg/icefront/icefront_thermodynamics.F |
147 |
ICEFRONT_THERMODYNAMICS |
& eps1 * ( thetaFreeze - tLoc ) / |
|
./pkg/icefront/icefront_thermodynamics.F |
152 |
ICEFRONT_THERMODYNAMICS |
& FreshWaterFlux(I,J) ) * ( thetaFreeze - tLoc ) |
|
./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 |
1127 |
FIND_RHO_SCALAR |
ct = tLoc |
|
./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 |
922 |
FIND_RHO_SCALAR |
t1 = tLoc |
|
./model/src/find_rho.F |
941 |
FIND_RHO_SCALAR |
& -tAlpha*(tLoc-tRef(1)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
263 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
318 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = ( tLoc(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 |
409 |
SHELFICE_THERMODYNAMICS |
& * ( tLoc(I,J) - thetaFreeze ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
425 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
456 |
SHELFICE_THERMODYNAMICS |
IF ( tLoc(I,J) .GT. thetaFreeze ) fwflxFac = dFac |
|
./pkg/shelfice/shelfice_thermodynamics.F |
477 |
SHELFICE_THERMODYNAMICS |
eps6 = eps4 - tLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
497 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: tLoc = ', tLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
547 |
SHELFICE_THERMODYNAMICS |
& - HeatCapacity_Cp*( thetaFreeze - rFac*tLoc(I,J) ) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
553 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
87 |
SHELFICE_THERMODYNAMICS |
_RL tLoc(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 |
376 |
EOS_CHECK |
DATA tLoc |
|
./model/src/ini_eos.F |
481 |
EOS_CHECK |
tFld(i,j) = tLoc(kcheck) |
|
./model/src/set_ref_state.F |
290 |
SET_REF_STATE |
tLoc(k) = thetaConst |
|
./model/src/set_ref_state.F |
295 |
SET_REF_STATE |
tLoc(k) = tRef(k) |
|
./model/src/set_ref_state.F |
305 |
SET_REF_STATE |
phiRef(k+1) = phiRef(k)+ddPI*tLoc(ks) |
|
./model/src/set_ref_state.F |
314 |
SET_REF_STATE |
phiRef(2*k) = phiRef(1) + ddPI*tLoc(k) |
|
./model/src/set_ref_state.F |
318 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + ddPI*0.5*tLoc(k) |
|
./model/src/set_ref_state.F |
320 |
SET_REF_STATE |
& + ddPI*0.5*(tLoc(k)+tLoc(k+1)) |
|
./model/src/set_ref_state.F |
325 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k) + ddPI*tLoc(k) |
|
./model/src/set_ref_state.F |
43 |
SET_REF_STATE |
_RL rhoRef(Nr), tLoc(Nr) |
|
./pkg/bbl/bbl_calc_rhs.F |
119 |
BBL_CALC_RHS |
bbl_theta(i,j,bi,bj) = tLoc(i,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
180 |
BBL_CALC_RHS |
Theta_r = tLoc(i,r) |
|
./pkg/bbl/bbl_calc_rhs.F |
215 |
BBL_CALC_RHS |
bbl_theta(i,d,bi,bj) = tLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
282 |
BBL_CALC_RHS |
Theta_r = tLoc(i,r) |
|
./pkg/bbl/bbl_calc_rhs.F |
317 |
BBL_CALC_RHS |
bbl_theta(i,d,bi,bj) = tLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
385 |
BBL_CALC_RHS |
Theta_r = tLoc(r,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
420 |
BBL_CALC_RHS |
bbl_theta(d,j,bi,bj) = tLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
487 |
BBL_CALC_RHS |
Theta_r = tLoc(r,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
522 |
BBL_CALC_RHS |
bbl_theta(d,j,bi,bj) = tLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
90 |
BBL_CALC_RHS |
tLoc(i,j) = theta(i,j,kBot,bi,bj) |
|
./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 |
79 |
DWNSLP_CALC_RHO |
I tLoc, sLoc, |