- Timestamp:
- 2021-04-13T16:11:35+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/src/agrif_user.F90
r14698 r14703 232 232 CALL Agrif_Set_NearCommonBorderY(.TRUE.) 233 233 endif 234 if (.not.lk_north) THEN 235 CALL Agrif_Set_DistantCommonBorderY(.TRUE.) 236 endif 234 237 235 238 CALL agrif_declare_variable((/2,2/),(/ind2,ind3/),(/'x','y'/),(/1,1/),(/jpi,jpj/),glamt_id) … … 393 396 ENDIF 394 397 395 IF( bounds(2,2,2) > jpjglo) THEN398 IF(( bounds(2,2,2) > jpjglo ).AND.(npolj/=0)) THEN 396 399 IF( bounds(2,1,2) <= jpjglo ) THEN 397 400 nb_chunks = 2 … … 488 491 ENDIF ! bounds(2,1,2) <= jpjglo 489 492 490 ELSE IF ( bounds(1,1,2) < 1) THEN493 ELSE IF ((bounds(1,1,2) < 1).AND.(l_Iperio)) THEN 491 494 492 495 IF (bounds(1,2,2) > 0) THEN
Note: See TracChangeset
for help on using the changeset viewer.