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

implemented yield stop criteria

This commit is contained in:
Fengbo Han 2017-07-27 16:31:16 +02:00
parent b33d7e0585
commit 414faa53d3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/DAMASK_spectral.f90
View File

@ -721,12 +721,12 @@ program DAMASK_spectral
yieldStopSatisfied = .True. yieldStopSatisfied = .True.
endif endif
endif endif
endif yieldCheck endif yieldCheck
if (yieldStopSatisfied) then ! when yield, write the yield stress and strain rate to file and quit the job if (yieldStopSatisfied) then ! when yield, write the yield stress and strain rate to file and quit the job
if (worldrank == 0) then if (worldrank == 0) then
open(newunit=yieldResUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//& open(newunit=yieldResUnit,file=trim(getSolverWorkingDirectoryName())//trim(getSolverJobName())//&
'.yield',form='FORMATTED',status='REPLACE') '.yield',form='FORMATTED',status='REPLACE')
do i = 1_pInt,3_pInt do i = 1_pInt,3_pInt
write(yieldResUnit,*) (yieldStress(i,j), j=1,3) write(yieldResUnit,*) (yieldStress(i,j), j=1,3)
enddo enddo