Changeset 15059


Ignore:
Timestamp:
2021-06-25T11:38:06+02:00 (4 months 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:
1 edited

Legend:

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

    r14952 r15059  
    396396      INTEGER,DIMENSION(:,:,:,:),allocatable :: bounds_chunks 
    397397      LOGICAL,DIMENSION(:),allocatable :: correction_required 
     398      LOGICAL :: ldIperio, ldNFold 
    398399      INTEGER :: nb_chunks 
    399400      INTEGER :: i 
     
    405406      ENDIF 
    406407 
    407       IF(( bounds(2,2,2) > jpjglo ).AND.(npolj/=0)) THEN 
     408      ldIperio = (jperio == 1 .OR. jperio == 4 .OR. jperio == 6 .OR. jperio == 7) 
     409      ldNFold  = jperio >= 3 .AND. jperio <= 6 
     410 
     411      IF( ( bounds(2,2,2) > jpjglo ).AND.ldNFold ) THEN 
    408412         IF( bounds(2,1,2) <= jpjglo ) THEN 
    409413            nb_chunks = 2 
     
    500504         ENDIF  ! bounds(2,1,2) <= jpjglo 
    501505 
    502       ELSE IF ((bounds(1,1,2) < 1).AND.(l_Iperio)) THEN 
     506      ELSE IF ( (bounds(1,1,2) < 1).AND.ldIperio ) THEN 
    503507          
    504508         IF (bounds(1,2,2) > 0) THEN 
Note: See TracChangeset for help on using the changeset viewer.