namelist_soilveg_ruc.F90

 
 
      module namelist_soilveg_ruc
 
      use machine ,   only : kind_phys
 
      implicit none
      save
 
      INTEGER max_slopetyp
      INTEGER max_soiltyp
      INTEGER max_vegtyp
 
      parameter(max_slopetyp = 30)
      parameter(max_soiltyp = 30)
      parameter(max_vegtyp = 30)
 
      real(kind_phys) slope_data(max_slopetyp)
      real(kind_phys) albtbl(max_vegtyp)
      real(kind_phys) z0tbl(max_vegtyp)
      real(kind_phys) lemitbl(max_vegtyp)
      real(kind_phys) pctbl(max_vegtyp)
      real(kind_phys) shdtbl(max_vegtyp)
      INTEGER ifortbl(max_vegtyp)
      real(kind_phys) rstbl(max_vegtyp)
      real(kind_phys) rgltbl(max_vegtyp)
      real(kind_phys) hstbl(max_vegtyp)
      real(kind_phys) snuptbl(max_vegtyp)
      real(kind_phys) laitbl(max_vegtyp)
      real(kind_phys) maxalb(max_vegtyp)
      real(kind_phys) mfsno(max_vegtyp)
      real(kind_phys) sncovfac(max_vegtyp)
      LOGICAL lparam
      real(kind_phys) topt_data
      real(kind_phys) cmcmax_data
      real(kind_phys) cfactr_data
      real(kind_phys) rsmax_data
      INTEGER bare
      INTEGER glacier
      INTEGER natural
      INTEGER crop
      INTEGER urban
      INTEGER defined_veg
      INTEGER defined_soil
      INTEGER defined_slope
      real(kind_phys) bb(max_soiltyp)
      real(kind_phys) drysmc(max_soiltyp)
      real(kind_phys) hc(max_soiltyp)
      real(kind_phys) maxsmc(max_soiltyp)
      real(kind_phys) refsmc(max_soiltyp)
      real(kind_phys) satpsi(max_soiltyp)
      real(kind_phys) satdk(max_soiltyp)
      real(kind_phys) satdw(max_soiltyp)
      real(kind_phys) wltsmc(max_soiltyp)
      real(kind_phys) qtz(max_soiltyp)
      real(kind_phys) refsmcnoah(max_soiltyp)
      real(kind_phys) wltsmcnoah(max_soiltyp)
      real(kind_phys) bbnoah(max_soiltyp)
      real(kind_phys) satdknoah(max_soiltyp)
      real(kind_phys) satpsinoah(max_soiltyp)
      real(kind_phys) maxsmcnoah(max_soiltyp)
      end module namelist_soilveg_ruc