fix openmp error message

FESOM · Aug 28, 2024 · 2a6ef1c · 2a6ef1c
1 parent 93a96e7
commit 2a6ef1c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/gen_modules_diag.F90 b/src/gen_modules_diag.F90
@@ -1083,7 +1083,7 @@ subroutine diag_trgrd_xyz(mode, tracers, partit, mesh)
 
     !___________________________________________________________________________
     ! compute vertical tracer gradient
-!$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(n, nz, nzu, nzl)
+!$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(node, nz, nzu, nzl)
     do node=1, myDim_nod2D
         nzl=nlevels_nod2D(node)
         nzu=ulevels_nod2D(node)