Changeset 10815


Ignore:
Timestamp:
2019-03-29T18:15:56+01:00 (18 months ago)
Author:
smasson
Message:

v4: minor fix for compilers requiring strict F90 rules

Location:
NEMO/releases/release-4.0/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-4.0/src/OCE/IOM/in_out_manager.F90

    r10601 r10815  
    119119      INTEGER :: ptimincr  = 1        !: timestep increment to output (time.step and run.stat) 
    120120   END TYPE 
    121    TYPE(sn_ctl) :: sn_cfctl     !: run control structure for selective output 
     121   TYPE(sn_ctl), SAVE :: sn_cfctl     !: run control structure for selective output, must have SAVE for default init. of sn_ctl 
    122122   LOGICAL ::   ln_timing        !: run control for timing 
    123123   LOGICAL ::   ln_diacfl        !: flag whether to create CFL diagnostics 
  • NEMO/releases/release-4.0/src/OCE/LBC/lib_mpp.F90

    r10782 r10815  
    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.