Changeset 12586 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/par_oce.F90

Timestamp:

2020-03-23T13:14:40+01:00 (4 years ago)

Author:

francesca

Message:

Add extra-halo support (jperio 3,4) - ticket #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/par_oce.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/par_oce.F90

@@ -61 +61 @@
    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
 
    !!---------------------------------------------------------------------
@@ -78 +80 @@
    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)
 
    !!----------------------------------------------------------------------