Changeset 12765 for NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/step.F90

Timestamp:

2020-04-17T14:45:04+02:00 (4 years ago)

Author:

hadcv

Message:

tra_ldf_iso trial using public variables

File:

• NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/step.F90 (modified) (2 diffs)

NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/step.F90

@@ -81 +81 @@
       !!              -8- Outputs and diagnostics
       !!----------------------------------------------------------------------
-      INTEGER ::   ji, jj, jk   ! dummy loop indice
+      INTEGER ::   ji, jj, jk, jtile   ! dummy loop indice
       INTEGER ::   indic        ! error indicator if < 0
 !!gm kcall can be removed, I guess
@@ -264 +264 @@
       IF( lrst_oce .AND. ln_zdfosm ) &
            &             CALL osm_rst    ( kstp,      Nnn, 'WRITE'  )  ! write OSMOSIS outputs + ww (so must do here) to restarts
+
+      ! Loop over tile domains
+      DO jtile = 1, jpnijtile
+         IF( ln_tile )   CALL dom_tile( jtile )
                          CALL tra_ldf    ( kstp, Nbb, Nnn, ts, Nrhs )  ! lateral mixing
+      END DO
+      IF( ln_tile )      CALL dom_tile( 0 )                            ! Revert to tile over full domain
 
                          CALL tra_zdf    ( kstp, Nbb, Nnn, Nrhs, ts, Naa  )  ! vertical mixing and after tracer fields