| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
186 |
INI_P_GROUND |
zLoc = 0. |
|
./model/src/ini_p_ground.F |
188 |
INI_P_GROUND |
IF (zLoc.GE.0.) THEN |
|
./model/src/ini_p_ground.F |
191 |
INI_P_GROUND |
IF ( phiLoc .LE. zLoc+dzLoc ) THEN |
|
./model/src/ini_p_ground.F |
194 |
INI_P_GROUND |
& - gravity*( phiLoc - zLoc )/thetaHvR(k) |
|
./model/src/ini_p_ground.F |
199 |
INI_P_GROUND |
zLoc = -1. |
|
./model/src/ini_p_ground.F |
201 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
|
./model/src/ini_p_ground.F |
205 |
INI_P_GROUND |
IF (zLoc.GE.0.) THEN |
|
./model/src/ini_p_ground.F |
212 |
INI_P_GROUND |
& ' Zloc(lowest P=', pLevHvR(1+nLevHvR),' )=',zLoc |
|
./model/src/ini_p_ground.F |
307 |
INI_P_GROUND |
zLoc = hRef(1) |
|
./model/src/ini_p_ground.F |
337 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
|
./model/src/ini_p_ground.F |
341 |
INI_P_GROUND |
zLoc = zLoc + dzLoc |
|
./model/src/ini_p_ground.F |
344 |
INI_P_GROUND |
phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj)) |
|
./model/src/ini_p_ground.F |
346 |
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 |