fix selv induced OMP bug

CICE-Consortium · Feb 19, 2022 · f286e0b · f286e0b
1 parent 55dfe72
commit f286e0b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90
@@ -456,7 +456,7 @@ subroutine evp (dt)
          endif ! only subcycle when ndte larger than 1
 
          ! ksub = ndte last sub cycling step        
-         !OMP PARALLEL DO PRIVATE(iblk,strtmp) SCHEDULE(runtime)
+         !$OMP PARALLEL DO PRIVATE(iblk,strtmp) SCHEDULE(runtime)
          do iblk = 1, nblocks
 
 !            if (trim(yield_curve) == 'ellipse') then