Changeset 14703

Timestamp:

2021-04-13T16:11:35+02:00 (3 years ago)

Author:

jchanut

Message:

#2638, push restrictions in agrif mapping in case of East-West periodic or North Fold lbcs + Disable interp if lk_north=.false.

File:

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

utils/tools/DOMAINcfg/src/agrif_user.F90

@@ -232 +232 @@
         CALL Agrif_Set_NearCommonBorderY(.TRUE.)
       endif
+      if (.not.lk_north) THEN
+        CALL Agrif_Set_DistantCommonBorderY(.TRUE.)
+      endif
 
       CALL agrif_declare_variable((/2,2/),(/ind2,ind3/),(/'x','y'/),(/1,1/),(/jpi,jpj/),glamt_id)
@@ -393 +396 @@
       ENDIF
 
-      IF( bounds(2,2,2) > jpjglo ) THEN
+      IF(( bounds(2,2,2) > jpjglo ).AND.(npolj/=0)) THEN
          IF( bounds(2,1,2) <= jpjglo ) THEN
             nb_chunks = 2
@@ -488 +491 @@
          ENDIF  ! bounds(2,1,2) <= jpjglo
 
-      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