Use 32bit value for 'missing_value' and '_FillValue' attributes (NOAA…

…-GFDL#236)
NOAA-EMC · Mar 20, 2023 · cc64826 · cc64826
1 parent 59a74c9
commit cc64826
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)