223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

for spectral solver, --restart XX sets restartReadInc to XX-1, meaning restartReadInc is the step to read and XX the step at which the calculation begins

This commit is contained in:
Martin Diehl 2012-01-25 09:05:38 +00:00
parent 656d7a68d2
commit e7ac99eeca
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
code/FEsolving.f90
View File

@ -25,13 +25,13 @@
use prec, only: pInt,pReal use prec, only: pInt,pReal
implicit none implicit none
integer(pInt) :: cycleCounter = 0_pInt, theInc = -1_pInt, restartReadInc = 1_pInt integer(pInt) :: cycleCounter = 0_pInt, theInc = -1_pInt, restartReadInc = 0_pInt
real(pReal) :: theTime = 0.0_pReal, theDelta = 0.0_pReal real(pReal) :: theTime = 0.0_pReal, theDelta = 0.0_pReal
logical :: lastIncConverged = .false.,outdatedByNewInc = .false.,outdatedFFN1 = .false.,terminallyIll = .false. logical :: lastIncConverged = .false.,outdatedByNewInc = .false.,outdatedFFN1 = .false.,terminallyIll = .false.
logical :: symmetricSolver = .false. logical :: symmetricSolver = .false.
logical :: parallelExecution = .true. logical :: parallelExecution = .true.
logical :: restartWrite = .false. logical :: restartWrite = .false.
logical :: restartRead = .false., restartReadSpectral = .false. logical :: restartRead = .false.
logical :: lastMode = .true., cutBack = .false. logical :: lastMode = .true., cutBack = .false.
logical, dimension(:,:), allocatable :: calcMode logical, dimension(:,:), allocatable :: calcMode
integer(pInt), dimension(:,:), allocatable :: FEsolving_execIP integer(pInt), dimension(:,:), allocatable :: FEsolving_execIP
@ -75,6 +75,7 @@
if(start /= 0_pInt) then ! found something if(start /= 0_pInt) then ! found something
length = verify(commandLine(start:len(commandLine)),'0123456789',.false.) ! where is first non number after argument? length = verify(commandLine(start:len(commandLine)),'0123456789',.false.) ! where is first non number after argument?
read(commandLine(start:start+length),'(I12)') restartReadInc ! read argument read(commandLine(start:start+length),'(I12)') restartReadInc ! read argument
restartReadInc = restartReadInc - 1_pInt ! command line argument is inc to compute
restartRead = max(0_pInt,restartReadInc) > 0_pInt restartRead = max(0_pInt,restartReadInc) > 0_pInt
if(restartReadInc < 0_pInt) call IO_warning(warning_ID=34_pInt) if(restartReadInc < 0_pInt) call IO_warning(warning_ID=34_pInt)
endif endif