From f286e0bce4406cc5ff9bd1b869537ac4fd0387ae Mon Sep 17 00:00:00 2001 From: TillRasmussen Date: Sat, 19 Feb 2022 22:51:13 +0000 Subject: [PATCH] fix selv induced OMP bug --- cicecore/cicedynB/dynamics/ice_dyn_evp.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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