Changeset 15440 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/OCE/LBC/lbc_lnk_pt2pt_generic.h90

Timestamp:

2021-10-23T12:18:24+02:00 (3 years ago)

Author:

cetlod

Message:

dev_PISCO : merge with trunk@15439

File:

• NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/OCE/LBC/lbc_lnk_pt2pt_generic.h90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/OCE/LBC/lbc_lnk_pt2pt_generic.h90

@@ -10 +10 @@
       REAL(PRECISION),      OPTIONAL, INTENT(in   ) ::   pfillval    ! background value (used at closed boundaries)
       INTEGER ,             OPTIONAL, INTENT(in   ) ::   khls        ! halo size, default = nn_hls
-      LOGICAL, DIMENSION(4),OPTIONAL, INTENT(in   ) ::   lsend, lrecv  ! communication with other 4 proc
+      LOGICAL, DIMENSION(8),OPTIONAL, INTENT(in   ) ::   lsend, lrecv  ! communication with other 4 proc
       LOGICAL,              OPTIONAL, INTENT(in   ) ::   ld4only     ! if .T., do only 4-neighbour comm (ignore corners)
       !
@@ -72 +72 @@
       ! define llsend and llrecv: logicals which say if mpi-neibourgs for send or receive exist or not.
       IF     ( PRESENT(lsend) .AND. PRESENT(lrecv) ) THEN   ! localy defined neighbourgs 
-         llsend(1:4) = lsend(1:4)   ;   llrecv(1:4) = lrecv(1:4)
+         llsend(:) = lsend(:)   ;   llrecv(:) = lrecv(:)
       ELSE IF( PRESENT(lsend) .OR.  PRESENT(lrecv) ) THEN
          WRITE(ctmp1,*) TRIM(cdname), ' is calling lbc_lnk with only one of the two arguments lsend or lrecv'