From c3deb402f21c1f8b3a9f5f15e5c1c8f7d198f433 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Mon, 27 Mar 2017 10:27:53 +0200 Subject: [PATCH] Philippe 27/03/2017: bug correction: error in write format (missing commas) --- src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 index 0b4418bfd..25b3ffe3d 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 -- GitLab