Bug fix for using HRRR or RAP data with climo surface fields that cau…

…sed erroneous soil types. Addresses Issue ufs-community#228
LarissaReames-NOAA · Nov 20, 2020 · 8472715 · 8472715
1 parent 9bf2a5c
commit 8472715
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/sorc/chgres_cube.fd/input_data.F90 b/sorc/chgres_cube.fd/input_data.F90
@@ -4958,6 +4958,8 @@ subroutine read_input_sfc_grib2_file(localpet)
      where(slmsk_save == 1) dummy2d_i = 1
 
      call search(dummy2d_8,dummy2d_i,i_input,j_input,1,230)
+   else
+      dummy2d_8=real(dummy2d,esmf_kind_r8)
    endif
 
    print*,'sotype ',maxval(dummy2d_8),minval(dummy2d_8)