chgres_cube: Correct erroneously high soil temperatures at isolated p…

…oints in GEFS data by replacing it with skin temperature.

Addresses Issue ufs-community#447

sorc/chgres_cube.fd/input_data.F90

@@ -5394,6 +5394,7 @@ subroutine read_input_sfc_grib2_file(localpet)
      do j = 1, j_input
        do i = 1, i_input
          if (slmsk_save(i,j) == 0_esmf_kind_i4 ) dummy3d(i,j,k) = tsk_save(i,j)
+         if (slmsk_save(i,j) == 1_esmf_kind_i4 .and. dummy3d(i,j,k) > 350.0_esmf_kind_r8) dummy3d(i,j,k) = tsk_save(i,j)
          if (slmsk_save(i,j) == 2_esmf_kind_i4 ) dummy3d(i,j,k) = icet_default
        enddo
      enddo