Changeset 15265 for NEMO/trunk/tests/VORTEX

Timestamp:

2021-09-16T13:13:13+02:00 (3 years ago)

Author:

jchanut

Message:

Improve ghost cell initialization with AGRIF + minor changes such as missing _wp, tests namelists updates, etc... can be assigned to #2638

File:

• NEMO/trunk/tests/VORTEX/MY_SRC/usrdef_nam.F90 (modified) (1 diff)

NEMO/trunk/tests/VORTEX/MY_SRC/usrdef_nam.F90

@@ -97 +97 @@
          ighost_n = nbghostcells
 
-         IF  ( Agrif_Ix() == 1 ) ighost_w = 1 
-         IF  ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo) - 1 ) ighost_e = 1 
-         IF  ( Agrif_Iy() == 1 ) ighost_s = 1 
-         IF  ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) - 1 ) ighost_n = 1 
+         ! In case one sets zoom boundaries over domain edges: 
+         IF  ( Agrif_Ix() == 2 - Agrif_Parent(nbghostcells_x_w) ) ighost_w = 1
+         IF  ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo) - Agrif_Parent(nbghostcells_x_w) ) ighost_e = 1 
+         IF  ( Agrif_Iy() == 2 - Agrif_Parent(nbghostcells_y_s) ) ighost_s = 1
+         IF  ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) - Agrif_Parent(nbghostcells_y_s) ) ighost_n = 1 
 !         kpi  = nbcellsx + 2 * ( nbghostcells + 1 )
 !         kpj  = nbcellsy + 2 * ( nbghostcells + 1 )