| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
179 |
INI_P_GROUND |
phiLoc = Hfld(i,j,bi,bj) - hRef(1) |
|
./model/src/ini_p_ground.F |
180 |
INI_P_GROUND |
IF ( phiLoc .LE. 0. _d 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 |
282 |
INI_P_GROUND |
phiLoc = hRef(2*ks) |
|
./model/src/ini_p_ground.F |
286 |
INI_P_GROUND |
phiLoc = hRef(2*ks) |
|
./model/src/ini_p_ground.F |
290 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = phiLoc |
|
./model/src/ini_p_ground.F |
71 |
INI_P_GROUND |
_RL recip_kappa, PiLoc, zLoc, dzLoc, yLatLoc, phiLoc |