From b6337e6f08f69e1d7b4f21f3470534128d806b6d Mon Sep 17 00:00:00 2001
From: tanyasmirnova <tanya.smirnova@noaa.gov>
Date: Tue, 28 Mar 2023 21:40:06 +0000
Subject: [PATCH] Removed mosaic_lu and mosaic_soil from namelist_soilveg_ruc
 and set_soilveg_ruc as they are moved to the namelist options in
 GFS_typedefs.F90.

---
 physics/namelist_soilveg_ruc.F90 | 2 --
 physics/set_soilveg_ruc.F90      | 9 +--------
 2 files changed, 1 insertion(+), 10 deletions(-)

diff --git a/physics/namelist_soilveg_ruc.F90 b/physics/namelist_soilveg_ruc.F90
index d71d2ebfd..d93dc5c64 100644
--- a/physics/namelist_soilveg_ruc.F90
+++ b/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
diff --git a/physics/set_soilveg_ruc.F90 b/physics/set_soilveg_ruc.F90
index f04a49648..7c4f0ffdf 100644
--- a/physics/set_soilveg_ruc.F90
+++ b/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.