Symbol Description Uses
rMidKp1 4


File Line number Procedure Code
./model/src/ini_p_ground.F 237 INI_P_GROUND 
                  rMidKp1 = rF(k+1)
./model/src/ini_p_ground.F 238 INI_P_GROUND 
                  IF (k.LT.Nr) rMidKp1 = (rC(k)+rC(k+1))*0.5 _d 0
./model/src/ini_p_ground.F 239 INI_P_GROUND 
                  IF ( findPoSurf .AND. Po_surf.GE.rMidKp1 ) THEN
./model/src/ini_p_ground.F 72 INI_P_GROUND 
      _RL  psNorm, rMidKp1