Ignore:
Timestamp:
2019-03-29T18:23:45+01:00 (20 months ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/lib_mpp.F90

    r10781 r10817  
    176176      COMPLEX(wp), POINTER, DIMENSION(:) ::  y1d => NULL() 
    177177   END TYPE DELAYARR 
    178    TYPE( DELAYARR ), DIMENSION(nbdelay), PUBLIC  ::   todelay               
    179    INTEGER,          DIMENSION(nbdelay), PUBLIC  ::   ndelayid = -1     !: mpi request id of the delayed operations 
     178   TYPE( DELAYARR ), DIMENSION(nbdelay), PUBLIC, SAVE  ::   todelay         !: must have SAVE for default initialization of DELAYARR 
     179   INTEGER,          DIMENSION(nbdelay), PUBLIC        ::   ndelayid = -1   !: mpi request id of the delayed operations 
    180180 
    181181   ! timing summary report 
     
    918918         CALL mpi_finalize( info ) 
    919919      ENDIF 
    920       IF( .NOT. llfinal ) STOP 123456 
     920      IF( .NOT. llfinal ) STOP 123 
    921921      ! 
    922922   END SUBROUTINE mppstop 
Note: See TracChangeset for help on using the changeset viewer.