Removed mosaic_lu and mosaic_soil from namelist_soilveg_ruc and set_s…

…oilveg_ruc as they are moved to the namelist options in GFS_typedefs.F90.

physics/namelist_soilveg_ruc.F90

@@ -45,7 +45,6 @@ module namelist_soilveg_ruc
       INTEGER DEFINED_VEG
       INTEGER DEFINED_SOIL
       INTEGER DEFINED_SLOPE
-      INTEGER MOSAIC_LU
 !> -- soils
       real(kind_phys) BB(MAX_SOILTYP)
       real(kind_phys) DRYSMC(MAX_SOILTYP)
@@ -63,5 +62,4 @@ module namelist_soilveg_ruc
       real(kind_phys) SATDKnoah(MAX_SOILTYP)
       real(kind_phys) SATPSInoah(MAX_SOILTYP)
       real(kind_phys) MAXSMCnoah(MAX_SOILTYP)
-      INTEGER MOSAIC_SOIL
       end module namelist_soilveg_ruc

physics/set_soilveg_ruc.F90

@@ -36,8 +36,7 @@ subroutine set_soilveg_ruc(me,isot,ivet,nlunit,errmsg,errflg)
      &  RSMAX_DATA, BARE, GLACIER, NATURAL, CROP, URBAN,                &
      &  DEFINED_VEG, DEFINED_SOIL, DEFINED_SLOPE,                       &
      &  BB, DRYSMC, HC, MAXSMC, REFSMC, SATPSI, SATDK, SATDW,           &
-     &  WLTSMC, QTZ, mosaic_soil, mosaic_lu,                            &
-     &  REFSMCnoah, WLTSMCnoah, MAXSMCnoah
+     &  WLTSMC, QTZ, REFSMCnoah, WLTSMCnoah, MAXSMCnoah
 
       ! Initialize error-handling
       errflg = 0
@@ -235,9 +234,6 @@ subroutine set_soilveg_ruc(me,isot,ivet,nlunit,errmsg,errflg)
       endif
 !  end if veg table
 
-! - set mosaic_lu=1 when info for fractional landuse is available
-      mosaic_lu = 0
-
       topt_data =298.0
       cmcmax_data =0.2e-3
       cfactr_data =0.5
@@ -440,9 +436,6 @@ subroutine set_soilveg_ruc(me,isot,ivet,nlunit,errmsg,errflg)
            endif
          END DO
 
-! - set mosaic_soil=1 when info for fractional landuse is available
-      mosaic_soil = 0
-
 ! PT 5/18/2015 - changed to FALSE to match atm_namelist setting
 ! PT LPARAM is not used anywhere
       LPARAM =.FALSE.