From 142ee4686b6bb542af76628724835b6705136c62 Mon Sep 17 00:00:00 2001 From: Mark Petersen Date: Wed, 27 Apr 2022 14:37:32 -0600 Subject: [PATCH] For equalGM, change taper to GM too --- components/mpas-ocean/src/shared/mpas_ocn_gm.F | 2 +- components/mpas-ocean/src/shared/mpas_ocn_tracer_hmix_redi.F | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/components/mpas-ocean/src/shared/mpas_ocn_gm.F b/components/mpas-ocean/src/shared/mpas_ocn_gm.F index 1665e94144a1..0e6cdca08cec 100644 --- a/components/mpas-ocean/src/shared/mpas_ocn_gm.F +++ b/components/mpas-ocean/src/shared/mpas_ocn_gm.F @@ -770,7 +770,7 @@ subroutine ocn_GM_compute_Bolus_velocity(statePool, & !$omp parallel !$omp do schedule(runtime) do iEdge=1, nEdges - RediKappa(iEdge) = RediHorizontalTaper(iEdge) * gmBolusKappa(iEdge) + RediKappa(iEdge) = gmHorizontalTaper(iEdge) * gmBolusKappa(iEdge) end do !$omp end do !$omp end parallel diff --git a/components/mpas-ocean/src/shared/mpas_ocn_tracer_hmix_redi.F b/components/mpas-ocean/src/shared/mpas_ocn_tracer_hmix_redi.F index 8875e95f0c2b..47d17483e276 100644 --- a/components/mpas-ocean/src/shared/mpas_ocn_tracer_hmix_redi.F +++ b/components/mpas-ocean/src/shared/mpas_ocn_tracer_hmix_redi.F @@ -538,6 +538,8 @@ subroutine ocn_tracer_hmix_Redi_init(domain, err)!{{{ ! initialize Redi kappa array if (config_Redi_closure == 'constant'.or. & config_Redi_closure == 'equalGM') then + ! For 'equalGM' RediKappa is updated every step. Just + ! initialize here. !$omp parallel !$omp do schedule(runtime) do iEdge = 1, nEdges