Add missing omp private variables for data subglacial runoff

E3SM-Project · Sep 26, 2024 · f4d95ed · f4d95ed
1 parent fc02007
commit f4d95ed
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/components/mpas-ocean/src/shared/mpas_ocn_diagnostics.F b/components/mpas-ocean/src/shared/mpas_ocn_diagnostics.F
@@ -3540,6 +3540,7 @@ subroutine ocn_compute_KPP_input_fields(statePool, forcingPool, &
       !$omp parallel
       !$omp do schedule(runtime) &
       !$omp private(kmin, fracAbsorbed, fracAbsorbedRunoff, fracAbsorbedSubglacialRunoff, &
+      !$omp         zTop, k, zBot, transmissionCoeffTop, transmissionCoeffBot, &
       !$omp         sumSurfaceStressSquared, i, iEdge)
       do iCell = 1, nCells