Changeset 11719 for NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/par_oce.F90

Timestamp:

2019-10-18T12:52:29+02:00 (5 years ago)

Author:

francesca

Message:

add extra halo support- ticket #2009

File:

• NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/par_oce.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/par_oce.F90

@@ -57 +57 @@
    INTEGER, PUBLIC ::   jpimax! = ( jpiglo-2*nn_hls + (jpni-1) ) / jpni + 2*nn_hls !: maximum jpi
    INTEGER, PUBLIC ::   jpjmax! = ( jpjglo-2*nn_hls + (jpnj-1) ) / jpnj + 2*nn_hls !: maximum jpj
+   INTEGER, PUBLIC ::   jplbi
+   INTEGER, PUBLIC ::   jplbj
 
    !!---------------------------------------------------------------------
@@ -74 +76 @@
    INTEGER, PUBLIC, PARAMETER ::   jpr2di = 0   !: number of columns for extra outer halo 
    INTEGER, PUBLIC, PARAMETER ::   jpr2dj = 0   !: number of rows    for extra outer halo 
-   INTEGER, PUBLIC, PARAMETER ::   nn_hls = 1   !: halo width (applies to both rows and columns)
+   INTEGER, PUBLIC            ::   nn_hls       !: halo width (applies to both rows and columns)
 
    !!----------------------------------------------------------------------