| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
162 |
INI_P_GROUND |
Po_surf = rHalf(Ks) + (rHalf(Ks+1)-rHalf(Ks))* |
|
./model/src/ini_p_ground.F |
167 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
279 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
280 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
283 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
284 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRm(k) |
|
./model/src/ini_p_ground.F |
289 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rMidKp1 ) THEN |
|
./model/src/ini_p_ground.F |
290 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRp(k) |
|
./model/src/ini_p_ground.F |
297 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = Po_surf |
|
./model/src/ini_p_ground.F |
353 |
INI_P_GROUND |
Po_surf = Pfld(i,j,bi,bj) |
|
./model/src/ini_p_ground.F |
358 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
361 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
362 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRm(k) |
|
./model/src/ini_p_ground.F |
365 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rF(k+1) ) THEN |
|
./model/src/ini_p_ground.F |
366 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRp(k) |
|
./model/src/ini_p_ground.F |
373 |
INI_P_GROUND |
psNorm = Po_surf/atm_Po |
|
./model/src/ini_p_ground.F |
63 |
INI_P_GROUND |
_RL ddPI, Po_surf |