Changeset 12942 for NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/TRA/traldf_iso.F90

Timestamp:

2020-05-18T13:14:54+02:00 (4 years ago)

Author:

hadcv

Message:

Correct/improve IF blocks for one tile code

File:

• NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/TRA/traldf_iso.F90 (modified) (3 diffs)

NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/TRA/traldf_iso.F90

@@ -114 +114 @@
       !
       IF( kpass == 1 .AND. kt == kit000 )  THEN
-         IF( ntile == 1 )  THEN                       ! Do only on the first tile
+         IF( ntile == 0 .OR. ntile == 1 )  THEN                       ! Do only on the first tile
             ! TODO: TO BE TILED
             IF(lwp) WRITE(numout,*)
@@ -321 +321 @@
          END_3D
          !
-         IF( ntile == nijtile )  THEN                          ! Do only after all tiles finish
          IF( ( kpass == 1 .AND. ln_traldf_lap ) .OR.  &     !==  first pass only (  laplacian)  ==!
              ( kpass == 2 .AND. ln_traldf_blp ) ) THEN      !==  2nd   pass      (bilaplacian)  ==!
@@ -334 +333 @@
             !
          ENDIF                                                    !== end pass selection  ==!
-         ENDIF
          !
          !                                                        ! ===============