Patch the CMEPS history output so that it can be used. Currently hist…

…ory output is full of _fillValue, as the implementation of history output with type float is incomplete. Change to type double.

CMEPS/CMakeLists.txt

@@ -16,7 +16,6 @@ target_sources(OM3_cmeps PRIVATE
   CMEPS/mediator/med_map_mod.F90
   CMEPS/mediator/med_methods_mod.F90
   CMEPS/mediator/med_phases_prep_ice_mod.F90
-  CMEPS/mediator/med_phases_history_mod.F90
   CMEPS/mediator/med_phases_prep_glc_mod.F90
   CMEPS/mediator/med_internalstate_mod.F90
   CMEPS/mediator/med_phases_profile_mod.F90
@@ -49,6 +48,8 @@ target_sources(OM3_cmeps PRIVATE
   CMEPS/mediator/med_phases_post_wav_mod.F90
 )
 
+add_patched_source(OM3_cmeps CMEPS/mediator/med_phases_history_mod.F90)
+
 ## NUOPC cap share
 add_fortran_library(OM3_nuopc_cap_share mod/nuopc_cap_share STATIC)
 add_library(AccessOM3::nuopc_cap_share ALIAS OM3_nuopc_cap_share)
@@ -63,6 +64,7 @@ target_sources(OM3_nuopc_cap_share PRIVATE
   CMEPS/cesm/nuopc_cap_share/nuopc_shr_methods.F90
 )
 
+
 ### Install and Export
 
 if(OM3_LIB_INSTALL)

CMEPS/patches/med_phases_history_mod.F90.patch

@@ -0,0 +1,13 @@
+diff --git a/mediator/med_phases_history_mod.F90 b/mediator/med_phases_history_mod.F90
+index 5f150a4b..97864ec6 100644
+--- a/mediator/med_phases_history_mod.F90
++++ b/mediator/med_phases_history_mod.F90
+@@ -1300,7 +1300,7 @@ contains
+              call med_io_write(auxcomp%files(nf)%io_file, is_local%wrap%FBimp(compid,compid), &
+                   whead(1), wdata(1), nx, ny, nt=auxcomp%files(nf)%nt, &
+                   pre=trim(compname(compid))//'Imp', flds=auxcomp%files(nf)%flds, &
+-                  use_float=.true., rc=rc)
++                  use_float=.false., rc=rc)
+              if (ChkErr(rc,__LINE__,u_FILE_u)) return
+
+              ! end definition phase