| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
11 |
INI_P_GROUND |
& Hfld, Pfld, |
|
./model/src/ini_p_ground.F |
160 |
INI_P_GROUND |
IF (Hfld(i,j,bi,bj).GE.phiRef(K)) Ks = K |
|
./model/src/ini_p_ground.F |
163 |
INI_P_GROUND |
& (Hfld(i,j,bi,bj)-phiRef(Ks))/(phiRef(Ks+1)-phiRef(Ks)) |
|
./model/src/ini_p_ground.F |
230 |
INI_P_GROUND |
IF ( Hfld(i,j,bi,bj) .LE. 0. _d 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 |
261 |
INI_P_GROUND |
& 'INI_P_GROUND: Hfld=', Hfld(i,j,bi,bj), ' exceeds', |
|
./model/src/ini_p_ground.F |
334 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = phiLoc |
|
./model/src/ini_p_ground.F |
336 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = 0. |
|
./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 |
40 |
INI_P_GROUND |
_RS Hfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |