Merge pull request #534 from FESOM/refactoring_EVPdynamics_OMP_bugfix

fix OpenMP in EVPdynamics
FESOM · Nov 8, 2023 · c5e2f09 · c5e2f09
2 parents 231c416 + aec5350
commit c5e2f09
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ice_maEVP.F90 b/src/ice_maEVP.F90
@@ -764,12 +764,12 @@ subroutine EVPdynamics_m(ice, partit, mesh)
                             (sigma11(el)*dx(2)+sigma12(el)*(dy(2) + meancos))                         !metrics
                     v_rhs_ice(elnodes(2)) = v_rhs_ice(elnodes(2)) - elem_area(el)* &
                             (sigma12(el)*dx(2)+sigma22(el)*dy(2) - sigma11(el)*meancos)               !metrics
-                end if
 #if defined(_OPENMP) && !defined(__openmp_reproducible)
                 call omp_unset_lock(partit%plock(elnodes(2)))
 #else
 !$OMP END ORDERED
 #endif
+                end if
 
                 if (elnodes(3) <= myDim_nod2D) then
 #if defined(_OPENMP) && !defined(__openmp_reproducible)