| File |
Line number |
Procedure |
Code |
|
./model/src/diags_phi_rlow.F |
100 |
DIAGS_PHI_RLOW |
& +MAX(zero,ddRloc)*ratioRp |
|
./model/src/diags_phi_rlow.F |
63 |
DIAGS_PHI_RLOW |
_RL ddRloc, ratioRm, ratioRp |
|
./model/src/diags_phi_rlow.F |
90 |
DIAGS_PHI_RLOW |
ratioRp = one |
|
./model/src/diags_phi_rlow.F |
92 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = half*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/ini_p_ground.F |
197 |
INI_P_GROUND |
ratioRp(k) = 1. _d 0 |
|
./model/src/ini_p_ground.F |
199 |
INI_P_GROUND |
IF (k.LT.Nr) ratioRp(k) = 0.5 _d 0*drC(k+1)/(rC(k)-rF(k+1)) |
|
./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 |
366 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRp(k) |
|
./model/src/ini_p_ground.F |
73 |
INI_P_GROUND |
_RL ratioRm(Nr), ratioRp(Nr) |