File |
Line number |
Procedure |
Code |
./pkg/gmredi/submeso_calc_psi.F |
105 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) ) |
./pkg/gmredi/submeso_calc_psi.F |
106 |
SUBMESO_CALC_PSI |
dBuoyX_Hu(i,j) = dBuoyX_Hu(i,j) + sigmaX(i,j,k)*dzLoc |
./pkg/gmredi/submeso_calc_psi.F |
111 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) ) |
./pkg/gmredi/submeso_calc_psi.F |
112 |
SUBMESO_CALC_PSI |
dBuoyY_Hv(i,j) = dBuoyY_Hv(i,j) + sigmaY(i,j,k)*dzLoc |
./pkg/gmredi/submeso_calc_psi.F |
119 |
SUBMESO_CALC_PSI |
dzLoc = 0. |
./pkg/gmredi/submeso_calc_psi.F |
120 |
SUBMESO_CALC_PSI |
IF ( locMixLayer(i,j)+rC(k-1).GE.0. ) dzLoc = drC(k) |
./pkg/gmredi/submeso_calc_psi.F |
122 |
SUBMESO_CALC_PSI |
& + dzLoc*MAX( -sigmaR(i,j,k), 0. _d 0 ) |
./pkg/gmredi/submeso_calc_psi.F |
60 |
SUBMESO_CALC_PSI |
_RL dzLoc |
./model/src/ini_p_ground.F |
190 |
INI_P_GROUND |
dzLoc = dPiHvR(k)*thetaHvR(k)*recip_gravity |
./model/src/ini_p_ground.F |
191 |
INI_P_GROUND |
IF ( phiLoc .LE. zLoc+dzLoc ) THEN |
./model/src/ini_p_ground.F |
201 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
./model/src/ini_p_ground.F |
336 |
INI_P_GROUND |
dzLoc = dPiHvR(k)*thetaHvR(k)*recip_gravity |
./model/src/ini_p_ground.F |
337 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
./model/src/ini_p_ground.F |
339 |
INI_P_GROUND |
dzLoc = ( PiHvR(kLev)-atm_Cp*(psNorm**atm_kappa) ) |
./model/src/ini_p_ground.F |
341 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
./model/src/ini_p_ground.F |
71 |
INI_P_GROUND |
_RL recip_kappa, PiLoc, zLoc, dzLoc, yLatLoc, phiLoc |