improve restart test, deletion of results was messed up. fixed restart for BasicPETSc, AL and Polarization currently don't run when restarting

This commit is contained in:
Martin Diehl 2013-09-05 12:07:58 +00:00
parent 90121d34ac
commit ddfc40afe6
1 changed files with 3 additions and 0 deletions

View File

@ -308,6 +308,9 @@ type(tSolutionState) function basicPETSc_solution( &
call IO_write_jobBinaryFile(777,'F_lastInc',size(F_lastInc)) ! writing F_lastInc field to file
write (777,rec=1) F_lastInc
close (777)
call IO_write_jobBinaryFile(777,'F_lastInc2',size(F_lastInc2)) ! writing F_lastInc field to file
write (777,rec=1) F_lastInc2
close (777)
call IO_write_jobBinaryFile(777,'F_aimDot',size(F_aimDot))
write (777,rec=1) F_aimDot
close(777)