chore: Add ifdefs for fms_io calls (#77)

BREAKING CHANGE: This deprecates fms_io/mpp_io support by default, it can be renabled with the `-Duse_deprecated_io` CPP flag
NOAA-GFDL · Jun 30, 2023 · bf645ea · bf645ea
1 parent 9da2d61
commit bf645ea
Showing 3 changed files with 12 additions and 3 deletions.
diff --git a/SHiELD/coupler_main.F90 b/SHiELD/coupler_main.F90
@@ -32,8 +32,9 @@ program coupler_main
                            update_atmos_model_state,           &
                            atmos_data_type, atmos_model_restart
 !--- FMS old io
+#ifdef use_deprecated_io
 use fms_io_mod, only: fms_io_exit!< This can't be removed until fms_io is not used at all
-
+#endif
 implicit none
 
 !-----------------------------------------------------------------------
@@ -458,7 +459,9 @@ subroutine coupler_end
    call diag_manager_end (Time_atmos)
 
 !----- to be removed once fms_io is fully deprecated -----
+#ifdef use_deprecated_io
    call fms_io_exit()
+#endif
 
 !-----------------------------------------------------------------------
 

diff --git a/full/coupler_main.F90 b/full/coupler_main.F90
@@ -337,8 +337,9 @@ program coupler_main
   use FMS, status_fms=>status
   use FMSconstants, only: fmsconstants_init
 
-  !< Can't get rid of this until fms_io is no longer used at all
+#ifdef use_deprecated_io
   use fms_io_mod,              only: fms_io_exit
+#endif
 
 ! model interfaces used to couple the component models:
 !               atmosphere, land, ice, and ocean
@@ -1960,7 +1961,9 @@ subroutine coupler_end()
     call coupler_restart(Time, Time_restart_current)
 
     call diag_manager_end (Time)
+#ifdef use_deprecated_io
     call fms_io_exit
+#endif
     call mpp_set_current_pelist()
 
 !-----------------------------------------------------------------------

diff --git a/simple/coupler_main.F90 b/simple/coupler_main.F90
@@ -64,7 +64,9 @@ program coupler_main
 use FMSconstants, only: fmsconstants_init
 
 !--- FMS old io
+#ifdef use_deprecated_io
 use fms_io_mod, only: fms_io_exit!< This can't be removed until fms_io is not used at all
+#endif
 
 implicit none
 
@@ -513,8 +515,9 @@ subroutine coupler_end
     call   ice_model_end (Ice)
 
     call diag_manager_end (Time_atmos)
-
+#ifdef use_deprecated_io
     call  fms_io_exit
+#endif
 
 ! call flux_exchange_end (Atm)