Changeset 10815 for NEMO/releases/release-4.0/src/OCE/LBC/lib_mpp.F90

Timestamp:

2019-03-29T18:15:56+01:00 (6 years ago)

Author:

smasson

Message:

v4: minor fix for compilers requiring strict F90 rules

File:

• NEMO/releases/release-4.0/src/OCE/LBC/lib_mpp.F90 (modified) (2 diffs)

NEMO/releases/release-4.0/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