MODIS landuse data support

[bfkg]

HYDRO_drv/module_HYDRO_drv.F subroutine lsm_input() does some reclassification of soiltype and vegtype fields where USGS classes are 16 for water. If one uses MODIS data instead, this reclassification is not taking care about MODIS data having different classes. MMINLU information needs to be transferred to this subroutine to implement a conditional check whether USGS or MODIS classification is used.

            if(nlst_rt(did)%sys_cpl .eq. 2 ) then
              ! coupling with WRF
                if(present(soltyp0) ) then
                   where(soltyp0 == 14) VEGTYP0 = 16
                   where(VEGTYP0 == 16 ) soltyp0 = 14
                   soltyp = soltyp0
                   RT_DOMAIN(did)%VEGTYP = VEGTYP0
                endif
            endif

         where(soltyp == 14) RT_DOMAIN(did)%VEGTYP = 16
         where(RT_DOMAIN(did)%VEGTYP == 16 ) soltyp = 14