Changeset 10817 for NEMO/trunk/src/OCE/LBC

Timestamp:

2019-03-29T18:23:45+01:00 (5 years ago)

Author:

smasson

Message:

trunk: report [10815] and [10816] from v4

File:

• NEMO/trunk/src/OCE/LBC/lib_mpp.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/LBC/lib_mpp.F90

@@ -176 +176 @@
       COMPLEX(wp), POINTER, DIMENSION(:) ::  y1d => NULL()
    END TYPE DELAYARR
-   TYPE( DELAYARR ), DIMENSION(nbdelay), PUBLIC  ::   todelay              
-   INTEGER,          DIMENSION(nbdelay), PUBLIC  ::   ndelayid = -1     !: mpi request id of the delayed operations
+   TYPE( DELAYARR ), DIMENSION(nbdelay), PUBLIC, SAVE  ::   todelay         !: must have SAVE for default initialization of DELAYARR
+   INTEGER,          DIMENSION(nbdelay), PUBLIC        ::   ndelayid = -1   !: mpi request id of the delayed operations
 
    ! timing summary report
@@ -918 +918 @@
          CALL mpi_finalize( info )
       ENDIF
-      IF( .NOT. llfinal ) STOP 123456
+      IF( .NOT. llfinal ) STOP 123
       !
    END SUBROUTINE mppstop