Changeset 10817 for NEMO/trunk/src/OCE
- Timestamp:
- 2019-03-29T18:23:45+01:00 (5 years ago)
- Location:
- NEMO/trunk/src/OCE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/IOM/in_out_manager.F90
r10601 r10817 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/trunk/src/OCE/IOM/iom.F90
r10523 r10817 222 222 # endif 223 223 #if defined key_top 224 CALL iom_set_axis_attr( "profsed", paxis = profsed )224 IF( ALLOCATED(profsed) ) CALL iom_set_axis_attr( "profsed", paxis = profsed ) 225 225 #endif 226 226 CALL iom_set_axis_attr( "icbcla", class_num ) 227 CALL iom_set_axis_attr( "iax_20C", (/ REAL(20,wp) /) ) 228 CALL iom_set_axis_attr( "iax_28C", (/ REAL(28,wp) /) ) 227 CALL iom_set_axis_attr( "iax_20C", (/ REAL(20,wp) /) ) ! strange syntaxe and idea... 228 CALL iom_set_axis_attr( "iax_28C", (/ REAL(28,wp) /) ) ! strange syntaxe and idea... 229 229 ENDIF 230 230 ! -
NEMO/trunk/src/OCE/LBC/lib_mpp.F90
r10781 r10817 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.