For equalGM, change taper to GM too

E3SM-Project · Apr 27, 2022 · 8c2fafc · 8c2fafc
1 parent 172cad5
commit 8c2fafc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_gm.F b/components/mpas-ocean/src/shared/mpas_ocn_gm.F
@@ -766,7 +766,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