Use 32bit value for 'missing_value' and '_FillValue' attributes (#236)

NOAA-GFDL · Jan 25, 2023 · 3f7b57a · 3f7b57a
1 parent a839395
commit 3f7b57a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/driver/fvGFS/fv_nggps_diag.F90 b/driver/fvGFS/fv_nggps_diag.F90
@@ -1727,12 +1727,12 @@ subroutine add_field_to_bundle(var_name,long_name,units,cell_methods, axes,dyn_g
    call ESMF_AttributeAdd(field, convention="NetCDF", purpose="FV3", &
         attrList=(/"missing_value"/), rc=rc)
    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)
 
    call ESMF_AttributeAdd(field, convention="NetCDF", purpose="FV3", &
         attrList=(/"_FillValue"/), rc=rc)
    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)
 
    call ESMF_AttributeAdd(field, convention="NetCDF", purpose="FV3", &
         attrList=(/"cell_methods"/), rc=rc)