From 4506546ba32d2e1e9d7157e3b29df264efa77ef5 Mon Sep 17 00:00:00 2001
From: Dusan Jovic <48258889+DusanJovic-NOAA@users.noreply.github.com>
Date: Wed, 25 Jan 2023 09:43:41 -0500
Subject: [PATCH] Create ESMF field attributes using the same kind as field
 data values (#618)

* Use 32bit value for 'missing_value' and '_FillValue' attributes
---
 atmos_cubed_sphere | 2 +-
 io/FV3GFS_io.F90   | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/atmos_cubed_sphere b/atmos_cubed_sphere
index a839395d5..3f7b57a28 160000
--- a/atmos_cubed_sphere
+++ b/atmos_cubed_sphere
@@ -1 +1 @@
-Subproject commit a839395d542ab860ae0afa7601e35b37d68d773e
+Subproject commit 3f7b57a28b334c7f2485b26c29f1d5b9f3c1cd7d
diff --git a/io/FV3GFS_io.F90 b/io/FV3GFS_io.F90
index 775d7630d..6ee558fcb 100644
--- 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)