| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
281 |
INI_P_GROUND |
findPoSurf = .TRUE. |
|
./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 |
285 |
INI_P_GROUND |
findPoSurf = .FALSE. |
|
./model/src/ini_p_ground.F |
289 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rMidKp1 ) THEN |
|
./model/src/ini_p_ground.F |
291 |
INI_P_GROUND |
findPoSurf = .FALSE. |
|
./model/src/ini_p_ground.F |
294 |
INI_P_GROUND |
IF ( findPoSurf ) |
|
./model/src/ini_p_ground.F |
359 |
INI_P_GROUND |
findPoSurf = .TRUE. |
|
./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 |
363 |
INI_P_GROUND |
findPoSurf = .FALSE. |
|
./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 |
367 |
INI_P_GROUND |
findPoSurf = .FALSE. |
|
./model/src/ini_p_ground.F |
65 |
INI_P_GROUND |
LOGICAL findPoSurf |