diff --git a/sorc/chgres_cube.fd/input_data.F90 b/sorc/chgres_cube.fd/input_data.F90
index 1c6ebdfa5..fe49b3b6d 100644
--- 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)