Merge pull request #522 from FESOM/refactoring_FCT_OMP_BUGFIX

an OMP bux fix in tracer FCT
FESOM · Oct 26, 2023 · 849b732 · 849b732
2 parents ac082c8 + 62d3e6a
commit 849b732
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/oce_adv_tra_fct.F90 b/src/oce_adv_tra_fct.F90
@@ -104,7 +104,7 @@ subroutine oce_tra_adv_fct(dt, ttf, lo, adf_h, adf_v, fct_ttf_min, fct_ttf_max,
 #include "associate_mesh_ass.h"
 
 !$OMP PARALLEL DEFAULT(SHARED) PRIVATE(n, nz, k, elem, enodes, num, el, nl1, nl2, nu1, nu2, nl12, nu12, edge, &
-!$OMP                          flux, ae,tvert_max, tvert_min)
+!$OMP                          flux, ae)
     ! --------------------------------------------------------------------------
     ! ttf is the tracer field on step n
     ! del_ttf is the increment