Symbol Description Uses
hRef 12



File Line number Procedure Code
./model/src/ini_p_ground.F 109 INI_P_GROUND
             IF (Hfld(i,j,bi,bj).GE.hRef(K)) Ks = K
./model/src/ini_p_ground.F 112 INI_P_GROUND
     &       (Hfld(i,j,bi,bj)-hRef(Ks))/(hRef(Ks+1)-hRef(Ks))
./model/src/ini_p_ground.F 281 INI_P_GROUND
            phiLoc = hRef(2*ks)
./model/src/ini_p_ground.F 282 INI_P_GROUND
     &       + (hRef(2*ks-1)-hRef(2*ks))
./model/src/ini_p_ground.F 285 INI_P_GROUND
            phiLoc = hRef(2*ks)
./model/src/ini_p_ground.F 286 INI_P_GROUND
     &       + (hRef(2*ks+1)-hRef(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 98 INI_P_GROUND
        hRef(K) = phiRef(K)*recip_gravity