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

trying to use variables as in the DAMASK paper

This commit is contained in:
Martin Diehl 2019-04-30 22:47:49 +02:00
parent 8a9baf6d78
commit eb7db3acbd
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/homogenization_mech_RGC.f90
View File

@ -1126,6 +1126,15 @@ subroutine mech_RGC_results(instance,group)
outputsLoop: do o = 1,size(prm%outputID) outputsLoop: do o = 1,size(prm%outputID)
select case(prm%outputID(o)) select case(prm%outputID(o))
case (constitutivework_ID)
call results_writeDataset(group,stt%work,'W',&
'work density','J/m³')
case (magnitudemismatch_ID)
call results_writeDataset(group,dst%mismatch,'M',&
'average mismatch tensor','tbd')
case (penaltyenergy_ID)
call results_writeDataset(group,stt%penaltyEnergy,'R',&
'mismatch penalty density','tbd')
end select end select
enddo outputsLoop enddo outputsLoop