From d678d3a9c36df70bc1180a6b615ae8a1dd66fe3e Mon Sep 17 00:00:00 2001 From: alperaltuntas Date: Fri, 14 Feb 2025 10:19:47 -0700 Subject: [PATCH] Do not nullify non-present MOM_dom_unmasked pointer --- src/framework/MOM_domains.F90 | 4 +--- src/parameterizations/MARBL | 1 - 2 files changed, 1 insertion(+), 4 deletions(-) delete mode 120000 src/parameterizations/MARBL diff --git a/src/framework/MOM_domains.F90 b/src/framework/MOM_domains.F90 index de4391d1a8..d07ac1ad86 100644 --- a/src/framework/MOM_domains.F90 +++ b/src/framework/MOM_domains.F90 @@ -99,7 +99,7 @@ subroutine MOM_domains_init(MOM_dom, param_file, symmetric, static_memory, & character(len=*), optional, intent(in) :: param_suffix !< A suffix to apply to !! layout-specific parameters. type(unit_scale_type), optional, pointer :: US !< A dimensional unit scaling type - type(MOM_domain_type), pointer, optional :: MOM_dom_unmasked !< Unmasked MOM domain instance. + type(MOM_domain_type), optional, pointer :: MOM_dom_unmasked !< Unmasked MOM domain instance. !! Set to null if masking is not enabled. ! Local variables @@ -448,8 +448,6 @@ subroutine MOM_domains_init(MOM_dom, param_file, symmetric, static_memory, & call create_MOM_domain(MOM_dom_unmasked, n_global, n_halo, reentrant, tripolar_N, layout_unmasked, & domain_name=domain_name, symmetric=symmetric, thin_halos=thin_halos, & nonblocking=nonblocking) - else - MOM_dom_unmasked => null() endif call create_MOM_domain(MOM_dom, n_global, n_halo, reentrant, tripolar_N, layout, & diff --git a/src/parameterizations/MARBL b/src/parameterizations/MARBL deleted file mode 120000 index c78d57b86a..0000000000 --- a/src/parameterizations/MARBL +++ /dev/null @@ -1 +0,0 @@ -../../pkg/MARBL/src/ \ No newline at end of file