Permalink
Browse files

Added / corrected completion cases for the code. This makes sure that

all data is saved when the maximum number of time steps is reached.
  • Loading branch information...
stevensrjam committed Jan 14, 2016
1 parent 8907a2c commit b54ebe6d4b9603763d5d36de088e7ee36d6e9092
Showing with 5 additions and 1 deletion.
  1. +5 −1 main.F90
@@ -239,6 +239,8 @@ program AFiD
if( (ti(2) - tin(1)) .gt. walltimemax) errorcode = 334
if( ntime .eq. ntst ) errorcode = 555
call MpiBcastInt(errorcode)
!EP Conditional exits
@@ -263,8 +265,10 @@ program AFiD
if(errorcode.eq.334) call QuitRoutine(tin,.true.,errorcode)
!RS FFT input not correct
if(errorcode.eq.444) call QuitRoutine(tin,.true.,errorcode)
if(errorcode.eq.444) call QuitRoutine(tin,.false.,errorcode)
!RS maximum number of timesteps reached, no error; normal quit
if(errorcode.eq.555) call QuitRoutine(tin,.true.,errorcode)
errorcode = 100 !EP already finalized

0 comments on commit b54ebe6

Please sign in to comment.