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

412 lines
19 KiB
Fortran
Raw Normal View History

added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
!--------------------------------------------------------------------------------------------------
! $Id: damage_gradient.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $
!--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief material subroutine incoprorating dislocation and twinning physics
!> @details to be done
!--------------------------------------------------------------------------------------------------
module damage_gradient
use prec, only: &
pReal, &
pInt
implicit none
private
integer(pInt), dimension(:), allocatable, public, protected :: &
damage_gradient_sizePostResults !< cumulative size of post results
integer(pInt), dimension(:,:), allocatable, target, public :: &
damage_gradient_sizePostResult !< size of each post result output
character(len=64), dimension(:,:), allocatable, target, public :: &
damage_gradient_output !< name of each post result output
integer(pInt), dimension(:), allocatable, private :: &
damage_gradient_Noutput !< number of outputs per instance of this damage
fixed bug in counting outputs and changed damage formulation
2014-07-04 13:56:59 +05:30
real(pReal), dimension(:), allocatable, public :: &
reactivated plastic work contribution to damage. default state integration tolerance is 0.001. use aTol_damage tag in material.config to specify your own tolerance
2014-08-06 17:07:47 +05:30
damage_gradient_crack_mobility, &
damage_gradient_aTol
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
enum, bind(c)
enumerator :: undefined_ID, &
local_damage_ID, &
gradient_damage_ID
end enum
integer(kind(undefined_ID)), dimension(:,:), allocatable, private :: &
damage_gradient_outputID !< ID of each post result output
public :: &
damage_gradient_init, &
damage_gradient_stateInit, &
damage_gradient_aTolState, &
damage_gradient_microstructure, &
damage_gradient_dotState, &
changed naming scheme for helper functions. damage and thermal dependent stress calculation more modularised
2014-08-08 19:32:20 +05:30
damage_gradient_damageValue, &
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
damage_gradient_postResults
contains
!--------------------------------------------------------------------------------------------------
!> @brief module initialization
!> @details reads in material parameters, allocates arrays, and does sanity checks
!--------------------------------------------------------------------------------------------------
subroutine damage_gradient_init(fileUnit)
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
use debug, only: &
debug_level,&
debug_constitutive,&
debug_levelBasic
use mesh, only: &
mesh_maxNips, &
mesh_NcpElems
use IO, only: &
IO_read, &
IO_lc, &
IO_getTag, &
IO_isBlank, &
IO_stringPos, &
IO_stringValue, &
IO_floatValue, &
IO_intValue, &
IO_warning, &
IO_error, &
IO_timeStamp, &
IO_EOF
use material, only: &
homogenization_maxNgrains, &
phase_damage, &
phase_damageInstance, &
phase_Noutput, &
DAMAGE_GRADIENT_label, &
DAMAGE_gradient_ID, &
material_phase, &
damageState, &
MATERIAL_partPhase
use numerics,only: &
numerics_integrator
implicit none
integer(pInt), intent(in) :: fileUnit
integer(pInt), parameter :: MAXNCHUNKS = 7_pInt
integer(pInt), dimension(1+2*MAXNCHUNKS) :: positions
integer(pInt) :: maxNinstance,mySize=0_pInt,phase,instance,o
integer(pInt) :: sizeState, sizeDotState
integer(pInt) :: NofMyPhase
character(len=65536) :: &
tag = '', &
line = ''
write(6,'(/,a)') ' <<<+- damage_'//DAMAGE_GRADIENT_label//' init -+>>>'
write(6,'(a)') ' $Id: damage_gradient.f90 3210 2014-06-17 15:24:44Z MPIE\m.diehl $'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90"
maxNinstance = int(count(phase_damage == DAMAGE_gradient_ID),pInt)
if (maxNinstance == 0_pInt) return
if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &
write(6,'(a16,1x,i5,/)') '# instances:',maxNinstance
allocate(damage_gradient_sizePostResults(maxNinstance), source=0_pInt)
allocate(damage_gradient_sizePostResult(maxval(phase_Noutput),maxNinstance),source=0_pInt)
allocate(damage_gradient_output(maxval(phase_Noutput),maxNinstance))
damage_gradient_output = ''
allocate(damage_gradient_outputID(maxval(phase_Noutput),maxNinstance), source=undefined_ID)
allocate(damage_gradient_Noutput(maxNinstance), source=0_pInt)
allocate(damage_gradient_crack_mobility(maxNinstance), source=0.0_pReal)
reactivated plastic work contribution to damage. default state integration tolerance is 0.001. use aTol_damage tag in material.config to specify your own tolerance
2014-08-06 17:07:47 +05:30
allocate(damage_gradient_aTol(maxNinstance), source=0.001_pReal)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
rewind(fileUnit)
phase = 0_pInt
do while (trim(line) /= IO_EOF .and. IO_lc(IO_getTag(line,'<','>')) /= MATERIAL_partPhase) ! wind forward to <phase>
line = IO_read(fileUnit)
enddo
parsingFile: do while (trim(line) /= IO_EOF) ! read through sections of phase part
line = IO_read(fileUnit)
if (IO_isBlank(line)) cycle ! skip empty lines
if (IO_getTag(line,'<','>') /= '') then ! stop at next part
line = IO_read(fileUnit, .true.) ! reset IO_read
exit
endif
if (IO_getTag(line,'[',']') /= '') then ! next phase section
phase = phase + 1_pInt ! advance phase section counter
cycle ! skip to next line
endif
if (phase > 0_pInt ) then; if (phase_damage(phase) == DAMAGE_gradient_ID) then ! do not short-circuit here (.and. with next if statemen). It's not safe in Fortran
instance = phase_damageInstance(phase) ! which instance of my damage is present phase
positions = IO_stringPos(line,MAXNCHUNKS)
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
select case(tag)
case ('(output)')
select case(IO_lc(IO_stringValue(line,positions,2_pInt)))
case ('local_damage')
damage_gradient_Noutput(instance) = damage_gradient_Noutput(instance) + 1_pInt
fixed bug in counting outputs and changed damage formulation
2014-07-04 13:56:59 +05:30
damage_gradient_outputID(damage_gradient_Noutput(instance),instance) = local_damage_ID
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
damage_gradient_output(damage_gradient_Noutput(instance),instance) = &
IO_lc(IO_stringValue(line,positions,2_pInt))
case ('gradient_damage')
damage_gradient_Noutput(instance) = damage_gradient_Noutput(instance) + 1_pInt
fixed bug in counting outputs and changed damage formulation
2014-07-04 13:56:59 +05:30
damage_gradient_outputID(damage_gradient_Noutput(instance),instance) = gradient_damage_ID
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
damage_gradient_output(damage_gradient_Noutput(instance),instance) = &
IO_lc(IO_stringValue(line,positions,2_pInt))
end select
case ('crack_mobility')
damage_gradient_crack_mobility(instance) = IO_floatValue(line,positions,2_pInt)
reactivated plastic work contribution to damage. default state integration tolerance is 0.001. use aTol_damage tag in material.config to specify your own tolerance
2014-08-06 17:07:47 +05:30
case ('atol_damage')
damage_gradient_aTol(instance) = IO_floatValue(line,positions,2_pInt)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
end select
endif; endif
enddo parsingFile
initializeInstances: do phase = 1_pInt, size(phase_damage)
if (phase_damage(phase) == DAMAGE_gradient_ID) then
NofMyPhase=count(material_phase==phase)
instance = phase_damageInstance(phase)
!--------------------------------------------------------------------------------------------------
! Determine size of postResults array
outputsLoop: do o = 1_pInt,damage_gradient_Noutput(instance)
select case(damage_gradient_outputID(o,instance))
case(local_damage_ID, &
gradient_damage_ID &
)
mySize = 1_pInt
end select
if (mySize > 0_pInt) then ! any meaningful output found
damage_gradient_sizePostResult(o,instance) = mySize
damage_gradient_sizePostResults(instance) = damage_gradient_sizePostResults(instance) + mySize
endif
enddo outputsLoop
! Determine size of state array
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
sizeDotState = 1_pInt
sizeState = 3_pInt
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
damageState(phase)%sizeState = sizeState
damageState(phase)%sizeDotState = sizeDotState
for consistency, pushed assignment of sizePostResults from aggregators to individual thermal/damage label. Also fixed wrong index while use of mapping
2014-07-04 14:52:57 +05:30
damageState(phase)%sizePostResults = damage_gradient_sizePostResults(instance)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
allocate(damageState(phase)%aTolState (sizeState), source=0.0_pReal)
allocate(damageState(phase)%state0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%partionedState0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%subState0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%state (sizeState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%state_backup (sizeState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%dotState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%deltaState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%dotState_backup (sizeDotState,NofMyPhase), source=0.0_pReal)
if (any(numerics_integrator == 1_pInt)) then
allocate(damageState(phase)%previousDotState (sizeDotState,NofMyPhase), source=0.0_pReal)
allocate(damageState(phase)%previousDotState2 (sizeDotState,NofMyPhase), source=0.0_pReal)
endif
if (any(numerics_integrator == 4_pInt)) &
allocate(damageState(phase)%RK4dotState (sizeDotState,NofMyPhase), source=0.0_pReal)
if (any(numerics_integrator == 5_pInt)) &
allocate(damageState(phase)%RKCK45dotState (6,sizeDotState,NofMyPhase),source=0.0_pReal)
call damage_gradient_stateInit(phase,instance)
call damage_gradient_aTolState(phase,instance)
endif
enddo initializeInstances
end subroutine damage_gradient_init
!--------------------------------------------------------------------------------------------------
!> @brief sets the relevant NEW state values for a given instance of this damage
!--------------------------------------------------------------------------------------------------
subroutine damage_gradient_stateInit(phase,instance)
use material, only: &
damageState
implicit none
integer(pInt), intent(in) :: instance !< number specifying the instance of the damage
integer(pInt), intent(in) :: phase !< number specifying the phase of the damage
real(pReal), dimension(damageState(phase)%sizeState) :: tempState
slight modifications to gradient damage
2014-08-01 20:45:02 +05:30
tempState(1:2) = 0.0_pReal
tempState(3) = 1.0_pReal
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
damageState(phase)%state = spread(tempState,2,size(damageState(phase)%state(1,:)))
damageState(phase)%state0 = damageState(phase)%state
damageState(phase)%partionedState0 = damageState(phase)%state
end subroutine damage_gradient_stateInit
!--------------------------------------------------------------------------------------------------
!> @brief sets the relevant state values for a given instance of this damage
!--------------------------------------------------------------------------------------------------
subroutine damage_gradient_aTolState(phase,instance)
use material, only: &
damageState
implicit none
integer(pInt), intent(in) :: &
phase, &
instance ! number specifying the current instance of the damage
real(pReal), dimension(damageState(phase)%sizeState) :: tempTol
reactivated plastic work contribution to damage. default state integration tolerance is 0.001. use aTol_damage tag in material.config to specify your own tolerance
2014-08-06 17:07:47 +05:30
tempTol = damage_gradient_aTol(instance)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
damageState(phase)%aTolState = tempTol
end subroutine damage_gradient_aTolState
!--------------------------------------------------------------------------------------------------
!> @brief calculates derived quantities from state
!--------------------------------------------------------------------------------------------------
subroutine damage_gradient_microstructure(Tstar_v, Fe, ipc, ip, el)
use material, only: &
mappingConstitutive, &
damageState
use math, only: &
slight modifications to gradient damage
2014-08-01 20:45:02 +05:30
math_Mandel66to3333, &
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
math_mul33x33, &
slight modifications to gradient damage
2014-08-01 20:45:02 +05:30
math_mul3333xx33, &
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
math_transpose33, &
reworked damage. cleaned up homogenisation. removed VI stuff and using projection instead
2014-07-07 23:20:40 +05:30
math_trace33, &
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
math_I3
reworked damage. cleaned up homogenisation. removed VI stuff and using projection instead
2014-07-07 23:20:40 +05:30
use lattice, only: &
slight modifications to gradient damage
2014-08-01 20:45:02 +05:30
lattice_surfaceEnergy33, &
lattice_C66
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
implicit none
integer(pInt), intent(in) :: &
ipc, & !< component-ID of integration point
ip, & !< integration point
el !< element
real(pReal), intent(in), dimension(6) :: &
Tstar_v !< 2nd Piola Kirchhoff stress tensor (Mandel)
real(pReal), intent(in), dimension(3,3) :: &
Fe
integer(pInt) :: &
slight modifications to gradient damage
2014-08-01 20:45:02 +05:30
phase, constituent
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
real(pReal) :: &
reworked energy splitting for damage
2014-08-10 16:15:07 +05:30
strainEnergy, pressure, stress(3,3), strain(3,3)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
phase = mappingConstitutive(2,ipc,ip,el)
constituent = mappingConstitutive(1,ipc,ip,el)
slight modifications to gradient damage
2014-08-01 20:45:02 +05:30
strain = 0.5_pReal*(math_mul33x33(math_transpose33(Fe),Fe)-math_I3)
reworked energy splitting for damage
2014-08-10 16:15:07 +05:30
stress = math_mul3333xx33(math_Mandel66to3333(lattice_C66(1:6,1:6,phase)),strain)
pressure = math_trace33(stress)/3.0_pReal
if (pressure < 0.0_pReal) stress = stress - pressure*math_I3
strainEnergy = 0.5*sum(abs(stress*strain))
damageState(phase)%state(2,constituent) = strainEnergy/ &
reactivated plastic work contribution to damage. default state integration tolerance is 0.001. use aTol_damage tag in material.config to specify your own tolerance
2014-08-06 17:07:47 +05:30
(math_trace33(lattice_surfaceEnergy33(1:3,1:3,phase))/3.0_pReal) + &
damageState(phase)%state(1,constituent)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
end subroutine damage_gradient_microstructure
!--------------------------------------------------------------------------------------------------
!> @brief calculates derived quantities from state
!--------------------------------------------------------------------------------------------------
corrections to plastic work calculation and volumetric strain split
2014-08-08 22:31:20 +05:30
subroutine damage_gradient_dotState(Tstar_v, Fe, Lp, ipc, ip, el)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
use material, only: &
mappingConstitutive, &
damageState
use math, only: &
corrections to plastic work calculation and volumetric strain split
2014-08-08 22:31:20 +05:30
math_Mandel66to3333, &
math_mul33x33, &
math_mul3333xx33, &
math_transpose33, &
math_trace33, &
math_I3
reactivated plastic work contribution to damage. default state integration tolerance is 0.001. use aTol_damage tag in material.config to specify your own tolerance
2014-08-06 17:07:47 +05:30
use lattice, only: &
corrections to plastic work calculation and volumetric strain split
2014-08-08 22:31:20 +05:30
lattice_C66, &
reactivated plastic work contribution to damage. default state integration tolerance is 0.001. use aTol_damage tag in material.config to specify your own tolerance
2014-08-06 17:07:47 +05:30
lattice_surfaceEnergy33
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
implicit none
integer(pInt), intent(in) :: &
ipc, & !< component-ID of integration point
ip, & !< integration point
el !< element
real(pReal), intent(in), dimension(6) :: &
Tstar_v !< 2nd Piola Kirchhoff stress tensor (Mandel)
real(pReal), intent(in), dimension(3,3) :: &
corrections to plastic work calculation and volumetric strain split
2014-08-08 22:31:20 +05:30
Fe, Lp
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
integer(pInt) :: &
corrections to plastic work calculation and volumetric strain split
2014-08-08 22:31:20 +05:30
phase, constituent
real(pReal), dimension(3,3) :: &
stress, strain
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
phase = mappingConstitutive(2,ipc,ip,el)
constituent = mappingConstitutive(1,ipc,ip,el)
corrections to plastic work calculation and volumetric strain split
2014-08-08 22:31:20 +05:30
strain = 0.5_pReal*(math_mul33x33(math_transpose33(Fe),Fe)-math_I3)
stress = math_mul3333xx33(math_Mandel66to3333(lattice_C66(1:6,1:6,phase)), strain)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
damageState(phase)%dotState(1,constituent) = &
corrections to plastic work calculation and volumetric strain split
2014-08-08 22:31:20 +05:30
sum(abs(stress*Lp))/ &
reactivated plastic work contribution to damage. default state integration tolerance is 0.001. use aTol_damage tag in material.config to specify your own tolerance
2014-08-06 17:07:47 +05:30
(math_trace33(lattice_surfaceEnergy33(1:3,1:3,phase))/3.0_pReal)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
end subroutine damage_gradient_dotState
added getDamage and getTemperature helper functions
2014-08-08 13:09:17 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief returns temperature based on gradient damage model state layout
!--------------------------------------------------------------------------------------------------
changed naming scheme for helper functions. damage and thermal dependent stress calculation more modularised
2014-08-08 19:32:20 +05:30
function damage_gradient_damageValue(ipc, ip, el)
added getDamage and getTemperature helper functions
2014-08-08 13:09:17 +05:30
use material, only: &
mappingConstitutive, &
damageState
implicit none
integer(pInt), intent(in) :: &
ipc, & !< grain number
ip, & !< integration point number
el !< element number
changed naming scheme for helper functions. damage and thermal dependent stress calculation more modularised
2014-08-08 19:32:20 +05:30
real(pReal) :: damage_gradient_damageValue
added getDamage and getTemperature helper functions
2014-08-08 13:09:17 +05:30
changed naming scheme for helper functions. damage and thermal dependent stress calculation more modularised
2014-08-08 19:32:20 +05:30
damage_gradient_damageValue = &
added getDamage and getTemperature helper functions
2014-08-08 13:09:17 +05:30
damageState(mappingConstitutive(2,ipc,ip,el))%state(3,mappingConstitutive(1,ipc,ip,el))* &
damageState(mappingConstitutive(2,ipc,ip,el))%state(3,mappingConstitutive(1,ipc,ip,el))
changed naming scheme for helper functions. damage and thermal dependent stress calculation more modularised
2014-08-08 19:32:20 +05:30
end function damage_gradient_damageValue
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief return array of constitutive results
!--------------------------------------------------------------------------------------------------
function damage_gradient_postResults(ipc,ip,el)
use material, only: &
mappingConstitutive, &
phase_damageInstance,&
damageState
implicit none
integer(pInt), intent(in) :: &
ipc, & !< component-ID of integration point
ip, & !< integration point
el !< element
real(pReal), dimension(damage_gradient_sizePostResults(phase_damageInstance(mappingConstitutive(2,ipc,ip,el)))) :: &
damage_gradient_postResults
integer(pInt) :: &
instance, phase, constituent, o, c
phase = mappingConstitutive(2,ipc,ip,el)
constituent = mappingConstitutive(1,ipc,ip,el)
instance = phase_damageInstance(phase)
c = 0_pInt
damage_gradient_postResults = 0.0_pReal
do o = 1_pInt,damage_gradient_Noutput(instance)
select case(damage_gradient_outputID(o,instance))
case (local_damage_ID)
damage_gradient_postResults(c+1_pInt) = damageState(phase)%state(2,constituent)
c = c + 1
case (gradient_damage_ID)
slight modifications to gradient damage
2014-08-01 20:45:02 +05:30
damage_gradient_postResults(c+1_pInt) = damageState(phase)%state(3,constituent)* &
damageState(phase)%state(3,constituent)
added thermal and damage modules as examples of multi physics modules. only works with new state layout and still under testing. damage_none: does nothing damage_gradient: interacts with solver to solve gradient damage problems thermal_none: does nothing thermai_adiabatic: local heating only thermal_conduction: interacts with conduction solver to solve coupled heat transfer problems
2014-06-25 04:29:16 +05:30
c = c + 1
end select
enddo
end function damage_gradient_postResults
end module damage_gradient