Call data_override via MOM_data_override

Use MOM_data_override instead of calling the FMS module data_override_mod directly, thereby permitting the evolution of the underlying infrastructure without requiring changes to SIS2. All answers are bitwise identical.
NOAA-GFDL · Apr 3, 2021 · 6b24054 · 6b24054
1 parent 783f937
commit 6b24054
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/src/SIS_slow_thermo.F90 b/src/SIS_slow_thermo.F90
@@ -21,13 +21,13 @@ module SIS_slow_thermo
 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
 
 
-use data_override_mod, only : data_override
 
 use ice_grid,          only : ice_grid_type
 use ice_spec_mod,      only : get_sea_surface
 
 use MOM_cpu_clock,     only : cpu_clock_id, cpu_clock_begin, cpu_clock_end
 use MOM_cpu_clock,     only : CLOCK_COMPONENT, CLOCK_LOOP, CLOCK_ROUTINE
+use MOM_data_override, only : data_override
 use MOM_EOS,           only : EOS_type, calculate_density_derivs
 use MOM_error_handler, only : SIS_error=>MOM_error, FATAL, WARNING, SIS_mesg=>MOM_mesg
 use MOM_error_handler, only : callTree_enter, callTree_leave, callTree_waypoint

diff --git a/src/SIS_state_initialization.F90 b/src/SIS_state_initialization.F90
@@ -9,10 +9,10 @@ module SIS_state_initialization
 ! routines have options that just read and log their input parameters.         !
 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~!
 
-use data_override_mod, only : data_override, data_override_init, data_override_unset_domains
 use ice_grid,          only : ice_grid_type
 use ice_type_mod,      only : ice_data_type, dealloc_ice_arrays
 use ice_type_mod,      only : ice_type_slow_reg_restarts
+use MOM_data_override, only : data_override, data_override_init, data_override_unset_domains
 use MOM_domains,       only : MOM_domain_type
 use MOM_error_handler, only : SIS_error=>MOM_error, FATAL, WARNING, SIS_mesg=>MOM_mesg
 use MOM_error_handler, only : callTree_enter, callTree_leave, callTree_waypoint

diff --git a/src/ice_spec.F90 b/src/ice_spec.F90
@@ -1,10 +1,10 @@
 !> sea ice and SST specified from data as per GFDL climate group
 module ice_spec_mod
 
-use data_override_mod, only : data_override, data_override_init, data_override_unset_domains
 use fms_mod, only : write_version_number
 use mpp_mod, only : input_nml_file
 
+use MOM_data_override, only : data_override, data_override_init, data_override_unset_domains
 use MOM_error_handler, only : stdlog, stdout
 use MOM_hor_index,     only : hor_index_type
 use MOM_io,            only : open_namelist_file, check_nml_error, close_file