Pass in flag to tell program to output dominate category

or fractional categories.

Fixes ufs-community#709.

Author: GeorgeGayno-NOAA

driver_scripts/driver_grid.hera.sh

@@ -71,10 +71,13 @@ module list
 # Set grid specs here.
 #-----------------------------------------------------------------------
 
-export gtype=uniform           # 'uniform', 'stretch', 'nest', 
+export gtype=regional_esg           # 'uniform', 'stretch', 'nest', 
                                # 'regional_gfdl', 'regional_esg'
 export make_gsl_orog=false     # 'true' if user needs 'oro' files for GSL
                                # orographic drag suite
+export vegsoilt_frac='.true.' # When .false., output dominate soil and 
+                               # vegetation type category. When .true.,
+                               # output fraction of each category.
 export veg_type_src="modis.igbp.0.05" #  veg type data.
                                 # For viirs-based vegetation type data, set to:
                                 # 1) "viirs.igbp.0.05" for global 5km data

sorc/sfc_climo_gen.fd/driver.F90

@@ -81,8 +81,10 @@ program driver
 
  call define_source_grid(localpet, npets, input_vegetation_type_file)
  if (fract_vegsoil_type) then
+   print*,'- WILL OUTPUT VEGETATION TYPE FRACTION.'
    call interp2(localpet, input_vegetation_type_file)
  else
+   print*,'- WILL OUTPUT DOMINATE VEGETATION TYPE.'
    method=ESMF_REGRIDMETHOD_NEAREST_STOD
    call interp(localpet, method, input_vegetation_type_file)
  endif
@@ -141,8 +143,10 @@ program driver
  if (trim(input_soil_type_file) /= "NULL") then
    call define_source_grid(localpet, npets, input_soil_type_file)
    if (fract_vegsoil_type) then
+     print*,'- WILL OUTPUT SOIL TYPE FRACTION.'
      call interp2(localpet, input_soil_type_file)
    else
+     print*,'- WILL OUTPUT DOMINATE SOIL TYPE.'
      method=ESMF_REGRIDMETHOD_NEAREST_STOD
      call interp(localpet, method, input_soil_type_file)
    endif

sorc/sfc_climo_gen.fd/program_setup.f90

@@ -71,7 +71,8 @@ subroutine read_setup_namelist(localpet)
                    input_vegetation_greenness_file, mosaic_file_mdl, &
                    orog_dir_mdl, orog_files_mdl, halo, &
                    vegetation_greenness_method, leaf_area_index_method, &
-                   maximum_snow_albedo_method, snowfree_albedo_method
+                   maximum_snow_albedo_method, snowfree_albedo_method, &
+                   fract_vegsoil_type
 
  print*,"- READ SETUP NAMELIST, LOCALPET: ", localpet
 

ush/sfc_climo_gen.sh

@@ -39,6 +39,7 @@ mosaic_file=${mosaic_file:-$FIX_FV3/C${res}_mosaic.nc}
 HALO=${HALO:-0}
 veg_type_src=${veg_type_src:-"modis.igbp.0.05"}
 VEG_TYPE_FILE=${VEG_TYPE_FILE:-${input_sfc_climo_dir}/vegetation_type.${veg_type_src}.nc}
+vegsoilt_frac=${vegsoilt_frac:-.false.}
 
 if [ ! -d $SAVE_DIR ]; then
   mkdir -p $SAVE_DIR
@@ -75,6 +76,7 @@ halo=$HALO
 maximum_snow_albedo_method="bilinear"
 snowfree_albedo_method="bilinear"
 vegetation_greenness_method="bilinear"
+fract_vegsoil_type=${vegsoilt_frac}
 /
 EOF