Changeset 13238 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90

Timestamp:

2020-07-03T12:04:50+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: cosmetic modifications, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90

@@ -87 +87 @@
          kpi = kpi - 2   ! for compatibility with old version (because kerio=7) --> to be removed
          kpj = kpj - 2   ! for compatibility with old version (because kerio=7) --> to be removed
-      ELSE
-         kpi  = nbcellsx + 2 * ( nbghostcells + 1 )   ! Global Domain size: add nbghostcells + 1 "land" point on each side
-         kpj  = nbcellsy + 2 * ( nbghostcells + 1 )
+      ELSE                           ! Global Domain size: add nbghostcells + 1 "land" point on each side
+         kpi  = nbcellsx + nbghostcells_x   + nbghostcells_x   + 2
+         kpj  = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2
       ENDIF
       kpk = 2