Changeset 12942 for NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/IOM/prtctl.F90

Timestamp:

2020-05-18T13:14:54+02:00 (3 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/IOM/prtctl.F90 (modified) (1 diff)

NEMO/branches/UKMO/dev_r12866_HPC-02_Daley_Tiling_trial_extra_halo/src/OCE/IOM/prtctl.F90

@@ -94 +94 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk) :: zmask1, zmask2, ztab3d_1, ztab3d_2
       !!----------------------------------------------------------------------
+      ! TODO: TO BE TILED
+      IF( ntile /= 0 .AND. ntile /= nijtile ) RETURN
 
       ! Arrays, scalars initialization