Changeset 14336 for NEMO/branches/2021/dev_r14312_MPI_Interface/src/NST

Timestamp:

2021-01-23T11:09:54+01:00 (3 years ago)

Author:

smasson

Message:

dev_r14312_MPI_Interface: replace jperio by l_Iperio, l_Jperio, l_NFold, c_NFtype, #2598

File:

• NEMO/branches/2021/dev_r14312_MPI_Interface/src/NST/agrif_user.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14312_MPI_Interface/src/NST/agrif_user.F90

@@ -63 +63 @@
 ! In case of East-West periodicity, prevent AGRIF interpolation at east and west boundaries
 ! The procnames will not be called at these boundaries
-      IF (jperio == 1) THEN
+      IF (l_Iperio) THEN
          CALL Agrif_Set_NearCommonBorderX(.TRUE.)
          CALL Agrif_Set_DistantCommonBorderX(.TRUE.)
@@ -872 +872 @@
       nbghostcells_y_n = nbghostcells
       !
-      IF(   jperio == 1  )   nbghostcells_x   = 0
+      IF(    l_Iperio    )   nbghostcells_x   = 0
       IF( .NOT. lk_south )   nbghostcells_y_s = 0
       IF( .NOT. lk_north )   nbghostcells_y_n = 0