updated init_tracer_AB

FESOM · Dec 5, 2023 · a9d0429 · a9d0429
1 parent 335e41c
commit a9d0429
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/oce_tracer_mod.F90 b/src/oce_tracer_mod.F90
@@ -198,6 +198,7 @@ SUBROUTINE relax_to_clim(tr_num, tracers, partit, mesh)
         #ifndef ENABLE_OPENACC
 !$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(n, nzmin, nzmax)
 #else
+!$ACC update device(relax2clim, Tclim)
 !$ACC parallel loop
 #endif
         DO n=1, myDim_nod2D
@@ -218,6 +219,7 @@ SUBROUTINE relax_to_clim(tr_num, tracers, partit, mesh)
         #ifndef ENABLE_OPENACC
 !$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(n, nzmin, nzmax)
 #else
+!$ACC update device(Sclim)
 !$ACC parallel loop
 #endif
         DO n=1, myDim_nod2D
@@ -233,4 +235,4 @@ SUBROUTINE relax_to_clim(tr_num, tracers, partit, mesh)
 #endif
     END IF 
 END SUBROUTINE relax_to_clim
-END MODULE o_tracers
+END MODULE o_tracers