Skip to content

Commit 3226f1b

Browse files
Merge pull request #3 from marshallward/pass_through_doc
MOM_domain_infra: Document FMS passthroughs
2 parents 4037764 + 3f69a40 commit 3226f1b

File tree

1 file changed

+8
-2
lines changed

1 file changed

+8
-2
lines changed

src/framework/MOM_domain_infra.F90

+8-2
Original file line numberDiff line numberDiff line change
@@ -7,11 +7,11 @@ module MOM_domain_infra
77
use MOM_cpu_clock, only : cpu_clock_begin, cpu_clock_end
88
use MOM_error_infra, only : MOM_error=>MOM_err, NOTE, WARNING, FATAL
99

10-
use mpp_domains_mod, only : domain2D, domain1D, group_pass_type => mpp_group_update_type
10+
use mpp_domains_mod, only : domain2D, domain1D
1111
use mpp_domains_mod, only : mpp_define_io_domain, mpp_define_domains, mpp_deallocate_domain
1212
use mpp_domains_mod, only : mpp_get_domain_components, mpp_get_domain_extents
1313
use mpp_domains_mod, only : mpp_get_compute_domain, mpp_get_data_domain, mpp_get_global_domain
14-
use mpp_domains_mod, only : mpp_get_boundary, mpp_update_domains, global_field_sum => mpp_global_sum
14+
use mpp_domains_mod, only : mpp_get_boundary, mpp_update_domains
1515
use mpp_domains_mod, only : mpp_start_update_domains, mpp_complete_update_domains
1616
use mpp_domains_mod, only : mpp_create_group_update, mpp_do_group_update
1717
use mpp_domains_mod, only : mpp_reset_group_update_field, mpp_group_update_initialized
@@ -26,6 +26,12 @@ module MOM_domain_infra
2626
use fms_io_mod, only : file_exist, parse_mask_table
2727
use fms_affinity_mod, only : fms_affinity_init, fms_affinity_set, fms_affinity_get
2828

29+
! This subroutine is not in MOM6/src but may be required by legacy drivers
30+
use mpp_domains_mod, only : global_field_sum => mpp_global_sum
31+
32+
! The `group_pass_type` fields are never accessed, so we keep it as an FMS type
33+
use mpp_domains_mod, only : group_pass_type => mpp_group_update_type
34+
2935
implicit none ; private
3036

3137
! These types are inherited from mpp, but are treated as opaque here.

0 commit comments

Comments
 (0)