| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
109 |
INI_P_GROUND |
IF (Hfld(i,j,bi,bj).GE.hRef(K)) Ks = K |
|
./model/src/ini_p_ground.F |
112 |
INI_P_GROUND |
& (Hfld(i,j,bi,bj)-hRef(Ks))/(hRef(Ks+1)-hRef(Ks)) |
|
./model/src/ini_p_ground.F |
11 |
INI_P_GROUND |
& Hfld, Pfld, |
|
./model/src/ini_p_ground.F |
179 |
INI_P_GROUND |
IF ( Hfld(i,j,bi,bj) .LE. 0. _d 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 |
210 |
INI_P_GROUND |
& 'INI_P_GROUND: Hfld=', Hfld(i,j,bi,bj), ' exceeds', |
|
./model/src/ini_p_ground.F |
289 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = phiLoc |
|
./model/src/ini_p_ground.F |
291 |
INI_P_GROUND |
Hfld(i,j,bi,bj) = 0. |
|
./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 |
40 |
INI_P_GROUND |
_RS Hfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |