Changeset 14702

Timestamp:

2021-04-13T16:08:34+02:00 (3 years ago)

Author:

jchanut

Message:

#2638, push restrictions in agrif mapping in case of East-West periodic or North Fold lbcs

File:

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

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

@@ -970 +970 @@
       ENDIF
 
-      IF( bounds(2,2,2) > jpjglo) THEN
+      IF(( bounds(2,2,2) > jpjglo).AND. ( l_NFold )) THEN
          IF( bounds(2,1,2) <=jpjglo) THEN
             nb_chunks = 2
@@ -1062 +1062 @@
          ENDIF
 
-      ELSE IF (bounds(1,1,2) < 1) THEN
+      ELSE IF ((bounds(1,1,2) < 1).AND.( l_Iperio )) THEN
          IF (bounds(1,2,2) > 0) THEN
             nb_chunks = 2