From ddfc40afe6edb47715caa7e8317f2f7fead7089f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 5 Sep 2013 12:07:58 +0000 Subject: [PATCH] improve restart test, deletion of results was messed up. fixed restart for BasicPETSc, AL and Polarization currently don't run when restarting --- code/DAMASK_spectral_solverBasicPETSc.f90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/code/DAMASK_spectral_solverBasicPETSc.f90 b/code/DAMASK_spectral_solverBasicPETSc.f90 index 0b0593f76..d3b9e83f3 100644 --- a/code/DAMASK_spectral_solverBasicPETSc.f90 +++ b/code/DAMASK_spectral_solverBasicPETSc.f90 @@ -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)