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 275 INI_P_GROUND
            phiLoc = hRef(2*ks)
./model/src/ini_p_ground.F 276 INI_P_GROUND
     &       + (hRef(2*ks-1)-hRef(2*ks))
./model/src/ini_p_ground.F 279 INI_P_GROUND
            phiLoc = hRef(2*ks)
./model/src/ini_p_ground.F 280 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