Skip to content

FMS2: New interface to set/nullify_domain #394

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
Hallberg-NOAA merged 1 commit into from
Jun 30, 2023
Merged

FMS2: New interface to set/nullify_domain #394

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 16 additions & 0 deletions config_src/infra/FMS1/MOM_domain_infra.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -24,6 +24,8 @@ module MOM_domain_infra
use mpp_domains_mod, only : To_North => SUPDATE, To_South => NUPDATE
use mpp_domains_mod, only : CENTER, CORNER, NORTH_FACE => NORTH, EAST_FACE => EAST
use fms_io_mod, only : file_exist, parse_mask_table
use fms_io_mod, only : fms_set_domain => set_domain
use fms_io_mod, only : fms_nullify_domain => nullify_domain
use fms_affinity_mod, only : fms_affinity_init, fms_affinity_set, fms_affinity_get

! This subroutine is not in MOM6/src but may be required by legacy drivers
Expand All @@ -49,6 +51,7 @@ module MOM_domain_infra
public :: To_East, To_West, To_North, To_South, To_All, Omit_Corners
public :: AGRID, BGRID_NE, CGRID_NE, SCALAR_PAIR
public :: CORNER, CENTER, NORTH_FACE, EAST_FACE
public :: set_domain, nullify_domain
! These are no longer used by MOM6 because the reproducing sum works so well, but they are
! still referenced by some of the non-GFDL couplers.
! public :: global_field_sum, BITWISE_EXACT_SUM
Expand Down Expand Up @@ -1998,4 +2001,17 @@ subroutine get_layout_extents(Domain, extent_i, extent_j)
call mpp_get_domain_extents(domain%mpp_domain, extent_i, extent_j)
end subroutine get_layout_extents

!> Set the associated domain for internal FMS I/O operations.
subroutine set_domain(Domain)
type(MOM_domain_type), intent(in) :: Domain
!< MOM domain to be designated as the internal FMS I/O domain

call fms_set_domain(Domain%mpp_domain)
end subroutine set_domain

!> Free the associated domain for internal FMS I/O operations.
subroutine nullify_domain
call fms_nullify_domain
end subroutine nullify_domain

end module MOM_domain_infra
14 changes: 14 additions & 0 deletions config_src/infra/FMS2/MOM_domain_infra.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -49,6 +49,7 @@ module MOM_domain_infra
public :: To_East, To_West, To_North, To_South, To_All, Omit_Corners
public :: AGRID, BGRID_NE, CGRID_NE, SCALAR_PAIR
public :: CORNER, CENTER, NORTH_FACE, EAST_FACE
public :: set_domain, nullify_domain
! These are no longer used by MOM6 because the reproducing sum works so well, but they are
! still referenced by some of the non-GFDL couplers.
! public :: global_field_sum, BITWISE_EXACT_SUM
Expand Down Expand Up @@ -2002,4 +2003,17 @@ subroutine get_layout_extents(Domain, extent_i, extent_j)
call mpp_get_domain_extents(domain%mpp_domain, extent_i, extent_j)
end subroutine get_layout_extents

!> Set the associated domain for internal FMS I/O operations.
subroutine set_domain(Domain)
type(MOM_domain_type), intent(in) :: Domain
!< MOM domain to be designated as the internal FMS I/O domain

! FMS2 does not have domain-based internal FMS I/O operations, so this
! function does nothing.
end subroutine set_domain

subroutine nullify_domain
! No internal FMS I/O domain can be assigned, so this function does nothing.
end subroutine nullify_domain

end module MOM_domain_infra