| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
11 |
INI_P_GROUND |
& Hfld, Pfld, |
|
./model/src/ini_p_ground.F |
167 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
231 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Ro_SeaLevel |
|
./model/src/ini_p_ground.F |
266 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = psNorm*atm_Po |
|
./model/src/ini_p_ground.F |
279 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
297 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
325 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN |
|
./model/src/ini_p_ground.F |
328 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
332 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
352 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj) .LT. Ro_SeaLevel) THEN |
|
./model/src/ini_p_ground.F |
353 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
41 |
INI_P_GROUND |
_RS Pfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |