diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 index 0b4418bfd25de9486e066ce2e9f21ecdf3c5c23d..25b3ffe3d168f547d08cab00d518aecd8df04fd1 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 @@ -263,14 +263,14 @@ DO IMI = 1, NMODEL PRINT *,'Number of backups: ',IBAK_NUMB PRINT *,'Timestep Time' DO JOUT = 1,IBAK_NUMB - WRITE(*,'( I9 F12.3 )' ) OUT_MODEL(IMI)%TBACKUPN(JOUT)%NSTEP,OUT_MODEL(IMI)%TBACKUPN(JOUT)%XTIME + WRITE(*,'( I9,F12.3 )' ) OUT_MODEL(IMI)%TBACKUPN(JOUT)%NSTEP,OUT_MODEL(IMI)%TBACKUPN(JOUT)%XTIME END DO PRINT *,'-------------------------' PRINT *,'Model number: ',IMI PRINT *,'Number of outputs: ',IOUT_NUMB PRINT *,'Timestep Time' DO JOUT = 1,IOUT_NUMB - WRITE(*,'( I9 F12.3 )' ) OUT_MODEL(IMI)%TOUTPUTN(JOUT)%NSTEP,OUT_MODEL(IMI)%TOUTPUTN(JOUT)%XTIME + WRITE(*,'( I9,F12.3 )' ) OUT_MODEL(IMI)%TOUTPUTN(JOUT)%NSTEP,OUT_MODEL(IMI)%TOUTPUTN(JOUT)%XTIME END DO ! IF (IOUT_NUMB>0) THEN