Changeset 13819 for NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/step.F90

Timestamp:

2020-11-18T19:02:11+01:00 (3 years ago)

Author:

hadcv

Message:

#2365: Final fixes and changes

File:

• NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/step.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/step.F90

@@ -265 +265 @@
          IF( ln_tradmp  )   CALL tra_dmp    ( kstp, Nbb, Nnn, ts, Nrhs )  ! internal damping trends
          IF( ln_bdy     )   CALL bdy_tra_dmp( kstp, Nbb,      ts, Nrhs )  ! bdy damping trends
-#if defined key_agrif
-         ! TODO: TO BE TILED- I don't know what this does, or whether it can just be run for ntile == nijtile
-         IF(.NOT. Agrif_Root())  &
-                  &         CALL Agrif_Sponge_tra        ! tracers sponge
-#endif
       END DO
 
-      ! TEMP: Loop over tile domains (seperate due to tra_adv workarounds for tiling)
+#if defined key_agrif
+         IF(.NOT. Agrif_Root()) THEN
+            IF( ln_tile ) CALL dom_tile( ntsi, ntsj, ntei, ntej, ktile = 0 )
+            CALL Agrif_Sponge_tra        ! tracers sponge
+         ENDIF
+#endif
+
+      ! TEMP: [tiling] Separate loop over tile domains (due to tra_adv workarounds for tiling)
       DO jtile = 1, nijtile
          IF( ln_tile ) CALL dom_tile( ntsi, ntsj, ntei, ntej, ktile = jtile )