From a27ec3de29838418f3511dc290ca1f6dfe19b260 Mon Sep 17 00:00:00 2001 From: anton-climate Date: Fri, 16 Feb 2024 17:13:20 +1100 Subject: [PATCH] Patch the CMEPS history output so that it can be used. Currently history output is full of _fillValue, as the implementation of history output with type float is incomplete. Change to type double. --- CMEPS/CMakeLists.txt | 4 +++- CMEPS/patches/med_phases_history_mod.F90.patch | 13 +++++++++++++ 2 files changed, 16 insertions(+), 1 deletion(-) create mode 100644 CMEPS/patches/med_phases_history_mod.F90.patch diff --git a/CMEPS/CMakeLists.txt b/CMEPS/CMakeLists.txt index bc0cf01..24dc8a9 100644 --- a/CMEPS/CMakeLists.txt +++ b/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) diff --git a/CMEPS/patches/med_phases_history_mod.F90.patch b/CMEPS/patches/med_phases_history_mod.F90.patch new file mode 100644 index 0000000..1265aca --- /dev/null +++ b/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