Changeset 15059

Timestamp:

2021-06-25T11:38:06+02:00 (3 years ago)

Author:

jchanut

Message:

#2638, replace flags for cyclic boundaries to run DOMAINcfg with agrif and cyclic boundaries in mpp (as is, l_Iperio is indeed false in mpp mode).

File:

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

utils/tools/DOMAINcfg/src/agrif_user.F90

@@ -396 +396 @@
       INTEGER,DIMENSION(:,:,:,:),allocatable :: bounds_chunks
       LOGICAL,DIMENSION(:),allocatable :: correction_required
+      LOGICAL :: ldIperio, ldNFold
       INTEGER :: nb_chunks
       INTEGER :: i
@@ -405 +406 @@
       ENDIF
 
-      IF(( bounds(2,2,2) > jpjglo ).AND.(npolj/=0)) THEN
+      ldIperio = (jperio == 1 .OR. jperio == 4 .OR. jperio == 6 .OR. jperio == 7)
+      ldNFold  = jperio >= 3 .AND. jperio <= 6
+
+      IF( ( bounds(2,2,2) > jpjglo ).AND.ldNFold ) THEN
          IF( bounds(2,1,2) <= jpjglo ) THEN
             nb_chunks = 2
@@ -500 +504 @@
          ENDIF  ! bounds(2,1,2) <= jpjglo
 
-      ELSE IF ((bounds(1,1,2) < 1).AND.(l_Iperio)) THEN
+      ELSE IF ( (bounds(1,1,2) < 1).AND.ldIperio ) THEN
          
          IF (bounds(1,2,2) > 0) THEN