fix omp directive for melt_potential

NOAA-GFDL · Mar 4, 2020 · 67e5481 · 67e5481
1 parent 46b1f34
commit 67e5481
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/MOM.F90 b/src/core/MOM.F90
@@ -2897,7 +2897,7 @@ subroutine extract_surface_state(CS, sfc_state)
 
 
   if (allocated(sfc_state%melt_potential)) then
-  !$OMP parallel do default(shared)
+  !$OMP parallel do default(shared) private(depth_ml, dh, T_freeze, depth, delT)
     do j=js,je
       do i=is,ie
         depth(i) = 0.0