Changeset 15354 for NEMO/trunk/src/OCE/BDY/bdytra.F90

Timestamp:

2021-10-12T15:44:46+02:00 (3 years ago)

Author:

smasson

Message:

trunk: BDY compliant with corner communications, see #2731

File:

• NEMO/trunk/src/OCE/BDY/bdytra.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/BDY/bdytra.F90

@@ -55 +55 @@
       TYPE(ztrabdy), DIMENSION(jpts) :: zdta                   ! Temporary data structure
       LOGICAL                        :: llrim0                 ! indicate if rim 0 is treated
-      LOGICAL, DIMENSION(4)          :: llsend1, llrecv1       ! indicate how communications are to be carried out
+      LOGICAL, DIMENSION(8)          :: llsend1, llrecv1       ! indicate how communications are to be carried out
       !!----------------------------------------------------------------------
       igrd = 1
@@ -96 +96 @@
                llrecv1(:) = llrecv1(:) .OR. lrecv_bdyint(ib_bdy,1,:,ir)   ! possibly every direction, T points
             CASE('orlanski', 'orlanski_npo')
-               llsend1(:) = llsend1(:) .OR. lsend_bdy(ib_bdy,1,:,ir)   ! possibly every direction, T points
-               llrecv1(:) = llrecv1(:) .OR. lrecv_bdy(ib_bdy,1,:,ir)   ! possibly every direction, T points
+               llsend1(:) = llsend1(:) .OR. lsend_bdyolr(ib_bdy,1,:,ir)   ! possibly every direction, T points
+               llrecv1(:) = llrecv1(:) .OR. lrecv_bdyolr(ib_bdy,1,:,ir)   ! possibly every direction, T points
             END SELECT
          END DO