| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
116 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
11 |
INI_P_GROUND |
& Hfld, Pfld, |
|
./model/src/ini_p_ground.F |
181 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = rF(1) |
|
./model/src/ini_p_ground.F |
216 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = psNorm*atm_Po |
|
./model/src/ini_p_ground.F |
229 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
247 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
278 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k |
|
./model/src/ini_p_ground.F |
281 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN |
|
./model/src/ini_p_ground.F |
284 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
288 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
308 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj) .LT. rF(1) ) THEN |
|
./model/src/ini_p_ground.F |
309 |
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) |