| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
231 |
INI_P_GROUND |
findPoSurf = .TRUE. |
|
./model/src/ini_p_ground.F |
233 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
235 |
INI_P_GROUND |
findPoSurf = .FALSE. |
|
./model/src/ini_p_ground.F |
239 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rMidKp1 ) THEN |
|
./model/src/ini_p_ground.F |
241 |
INI_P_GROUND |
findPoSurf = .FALSE. |
|
./model/src/ini_p_ground.F |
244 |
INI_P_GROUND |
IF ( findPoSurf ) |
|
./model/src/ini_p_ground.F |
315 |
INI_P_GROUND |
findPoSurf = .TRUE. |
|
./model/src/ini_p_ground.F |
317 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
319 |
INI_P_GROUND |
findPoSurf = .FALSE. |
|
./model/src/ini_p_ground.F |
321 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rF(k+1) ) THEN |
|
./model/src/ini_p_ground.F |
323 |
INI_P_GROUND |
findPoSurf = .FALSE. |
|
./model/src/ini_p_ground.F |
65 |
INI_P_GROUND |
LOGICAL findPoSurf |