Skip to content

Commit

Permalink
+Add create_MOM_domain and MOM_domain_init.F90
Browse files Browse the repository at this point in the history
  Added the new file MOM_domain_init.F90, with a copy of MOM_domains_init, to
facilitate the separation of the framework code into FMS-specific and
FMS-independent directories, and use this new module in MOM.F90 and
MOM_ice_shelf.F90.  There is also a copy of MOM_domains_init still in
MOM_domains.F90, so other modules, like SIS2, will continue to work.  Some of
the previous contents of MOM_domains_init have been transferred into the new
publicly visible routines create_MOM_domain, MOM_thread_affinity_set and
set_MOM_thread_affinity.  Also removed several module use statements for
MOM_domains_init that are not needed.  All answers and output files are bitwise
identical, but there are new public interfaces.
  • Loading branch information
Hallberg-NOAA committed Jan 8, 2021
1 parent e68d31a commit ee7dd32
Show file tree
Hide file tree
Showing 6 changed files with 223 additions and 155 deletions.
4 changes: 2 additions & 2 deletions src/core/MOM.F90
Original file line number Diff line number Diff line change
Expand Up @@ -23,8 +23,8 @@ module MOM
use MOM_diag_mediator, only : diag_grid_storage, diag_grid_storage_init
use MOM_diag_mediator, only : diag_save_grids, diag_restore_grids
use MOM_diag_mediator, only : diag_copy_storage_to_diag, diag_copy_diag_to_storage
use MOM_domains, only : MOM_domains_init, clone_MOM_domain
use MOM_domains, only : sum_across_PEs, pass_var, pass_vector
use MOM_domain_init, only : MOM_domains_init
use MOM_domains, only : sum_across_PEs, pass_var, pass_vector, clone_MOM_domain
use MOM_domains, only : To_North, To_East, To_South, To_West
use MOM_domains, only : To_All, Omit_corners, CGRID_NE, SCALAR_PAIR
use MOM_domains, only : create_group_pass, do_group_pass, group_pass_type
Expand Down
1 change: 0 additions & 1 deletion src/core/MOM_dynamics_split_RK2.F90
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,6 @@ module MOM_dynamics_split_RK2
use MOM_diag_mediator, only : disable_averaging, post_data, safe_alloc_ptr
use MOM_diag_mediator, only : register_diag_field, register_static_field
use MOM_diag_mediator, only : set_diag_mediator_grid, diag_ctrl, diag_update_remap_grids
use MOM_domains, only : MOM_domains_init
use MOM_domains, only : To_South, To_West, To_All, CGRID_NE, SCALAR_PAIR
use MOM_domains, only : To_North, To_East, Omit_Corners
use MOM_domains, only : create_group_pass, do_group_pass, group_pass_type
Expand Down
5 changes: 2 additions & 3 deletions src/core/MOM_dynamics_unsplit.F90
Original file line number Diff line number Diff line change
Expand Up @@ -61,9 +61,8 @@ module MOM_dynamics_unsplit
use MOM_diag_mediator, only : disable_averaging, post_data, safe_alloc_ptr
use MOM_diag_mediator, only : register_diag_field, register_static_field
use MOM_diag_mediator, only : set_diag_mediator_grid, diag_ctrl, diag_update_remap_grids
use MOM_domains, only : MOM_domains_init, pass_var, pass_vector
use MOM_domains, only : pass_var_start, pass_var_complete
use MOM_domains, only : pass_vector_start, pass_vector_complete
use MOM_domains, only : pass_var, pass_var_start, pass_var_complete
use MOM_domains, only : pass_vector, pass_vector_start, pass_vector_complete
use MOM_domains, only : To_South, To_West, To_All, CGRID_NE, SCALAR_PAIR
use MOM_error_handler, only : MOM_error, MOM_mesg, FATAL, WARNING, is_root_pe
use MOM_file_parser, only : get_param, log_version, param_file_type
Expand Down
5 changes: 2 additions & 3 deletions src/core/MOM_dynamics_unsplit_RK2.F90
Original file line number Diff line number Diff line change
Expand Up @@ -59,9 +59,8 @@ module MOM_dynamics_unsplit_RK2
use MOM_diag_mediator, only : disable_averaging, post_data, safe_alloc_ptr
use MOM_diag_mediator, only : register_diag_field, register_static_field
use MOM_diag_mediator, only : set_diag_mediator_grid, diag_ctrl
use MOM_domains, only : MOM_domains_init, pass_var, pass_vector
use MOM_domains, only : pass_var_start, pass_var_complete
use MOM_domains, only : pass_vector_start, pass_vector_complete
use MOM_domains, only : pass_var, pass_var_start, pass_var_complete
use MOM_domains, only : pass_vector, pass_vector_start, pass_vector_complete
use MOM_domains, only : To_South, To_West, To_All, CGRID_NE, SCALAR_PAIR
use MOM_error_handler, only : MOM_error, MOM_mesg, FATAL, WARNING, is_root_pe
use MOM_error_handler, only : MOM_set_verbosity
Expand Down
Loading

0 comments on commit ee7dd32

Please sign in to comment.