Changeset 14703


Ignore:
Timestamp:
2021-04-13T16:11:35+02:00 (4 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/DOMAINcfg/src/agrif_user.F90

    r14698 r14703  
    232232        CALL Agrif_Set_NearCommonBorderY(.TRUE.) 
    233233      endif 
     234      if (.not.lk_north) THEN 
     235        CALL Agrif_Set_DistantCommonBorderY(.TRUE.) 
     236      endif 
    234237 
    235238      CALL agrif_declare_variable((/2,2/),(/ind2,ind3/),(/'x','y'/),(/1,1/),(/jpi,jpj/),glamt_id) 
     
    393396      ENDIF 
    394397 
    395       IF( bounds(2,2,2) > jpjglo ) THEN 
     398      IF(( bounds(2,2,2) > jpjglo ).AND.(npolj/=0)) THEN 
    396399         IF( bounds(2,1,2) <= jpjglo ) THEN 
    397400            nb_chunks = 2 
     
    488491         ENDIF  ! bounds(2,1,2) <= jpjglo 
    489492 
    490       ELSE IF (bounds(1,1,2) < 1) THEN 
     493      ELSE IF ((bounds(1,1,2) < 1).AND.(l_Iperio)) THEN 
    491494          
    492495         IF (bounds(1,2,2) > 0) THEN 
Note: See TracChangeset for help on using the changeset viewer.