| 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 |
72 |
FRAZIL_CALC_RHS |
pLoc = ABS(RC(k)) |
|
./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 |
112 |
ICEFRONT_THERMODYNAMICS |
pLoc = ABS(rC(k)) |
|
./pkg/icefront/icefront_thermodynamics.F |
117 |
ICEFRONT_THERMODYNAMICS |
tLoc = SW_TEMP(sLoc,tLoc,pLoc,0.D0) |
|
./pkg/icefront/icefront_thermodynamics.F |
122 |
ICEFRONT_THERMODYNAMICS |
pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
125 |
ICEFRONT_THERMODYNAMICS |
& (R_icefront(I,J,bi,bj)-pLoc) |
|
./pkg/icefront/icefront_thermodynamics.F |
129 |
ICEFRONT_THERMODYNAMICS |
eps4 = b*pLoc + c0 |
|
./pkg/icefront/icefront_thermodynamics.F |
62 |
ICEFRONT_THERMODYNAMICS |
_RL tLoc, sLoc, pLoc |
|
./pkg/opps/opps_calc.F |
472 |
OPPS_CALC |
_RL pLoc |
|
./pkg/opps/opps_calc.F |
482 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
494 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
501 |
OPPS_CALC |
pLoc = pRef4EOS(kRef)*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
503 |
OPPS_CALC |
pLoc = rhoConst*phiRef(2*kRef)*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
507 |
OPPS_CALC |
pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
510 |
OPPS_CALC |
CALL FIND_RHO_SCALAR( tLoc, sLoc, pLoc, rhoLoc, myThid ) |
|
./model/src/find_rho.F |
1098 |
FIND_RHO_SCALAR |
p1 = pLoc*SItodBar |
|
./model/src/find_rho.F |
1135 |
FIND_RHO_SCALAR |
p = pLoc*SItodBar |
|
./model/src/find_rho.F |
1166 |
FIND_RHO_SCALAR |
facPres = ( pLoc/atm_Po )**oneMinusKap |
|
./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 |
965 |
FIND_RHO_SCALAR |
p1 = pLoc*SItoBar |
|
./pkg/shelfice/shelfice_thermodynamics.F |
261 |
SHELFICE_THERMODYNAMICS |
pLoc(I,J) = ABS(R_shelfIce(I,J,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 |
357 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
401 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
405 |
SHELFICE_THERMODYNAMICS |
& + b*pLoc(I,J) + c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
451 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
454 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = a0*sLoc(I,J)+c0+b*pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
475 |
SHELFICE_THERMODYNAMICS |
eps3 = eps3a/pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
476 |
SHELFICE_THERMODYNAMICS |
eps4 = b*pLoc(I,J) + c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
487 |
SHELFICE_THERMODYNAMICS |
& + ( c0 - SHELFICEthetaSurface )/pLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
496 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: pLoc = ', pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
89 |
SHELFICE_THERMODYNAMICS |
_RL pLoc(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 |
411 |
EOS_CHECK |
& pLoc |
|
./model/src/ini_eos.F |
474 |
EOS_CHECK |
rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity |
|
./model/src/ini_eos.F |
476 |
EOS_CHECK |
rC(k) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
484 |
EOS_CHECK |
pFld(i,j) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
528 |
EOS_CHECK |
& pLoc(kcheck)*SItoBar, ' bar)', |
|
./model/src/ini_eos.F |
539 |
EOS_CHECK |
& pLoc(kcheck), rhoLoc(i,j), myThid ) |
|
./model/src/ini_linear_phisurf.F |
116 |
INI_LINEAR_PHISURF |
pLoc = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
121 |
INI_LINEAR_PHISURF |
I pLoc, |
|
./model/src/ini_linear_phisurf.F |
126 |
INI_LINEAR_PHISURF |
I tRef(k), sRef(k), pLoc, |
|
./model/src/ini_linear_phisurf.F |
50 |
INI_LINEAR_PHISURF |
_RL pLoc, rhoLoc |
|
./model/src/set_ref_state.F |
170 |
SET_REF_STATE |
pLoc = pRef4EOS(k) |
|
./model/src/set_ref_state.F |
172 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
191 |
SET_REF_STATE |
pLoc = pRefLocF(k) |
|
./model/src/set_ref_state.F |
193 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
196 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
214 |
SET_REF_STATE |
pLoc = rC(k) |
|
./model/src/set_ref_state.F |
216 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
223 |
SET_REF_STATE |
pLoc = rF(k) |
|
./model/src/set_ref_state.F |
225 |
SET_REF_STATE |
I tRef(k-1), sRef(k-1), pLoc, |
|
./model/src/set_ref_state.F |
228 |
SET_REF_STATE |
I tRef(k), sRef(k), pLoc, |
|
./model/src/set_ref_state.F |
44 |
SET_REF_STATE |
_RL pLoc, rhoUp, rhoDw, rhoLoc |