Changeset 13238 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/USR/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/src/OCE/USR/usrdef_nam.F90 (modified) (1 diff)

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

@@ -69 +69 @@
       kk_cfg = nn_GYRE
       !
-      kpi = 30 * nn_GYRE + 2       ! Global Domain size: add 1 land point on each side
-      kpj = 20 * nn_GYRE + 2
-#if defined key_agrif
-      IF( .NOT. Agrif_Root() ) THEN
-         kpi  = nbcellsx + 2 * ( nbghostcells_x   + 1 )   ! Global Domain size: add nbghostcells + 1 "land" point on each side
+      IF( Agrif_Root() ) THEN         ! Global Domain size: add 1 land point on each side
+         kpi = 30 * nn_GYRE + 2       !                     
+         kpj = 20 * nn_GYRE + 2
+      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
-#endif
       kpk = jpkglo
       !                             ! Set the lateral boundary condition of the global domain