| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
185 |
INI_P_GROUND |
zLoc = 0. |
|
./model/src/ini_p_ground.F |
187 |
INI_P_GROUND |
IF (zLoc.GE.0.) THEN |
|
./model/src/ini_p_ground.F |
190 |
INI_P_GROUND |
IF ( Hfld(i,j,bi,bj) .LE. zLoc+dzLoc ) THEN |
|
./model/src/ini_p_ground.F |
193 |
INI_P_GROUND |
& - gravity*(Hfld(i,j,bi,bj)-zLoc)/thetaHvR(k) |
|
./model/src/ini_p_ground.F |
198 |
INI_P_GROUND |
zLoc = -1. |
|
./model/src/ini_p_ground.F |
200 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
|
./model/src/ini_p_ground.F |
204 |
INI_P_GROUND |
IF (zLoc.GE.0.) THEN |
|
./model/src/ini_p_ground.F |
211 |
INI_P_GROUND |
& ' Zloc(lowest P=', pLevHvR(1+nLevHvR),' )=',zLoc |
|
./model/src/ini_p_ground.F |
306 |
INI_P_GROUND |
zLoc = 0. |
|
./model/src/ini_p_ground.F |
336 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
|
./model/src/ini_p_ground.F |
340 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
|
./model/src/ini_p_ground.F |
343 |
INI_P_GROUND |
phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj)) |
|
./model/src/ini_p_ground.F |
345 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = zLoc |
|
./model/src/ini_p_ground.F |
71 |
INI_P_GROUND |
_RL recip_kappa, PiLoc, zLoc, dzLoc, yLatLoc, phiLoc |