@@ -7,11 +7,11 @@ module MOM_domain_infra
7
7
use MOM_cpu_clock, only : cpu_clock_begin, cpu_clock_end
8
8
use MOM_error_infra, only : MOM_error= >MOM_err, NOTE, WARNING, FATAL
9
9
10
- use mpp_domains_mod, only : domain2D, domain1D, group_pass_type = > mpp_group_update_type
10
+ use mpp_domains_mod, only : domain2D, domain1D
11
11
use mpp_domains_mod, only : mpp_define_io_domain, mpp_define_domains, mpp_deallocate_domain
12
12
use mpp_domains_mod, only : mpp_get_domain_components, mpp_get_domain_extents
13
13
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
15
15
use mpp_domains_mod, only : mpp_start_update_domains, mpp_complete_update_domains
16
16
use mpp_domains_mod, only : mpp_create_group_update, mpp_do_group_update
17
17
use mpp_domains_mod, only : mpp_reset_group_update_field, mpp_group_update_initialized
@@ -26,6 +26,12 @@ module MOM_domain_infra
26
26
use fms_io_mod, only : file_exist, parse_mask_table
27
27
use fms_affinity_mod, only : fms_affinity_init, fms_affinity_set, fms_affinity_get
28
28
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
+
29
35
implicit none ; private
30
36
31
37
! These types are inherited from mpp, but are treated as opaque here.
0 commit comments