| File |
Line number |
Procedure |
Code |
|
./model/src/diags_phi_rlow.F |
100 |
DIAGS_PHI_RLOW |
ratioRp = oneRL |
|
./model/src/diags_phi_rlow.F |
102 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = halfRL*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/diags_phi_rlow.F |
104 |
DIAGS_PHI_RLOW |
ratioRp = ratioRp*gravFacF(k+1) |
|
./model/src/diags_phi_rlow.F |
112 |
DIAGS_PHI_RLOW |
& +MAX(zeroRL,ddRloc)*ratioRp |
|
./model/src/diags_phi_rlow.F |
62 |
DIAGS_PHI_RLOW |
_RL ddRloc, ratioRm, ratioRp |
|
./model/src/ini_p_ground.F |
146 |
INI_P_GROUND |
ratioRp(k) = 1. _d 0 |
|
./model/src/ini_p_ground.F |
148 |
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 |
240 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRp(k) |
|
./model/src/ini_p_ground.F |
322 |
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) |