From 77d0cbe9cb948bbe9a7630e26803521ed090d19c Mon Sep 17 00:00:00 2001 From: Robert Hallberg Date: Wed, 13 Jan 2021 15:06:48 -0500 Subject: [PATCH] Corrected a bug using IO_LAYOUT in place of LAYOUT Corrected a bug that was incorrectly using the IO_LAYOUT to set LAYOUT when the IO_LAYOUT uses non-default values greater than 1. All answers are bitwise identical in any cases that worked. --- src/framework/MOM_domains.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/framework/MOM_domains.F90 b/src/framework/MOM_domains.F90 index 65e7337964..56ac0b3ccf 100644 --- a/src/framework/MOM_domains.F90 +++ b/src/framework/MOM_domains.F90 @@ -1571,7 +1571,7 @@ subroutine create_MOM_domain(MOM_dom, n_global, n_halo, reentrant, tripolar, lay if (io_layout(1) == 0) then MOM_dom%io_layout(1) = layout(1) elseif (io_layout(1) > 1) then - MOM_dom%layout(1) = io_layout(1) + MOM_dom%io_layout(1) = io_layout(1) if (modulo(layout(1), io_layout(1)) /= 0) then write(mesg,'("MOM_domains_init: The i-direction I/O-layout, IO_LAYOUT(1)=",i4, & &", does not evenly divide the i-direction layout, NIPROC=,",i4,".")') io_layout(1), layout(1) @@ -1582,7 +1582,7 @@ subroutine create_MOM_domain(MOM_dom, n_global, n_halo, reentrant, tripolar, lay if (io_layout(2) == 0) then MOM_dom%io_layout(2) = layout(2) elseif (io_layout(2) > 1) then - MOM_dom%layout(2) = io_layout(2) + MOM_dom%io_layout(2) = io_layout(2) if (modulo(layout(2), io_layout(2)) /= 0) then write(mesg,'("MOM_domains_init: The j-direction I/O-layout, IO_LAYOUT(2)=",i4, & &", does not evenly divide the j-direction layout, NJPROC=,",i4,".")') io_layout(2), layout(2)