- Timestamp:
- 2019-05-13T11:43:03+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diahsb.F90
r10888 r10968 211 211 CALL iom_put( 'bgvole3t' , zdiff_v2 * 1.e-9 ) ! volume e3t drift (km3) 212 212 ! 213 IF( kt == nitend .AND. lwp 213 IF( kt == nitend .AND. lwp) THEN 214 214 WRITE(numout,*) 215 215 WRITE(numout,*) 'dia_hsb : last time step hsb diagnostics: at it= ', kt,' date= ', ndastp … … 310 310 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 311 311 ! ! ------------------- 312 IF(lwp ) WRITE(numout,*)313 IF(lwp ) WRITE(numout,*) ' dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp314 IF(lwp ) WRITE(numout,*)312 IF(lwp .AND. nprint > 0) WRITE(numout,*) 313 IF(lwp .AND. nprint > 0) WRITE(numout,*) ' dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp 314 IF(lwp .AND. nprint > 0) WRITE(numout,*) 315 315 ! 316 316 IF( lwxios ) CALL iom_swap( cwxios_context ) … … 366 366 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 367 367 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 368 IF(lwm ) WRITE( numond, namhsb )368 IF(lwm .AND. nprint > 2) WRITE( numond, namhsb ) 369 369 370 370 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.