From 9b4046c5f2cf3908eefff977812d30a0eabc9794 Mon Sep 17 00:00:00 2001 From: Xylar Asay-Davis Date: Fri, 31 May 2024 04:38:33 -0500 Subject: [PATCH] Fix bottom depth deepening in global_ocean init mode A bug was introduced in #6310 that made the ocean shallower rather than deeper than the minimum allowed depth. This merge fixes that bug. --- .../mpas-ocean/src/mode_init/mpas_ocn_init_global_ocean.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/mpas-ocean/src/mode_init/mpas_ocn_init_global_ocean.F b/components/mpas-ocean/src/mode_init/mpas_ocn_init_global_ocean.F index 1f75bd1c515d..0b810b193122 100644 --- a/components/mpas-ocean/src/mode_init/mpas_ocn_init_global_ocean.F +++ b/components/mpas-ocean/src/mode_init/mpas_ocn_init_global_ocean.F @@ -894,7 +894,7 @@ subroutine ocn_init_setup_global_ocean_create_model_topo(domain, iErr)!{{{ if (isOcean) then ! Enforce minimum depth bottomDepth(iCell) = max(bottomDepthObserved(iCell), config_global_ocean_minimum_depth) - bottomDepth(iCell) = min(bottomDepth(iCell), refBottomDepth(minimum_levels)) + bottomDepth(iCell) = max(bottomDepth(iCell), refBottomDepth(minimum_levels)) maxLevelCell(iCell) = -1 do k = 1, nVertLevels