Updates for new routine name.

Fixes ufs-community#709.

Author: GeorgeGayno-NOAA

sorc/sfc_climo_gen.fd/driver.F90

@@ -82,7 +82,7 @@ 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)
+   call interp_frac_cats(localpet, input_vegetation_type_file)
  else
    print*,'- WILL OUTPUT DOMINATE VEGETATION TYPE.'
    method=ESMF_REGRIDMETHOD_NEAREST_STOD
@@ -144,7 +144,7 @@ program driver
    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)
+     call interp_frac_cats(localpet, input_soil_type_file)
    else
      print*,'- WILL OUTPUT DOMINATE SOIL TYPE.'
      method=ESMF_REGRIDMETHOD_NEAREST_STOD

sorc/sfc_climo_gen.fd/interp_frac_cats.F90

@@ -1,15 +1,16 @@
 !> @file
-!! @brief Read the input source data and interpolate it to the
-!! model grid.
-!! @author George Gayno @date 2018
+!! @brief Read the input cateogorical source data and 
+!! interpolate it to the model grid.
+!! @author George Gayno @date 2022
 
 !> Read the input source data and interpolate it to the
-!! model grid.
+!! model grid. Outputs the percentage of each category
+!! within a model grid box and the dominate category.
 !!
 !! @param[in] localpet this mpi task
 !! @param[in] input_file filename of input source data.
-!! @author George Gayno @date 2018
- subroutine interp2(localpet, input_file)
+!! @author George Gayno @date 2022
+ subroutine interp_frac_cats(localpet, input_file)
 
  use esmf
  use netcdf
@@ -26,11 +27,12 @@ subroutine interp2(localpet, input_file)
 
  character(len=*), intent(in)       :: input_file
 
- integer                            :: rc, localpet
- integer                            :: i, j, tile, ncid, status
+ integer, intent(in)                :: localpet
+
+ integer                            :: i, j, tile, ncid, status, rc
  integer                            :: varid, water_category
  integer                            :: isrctermprocessing
- integer :: category, num_categories
+ integer                            :: category, num_categories
 
  integer(esmf_kind_i4), allocatable :: mask_mdl_one_tile(:,:)
  integer(esmf_kind_i4), pointer     :: unmapped_ptr(:)
@@ -44,12 +46,11 @@ subroutine interp2(localpet, input_file)
  real(esmf_kind_r4), allocatable    :: lon_mdl_one_tile(:,:)
  real(esmf_kind_r4), allocatable    :: land_frac_mdl_one_tile(:,:)
 
- type(esmf_regridmethod_flag) :: method
+ type(esmf_regridmethod_flag)            :: method
  type(esmf_field)                        :: data_field_src
  type(esmf_field)                        :: data_field_mdl
  type(esmf_routehandle)                  :: regrid_data
  type(esmf_polemethod_flag)              :: pole
- 
 
  if (localpet == 0) then
    allocate(data_src_global(i_src,j_src))
@@ -264,4 +265,4 @@ subroutine interp2(localpet, input_file)
 
  call mpi_barrier(mpi_comm_world, rc)
 
- end subroutine interp2
+ end subroutine interp_frac_cats