Corrected yet another OMP directive

Added GV to the shared declaration in another openMP directive. All answers are bitwise identical.
NOAA-GFDL · Jan 5, 2021 · 2fd4596 · 2fd4596
1 parent 0697604
commit 2fd4596
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/parameterizations/vertical/MOM_CVMix_KPP.F90 b/src/parameterizations/vertical/MOM_CVMix_KPP.F90
@@ -1477,7 +1477,7 @@ subroutine KPP_NonLocalTransport_saln(CS, G, GV, h, nonLocalTrans, surfFlux, dt,
 
   !  Update tracer due to non-local redistribution of surface flux
   if (CS%applyNonLocalTrans) then
-    !$OMP parallel do default(none) shared(G, dt, scalar, dtracer)
+    !$OMP parallel do default(none) shared(G, GV, dt, scalar, dtracer)
     do k = 1, GV%ke
       do j = G%jsc, G%jec
         do i = G%isc, G%iec