Changeset 10815 for NEMO/releases

Timestamp:

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

Author:

smasson

Message:

v4: minor fix for compilers requiring strict F90 rules

Location:

NEMO/releases/release-4.0/src/OCE

Files:

• IOM/in_out_manager.F90 (modified) (1 diff)
• LBC/lib_mpp.F90 (modified) (2 diffs)

NEMO/releases/release-4.0/src/OCE/IOM/in_out_manager.F90

@@ -119 +119 @@
       INTEGER :: ptimincr  = 1        !: timestep increment to output (time.step and run.stat)
    END TYPE
-   TYPE(sn_ctl) :: sn_cfctl     !: run control structure for selective output
+   TYPE(sn_ctl), SAVE :: sn_cfctl     !: run control structure for selective output, must have SAVE for default init. of sn_ctl
    LOGICAL ::   ln_timing        !: run control for timing
    LOGICAL ::   ln_diacfl        !: flag whether to create CFL diagnostics

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