- Timestamp:
- 2021-06-25T11:38:06+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/src/agrif_user.F90
r14952 r15059 396 396 INTEGER,DIMENSION(:,:,:,:),allocatable :: bounds_chunks 397 397 LOGICAL,DIMENSION(:),allocatable :: correction_required 398 LOGICAL :: ldIperio, ldNFold 398 399 INTEGER :: nb_chunks 399 400 INTEGER :: i … … 405 406 ENDIF 406 407 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 408 412 IF( bounds(2,1,2) <= jpjglo ) THEN 409 413 nb_chunks = 2 … … 500 504 ENDIF ! bounds(2,1,2) <= jpjglo 501 505 502 ELSE IF ( (bounds(1,1,2) < 1).AND.(l_Iperio)) THEN506 ELSE IF ( (bounds(1,1,2) < 1).AND.ldIperio ) THEN 503 507 504 508 IF (bounds(1,2,2) > 0) THEN
Note: See TracChangeset
for help on using the changeset viewer.