Create ESMF field attributes using the same kind as field data values (…

…NOAA-EMC#618) * Use 32bit value for 'missing_value' and '_FillValue' attributes
hafs-community · Mar 20, 2023 · 4c4c2c1 · 4c4c2c1
1 parent 40387db
commit 4c4c2c1
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/atmos_cubed_sphere b/atmos_cubed_sphere
diff --git a/io/FV3GFS_io.F90 b/io/FV3GFS_io.F90
@@ -3784,7 +3784,7 @@ subroutine add_field_to_phybundle(var_name,long_name,units,cell_methods, axes,ph
      line=__LINE__, file=__FILE__)) call ESMF_Finalize(endflag=ESMF_END_ABORT)
 
    call ESMF_AttributeSet(field, convention="NetCDF", purpose="FV3", &
-                          name='missing_value',value=missing_value,rc=rc)
+                          name='missing_value',value=real(missing_value,kind=4),rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU,    &
      line=__LINE__, file=__FILE__)) call ESMF_Finalize(endflag=ESMF_END_ABORT)
 
@@ -3794,7 +3794,7 @@ subroutine add_field_to_phybundle(var_name,long_name,units,cell_methods, axes,ph
      line=__LINE__, file=__FILE__)) call ESMF_Finalize(endflag=ESMF_END_ABORT)
 
    call ESMF_AttributeSet(field, convention="NetCDF", purpose="FV3", &
-                          name='_FillValue',value=missing_value,rc=rc)
+                          name='_FillValue',value=real(missing_value,kind=4),rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU,    &
      line=__LINE__, file=__FILE__)) call ESMF_Finalize(endflag=ESMF_END_ABORT)