Changeset 14674 for utils/tools/DOMAINcfg/src/agrif_user.F90

Timestamp:

2021-04-06T14:36:08+02:00 (3 years ago)

Author:

ldebreu

Message:

AGFdomcfg: corrections for east-west cyclic grids, #2368

File:

• utils/tools/DOMAINcfg/src/agrif_user.F90 (modified) (2 diffs)

utils/tools/DOMAINcfg/src/agrif_user.F90

@@ -215 +215 @@
       !---------------------------------------------------------------------
 
-      ind2 = nn_hls + 2 + nbghostcells_x
-      ind3 = nn_hls + 2 + nbghostcells_y_s
+      ind2 = nn_hls + 1 + nbghostcells_x
+      ind3 = nn_hls + 1 + nbghostcells_y_s
 
       nbghostcellsfine_tot_x=nbghostcells_x+1
@@ -1115 +1115 @@
       IF (.not.agrif_root()) THEN
       lk_west  = .NOT. ( Agrif_Ix() == 1 )
-      lk_east  = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo) -1 )
+      lk_east  = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo) + 1 )
       lk_south = .NOT. ( Agrif_Iy() == 1 )
-      lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) -1 )
+      lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) + 1)
          IF (.NOT.lk_south) THEN
             nbghostcells_y_s = 0