Skip to content

Commit c9b920b

Browse files
marshallwardHallberg-NOAA
authored andcommitted
Remove FMS1 calls from MOM_domains_infra
1 parent 63561c1 commit c9b920b

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

config_src/infra/FMS2/MOM_domain_infra.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,7 @@ module MOM_domain_infra
2323
use mpp_domains_mod, only : To_East => WUPDATE, To_West => EUPDATE, Omit_Corners => EDGEUPDATE
2424
use mpp_domains_mod, only : To_North => SUPDATE, To_South => NUPDATE
2525
use mpp_domains_mod, only : CENTER, CORNER, NORTH_FACE => NORTH, EAST_FACE => EAST
26-
use fms_io_mod, only : file_exist, parse_mask_table
26+
use fms_io_utils_mod, only : file_exists, parse_mask_table
2727
use fms_affinity_mod, only : fms_affinity_init, fms_affinity_set, fms_affinity_get
2828

2929
! This subroutine is not in MOM6/src but may be required by legacy drivers
@@ -1390,7 +1390,7 @@ subroutine create_MOM_domain(MOM_dom, n_global, n_halo, reentrant, tripolar_N, l
13901390
endif
13911391

13921392
if (present(mask_table)) then
1393-
mask_table_exists = file_exist(mask_table)
1393+
mask_table_exists = file_exists(mask_table)
13941394
if (mask_table_exists) then
13951395
allocate(MOM_dom%maskmap(layout(1), layout(2)))
13961396
call parse_mask_table(mask_table, MOM_dom%maskmap, MOM_dom%name)

0 commit comments

Comments
 (0)