Symbol Description Uses
rHalf 18


File Line number Procedure Code
./model/src/ini_p_ground.F 111 INI_P_GROUND 
           Po_surf = rHalf(Ks) + (rHalf(Ks+1)-rHalf(Ks))*
./model/src/ini_p_ground.F 283 INI_P_GROUND 
     &        *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks))
./model/src/ini_p_ground.F 287 INI_P_GROUND 
     &        *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks))
./model/src/ini_p_ground.F 64 INI_P_GROUND 
      _RL hRef(2*Nr+1), rHalf(2*Nr+1)
./model/src/ini_p_ground.F 89 INI_P_GROUND 
        rHalf(2*K-1) = rF(K)
./model/src/ini_p_ground.F 90 INI_P_GROUND 
        rHalf(2*K)   = rC(K)
./model/src/ini_p_ground.F 92 INI_P_GROUND 
       rHalf(2*Nr+1) = rF(Nr+1)
./model/src/set_ref_state.F 223 SET_REF_STATE 
          ddPI=atm_Cp*( ((rHalf( k )/atm_Po)**atm_kappa)
./model/src/set_ref_state.F 224 SET_REF_STATE 
     &                 -((rHalf(k+1)/atm_Po)**atm_kappa) )
./model/src/set_ref_state.F 313 SET_REF_STATE 
     &    ' K=',k*0.5,'  ;  r=',rHalf(k),'  ;  phiRef/g=',
./model/src/set_ref_state.F 42 SET_REF_STATE 
      _RL rHalf(2*Nr+1)
./model/src/set_ref_state.F 59 SET_REF_STATE 
        rHalf(2*k-1) = rF(k)
./model/src/set_ref_state.F 60 SET_REF_STATE 
        rHalf(2*k)   = rC(k)
./model/src/set_ref_state.F 62 SET_REF_STATE 
      rHalf(2*Nr+1) = rF(Nr+1)