Changeset 14698

Timestamp:

2021-04-13T14:11:15+02:00 (3 years ago)

Author:

jchanut

Message:

#2638: initialize agrif ghost cells number (to zero) on root grid (DOMAINcfg)

File:

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

utils/tools/DOMAINcfg/src/agrif_user.F90

@@ -1114 +1114 @@
 
       IF (.not.agrif_root()) THEN
-      lk_west  = .NOT. ( Agrif_Ix() == 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_west  = .NOT. ( Agrif_Ix() == 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)
          IF (.NOT.lk_south) THEN
             nbghostcells_y_s = 0
@@ -1134 +1134 @@
             WRITE(numout,*) 'lk_north', lk_north
          ENDIF
+      ELSE ! root grid
+         nbghostcells_x   = 0 
+         nbghostcells_y_s = 0 
+         nbghostcells_y_n = 0 
       ENDIF