Changeset 12766 for NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_structure/src/OCE/par_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/par_oce.F90 (modified) (1 diff)

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

@@ -62 +62 @@
    INTEGER, PUBLIC ::   jpjmax! = ( jpjglo-2*nn_hls + (jpnj-1) ) / jpnj + 2*nn_hls !: maximum jpj
 
+   ! Tiling decomposition
+   INTEGER, PUBLIC ::   jpnitile                !: number of tiles following i
+   INTEGER, PUBLIC ::   jpnjtile                !: number of tiles following j
+   INTEGER, PUBLIC ::   jpnijtile               !: number of tiles in total (jpnitile x jpnjtile)
+
    !!---------------------------------------------------------------------
    !! Active tracer parameters