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

some fixes to get ductile damage working with recent changes

This commit is contained in:
Pratheek Shanthraj 2014-09-26 15:23:10 +00:00
parent 5c3f4e3e69
commit d4076e4db9
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
code/constitutive.f90
View File

@ -256,6 +256,7 @@ subroutine constitutive_init
thisSize => damage_brittle_sizePostResult thisSize => damage_brittle_sizePostResult
case (LOCAL_DAMAGE_DUCTILE_ID) case (LOCAL_DAMAGE_DUCTILE_ID)
outputName = LOCAL_DAMAGE_DUCTILE_label outputName = LOCAL_DAMAGE_DUCTILE_label
thisNoutput => damage_ductile_Noutput
thisOutput => damage_ductile_output thisOutput => damage_ductile_output
thisSize => damage_ductile_sizePostResult thisSize => damage_ductile_sizePostResult
case default case default

2
code/damage_ductile.f90
View File

@ -24,7 +24,7 @@ module damage_ductile
character(len=64), dimension(:,:), allocatable, target, public :: & character(len=64), dimension(:,:), allocatable, target, public :: &
damage_ductile_output !< name of each post result output damage_ductile_output !< name of each post result output
integer(pInt), dimension(:), allocatable, private :: & integer(pInt), dimension(:), allocatable, target, public :: &
damage_ductile_Noutput !< number of outputs per instance of this damage damage_ductile_Noutput !< number of outputs per instance of this damage
real(pReal), dimension(:), allocatable, private :: & real(pReal), dimension(:), allocatable, private :: &