Changeset 15301

Timestamp:

2021-09-29T16:57:13+02:00 (20 months ago)

Author:

smasson

Message:

trunk: minor fix in lbc_lnk_neicoll_generic.h90 (when having zero-size array)

File:

• NEMO/trunk/src/OCE/LBC/lbc_lnk_neicoll_generic.h90 (modified) (1 diff)

NEMO/trunk/src/OCE/LBC/lbc_lnk_neicoll_generic.h90

@@ -144 +144 @@
       iScnt(:) = PACK( iszall, mask = llsend )                                       ! ok if mask = .false.
       iRcnt(:) = PACK( iszall, mask = llrecv )
-      iSdpl(1) = 0
+      IF( iszS > 0 )   iSdpl(1) = 0
       DO jn = 2,iszS
          iSdpl(jn) = iSdpl(jn-1) + iScnt(jn-1)   ! with _alltoallv: in units of sendtype
       END DO
-      iRdpl(1) = 0
+      IF( iszR > 0 )   iRdpl(1) = 0
       DO jn = 2,iszR
          iRdpl(jn) = iRdpl(jn-1) + iRcnt(jn-1)   ! with _alltoallv: in units of sendtype