Skip to content
Snippets Groups Projects
Commit c3deb402 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 27/03/2017: bug correction: error in write format (missing commas)

parent c894744f
No related branches found
No related tags found
No related merge requests found
...@@ -263,14 +263,14 @@ DO IMI = 1, NMODEL ...@@ -263,14 +263,14 @@ DO IMI = 1, NMODEL
PRINT *,'Number of backups: ',IBAK_NUMB PRINT *,'Number of backups: ',IBAK_NUMB
PRINT *,'Timestep Time' PRINT *,'Timestep Time'
DO JOUT = 1,IBAK_NUMB 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 END DO
PRINT *,'-------------------------' PRINT *,'-------------------------'
PRINT *,'Model number: ',IMI PRINT *,'Model number: ',IMI
PRINT *,'Number of outputs: ',IOUT_NUMB PRINT *,'Number of outputs: ',IOUT_NUMB
PRINT *,'Timestep Time' PRINT *,'Timestep Time'
DO JOUT = 1,IOUT_NUMB 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 END DO
! !
IF (IOUT_NUMB>0) THEN IF (IOUT_NUMB>0) THEN
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment