Changeset 13182 for NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90

Timestamp:

2020-06-30T18:05:17+02:00 (4 years ago)

Author:

rblod

Message:

#2129 : move lk_south declaration + compatibility with SAS

File:

• NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90

@@ -239 +239 @@
 
       IF( agrif_oce_alloc()  > 0 )   CALL ctl_warn('agrif agrif_oce_alloc: allocation of arrays failed')
-
-      lk_west  = .NOT. ( Agrif_Ix() == 1 )
-      lk_east  = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(jpiglo) -1 )
-      lk_south = .NOT. ( Agrif_Iy() == 1 )
-      lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(jpjglo) -1 )
 
       ! Build consistent parent bathymetry and number of levels
@@ -877 +872 @@
          WRITE(numout,*) '      check bathymetry                  ln_chk_bathy  = ', ln_chk_bathy
       ENDIF
+
+      lk_west  = .NOT. ( Agrif_Ix() == 1 )
+      lk_east  = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(jpiglo) -1 )
+      lk_south = .NOT. ( Agrif_Iy() == 1 )
+      lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(jpjglo) -1 )
+
       !
       ! Set the number of ghost cells according to periodicity
@@ -885 +886 @@
       IF ( jperio == 1 ) nbghostcells_x = 0
       IF ( .NOT. lk_south ) nbghostcells_y_s = 0
+
+      write(*,*) lk_south, nbghostcells_y_s, nbghostcells_y_n
 
       ! Some checks