diff --git a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90
index ccb12c81d..bb3e5d512 100644
--- 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