Re-merge branch 'vanroekel/ocean/fix-richardson-number-calculation' i…

…nto next (PR #5946)
E3SM-Project · Oct 25, 2023 · 8ecb73d · 8ecb73d
2 parents 62ab242 + cfb1208
commit 8ecb73d
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_diagnostics.F b/components/mpas-ocean/src/shared/mpas_ocn_diagnostics.F
@@ -1594,11 +1594,12 @@ subroutine ocn_diagnostic_solve_richardson(displacedDensity, density, zMid, &
       !$acc parallel loop gang vector &
       !$acc          present(RiTopOfCell, maxLevelCell, nEdgesOnCell, edgesOnCell, normalVelocity, &
       !$acc                  edgeAreaFractionOfCell, zMid, BruntVaisalaFreqTop, minLevelCell) &
-      !$acc          private(k, i, iEdge, delU2, shearSquared, shearMean)
+      !$acc          private(k, i, iEdge, delU2, shearMean, jCell, shear, dz_edge, Ri_edge, &
+      !$acc                  RiTopOfCellNorm)
 #else
       !$omp parallel
-      !$omp do schedule(runtime) private(k, shearSquared, i, iEdge, delU2, shearMean, &
-      !$omp                              jCell, shear, dz_edge, Ri_edge)
+      !$omp do schedule(runtime) private(k, i, iEdge, delU2, shearMean, jCell, shear, &
+      !$omp                              dz_edge, Ri_edge, RiTopOfCellNorm)
 #endif
       do iCell=1,nCells
          RiTopOfCell(:,iCell) = 100.0_RKIND