| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
236 |
INI_P_GROUND |
zLoc = 0. |
|
./model/src/ini_p_ground.F |
238 |
INI_P_GROUND |
IF (zLoc.GE.0.) THEN |
|
./model/src/ini_p_ground.F |
241 |
INI_P_GROUND |
IF ( Hfld(i,j,bi,bj) .LE. zLoc+dzLoc ) THEN |
|
./model/src/ini_p_ground.F |
244 |
INI_P_GROUND |
& - gravity*(Hfld(i,j,bi,bj)-zLoc)/thetaHvR(k) |
|
./model/src/ini_p_ground.F |
249 |
INI_P_GROUND |
zLoc = -1. |
|
./model/src/ini_p_ground.F |
251 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
|
./model/src/ini_p_ground.F |
255 |
INI_P_GROUND |
IF (zLoc.GE.0.) THEN |
|
./model/src/ini_p_ground.F |
262 |
INI_P_GROUND |
& ' Zloc(lowest P=', pLevHvR(1+nLevHvR),' )=',zLoc |
|
./model/src/ini_p_ground.F |
351 |
INI_P_GROUND |
zLoc = 0. |
|
./model/src/ini_p_ground.F |
381 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
|
./model/src/ini_p_ground.F |
385 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
|
./model/src/ini_p_ground.F |
388 |
INI_P_GROUND |
phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj)) |
|
./model/src/ini_p_ground.F |
390 |
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 |