Changeset 14951 for NEMO/branches/2021/dev_r14608_AGRIF_domcfg/tests/VORTEX/MY_SRC/usrdef_nam.F90

Timestamp:

2021-06-04T17:35:08+02:00 (3 years ago)

Author:

jchanut

Message:

#2638, change grid positioning convention (again) in case of closed boundaries over parent grid. Accounting for 1 extra land cell in that case, child grids have to be shifted by 1 point to the South East.

File:

• NEMO/branches/2021/dev_r14608_AGRIF_domcfg/tests/VORTEX/MY_SRC/usrdef_nam.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14608_AGRIF_domcfg/tests/VORTEX/MY_SRC/usrdef_nam.F90

@@ -97 +97 @@
          ighost_n = nbghostcells
 
-         IF  ( Agrif_Ix() == 1 ) ighost_w = 0 
-         IF  ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo)+1 ) ighost_e = 0 
-         IF  ( Agrif_Iy() == 1 ) ighost_s = 0 
-         IF  ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo)+1 ) ighost_n = 0 
+         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 
 !         kpi  = nbcellsx + 2 * ( nbghostcells + 1 )
 !         kpj  = nbcellsy + 2 * ( nbghostcells + 1 )