Changeset 12766 for NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_structure/src/OCE/DOM/dom_oce.F90

Timestamp:

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

Author:

hadcv

Message:

tra_ldf_iso trial using structures

File:

• NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_structure/src/OCE/DOM/dom_oce.F90 (modified) (1 diff)

NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_structure/src/OCE/DOM/dom_oce.F90

@@ -72 +72 @@
    !                                !  = 7 bi-cyclic East-West AND North-South
    LOGICAL, PUBLIC ::   l_Iperio, l_Jperio   !   should we explicitely take care I/J periodicity 
+
+   ! Tiling namelist
+   LOGICAL, PUBLIC ::   ln_tile
+   INTEGER         ::   nn_tile_i, nn_tile_j
+
+   ! Tile indices
+   TYPE, PUBLIC    ::   TILE
+      INTEGER      ::   ntsi, ntsj, ntei, ntej, ntsim1, ntsjm1, nteip1, ntejp1, ntile
+   END TYPE TILE
 
    !                                 !  domain MPP decomposition parameters