Changeset 14633

Timestamp:

2021-03-24T11:01:30+01:00 (3 years ago)

Author:

jchanut

Message:

AGFdomcfg: fixes internal flags in the East-West periodic case and in cmems demo, #2638

Location:

utils/tools/DOMAINcfg

Files:

• AGRIF_FixedGrids.in_cmems (modified) (1 diff)
• src/agrif_user.F90 (modified) (1 diff)

utils/tools/DOMAINcfg/AGRIF_FixedGrids.in_cmems

@@ -2 +2 @@
 -10 15 57 75 3 3 3
 30 70 126 170 3 3 3
-1 181 1 35 3 3 3
+1 179 1 35 3 3 3
 0
 0

utils/tools/DOMAINcfg/src/agrif_user.F90

@@ -1113 +1113 @@
       IF (.not.agrif_root()) THEN
       lk_west  = .NOT. ( Agrif_Ix() == 1 )
-      lk_east  = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(jpiglo) -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(jpjglo) -1 )
-        IF (.NOT.lk_south) THEN
-          nbghostcells_y_s = 0
-        ENDIF
+      lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo) -1 )
+         IF (.NOT.lk_south) THEN
+            nbghostcells_y_s = 0
+         ENDIF
+         IF (.NOT.lk_north) THEN
+            nbghostcells_y_n = 0
+         ENDIF
+         IF(lwp) THEN                     ! Control print
+            WRITE(numout,*)
+            WRITE(numout,*) 'nbghostcells_y_s', nbghostcells_y_s
+            WRITE(numout,*) 'nbghostcells_y_n', nbghostcells_y_n
+            WRITE(numout,*) 'nbghostcells_x', nbghostcells_x
+            WRITE(numout,*) 'lk_west', lk_west
+            WRITE(numout,*) 'lk_east', lk_east
+            WRITE(numout,*) 'lk_south', lk_south
+            WRITE(numout,*) 'lk_north', lk_north
+         ENDIF
       ENDIF