Symbol Description Uses
Ks 9


File Line number Procedure Code
./model/src/ini_p_ground.F 107 INI_P_GROUND 
           Ks = 1
./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 111 INI_P_GROUND 
           Po_surf = rHalf(Ks) + (rHalf(Ks+1)-rHalf(Ks))*
./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 62 INI_P_GROUND 
      INTEGER bi,bj,i,j,K, Ks