Changeset 10815
- Timestamp:
- 2019-03-29T18:15:56+01:00 (5 years ago)
- 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 119 119 INTEGER :: ptimincr = 1 !: timestep increment to output (time.step and run.stat) 120 120 END TYPE 121 TYPE(sn_ctl) :: sn_cfctl !: run control structure for selective output121 TYPE(sn_ctl), SAVE :: sn_cfctl !: run control structure for selective output, must have SAVE for default init. of sn_ctl 122 122 LOGICAL :: ln_timing !: run control for timing 123 123 LOGICAL :: ln_diacfl !: flag whether to create CFL diagnostics -
NEMO/releases/release-4.0/src/OCE/LBC/lib_mpp.F90
r10782 r10815 176 176 COMPLEX(wp), POINTER, DIMENSION(:) :: y1d => NULL() 177 177 END TYPE DELAYARR 178 TYPE( DELAYARR ), DIMENSION(nbdelay), PUBLIC :: todelay179 INTEGER, DIMENSION(nbdelay), PUBLIC :: ndelayid = -1!: mpi request id of the delayed operations178 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 180 180 181 181 ! timing summary report … … 918 918 CALL mpi_finalize( info ) 919 919 ENDIF 920 IF( .NOT. llfinal ) STOP 123 456920 IF( .NOT. llfinal ) STOP 123 921 921 ! 922 922 END SUBROUTINE mppstop
Note: See TracChangeset
for help on using the changeset viewer.