| File |
Line number |
Procedure |
Code |
|
./model/src/diags_phi_rlow.F |
63 |
DIAGS_PHI_RLOW |
_RL ddRloc, ratioRm, ratioRp |
|
./model/src/diags_phi_rlow.F |
89 |
DIAGS_PHI_RLOW |
ratioRm = one |
|
./model/src/diags_phi_rlow.F |
91 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = half*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
99 |
DIAGS_PHI_RLOW |
& +( MIN(zero,ddRloc)*ratioRm |
|
./model/src/ini_p_ground.F |
196 |
INI_P_GROUND |
ratioRm(k) = 1. _d 0 |
|
./model/src/ini_p_ground.F |
198 |
INI_P_GROUND |
IF (k.GT.1 ) ratioRm(k) = 0.5 _d 0*drC(k)/(rF(k)-rC(k)) |
|
./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 |
362 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRm(k) |
|
./model/src/ini_p_ground.F |
73 |
INI_P_GROUND |
_RL ratioRm(Nr), ratioRp(Nr) |