Symbol Description Uses
ratioRp 11



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)