1936 lines
83 KiB
Fortran
1936 lines
83 KiB
Fortran
!--------------------------------------------------------------------------------------------------
|
|
! $Id$
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
|
|
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
|
|
!> @brief elasticity, plasticity, internal microstructure state
|
|
!--------------------------------------------------------------------------------------------------
|
|
module constitutive
|
|
use prec, only: &
|
|
pInt
|
|
|
|
implicit none
|
|
private
|
|
integer(pInt), public, protected :: &
|
|
constitutive_maxSizePostResults, &
|
|
constitutive_maxSizeDotState, &
|
|
constitutive_damage_maxSizePostResults, &
|
|
constitutive_damage_maxSizeDotState, &
|
|
constitutive_thermal_maxSizePostResults, &
|
|
constitutive_thermal_maxSizeDotState, &
|
|
constitutive_vacancy_maxSizePostResults, &
|
|
constitutive_vacancy_maxSizeDotState
|
|
|
|
public :: &
|
|
constitutive_init, &
|
|
constitutive_homogenizedC, &
|
|
constitutive_damagedC, &
|
|
constitutive_microstructure, &
|
|
constitutive_LpAndItsTangent, &
|
|
constitutive_LiAndItsTangent, &
|
|
constitutive_getFi, &
|
|
constitutive_putFi, &
|
|
constitutive_getFi0, &
|
|
constitutive_getPartionedFi0, &
|
|
constitutive_TandItsTangent, &
|
|
constitutive_collectDotState, &
|
|
constitutive_collectDeltaState, &
|
|
constitutive_getLocalDamage, &
|
|
constitutive_putLocalDamage, &
|
|
constitutive_getDamage, &
|
|
constitutive_getSlipDamage, &
|
|
constitutive_getDamageDiffusion33, &
|
|
constitutive_getAdiabaticTemperature, &
|
|
constitutive_putAdiabaticTemperature, &
|
|
constitutive_getTemperature, &
|
|
constitutive_getLocalVacancyConcentration, &
|
|
constitutive_putLocalVacancyConcentration, &
|
|
constitutive_getVacancyConcentration, &
|
|
constitutive_getVacancyDiffusion33, &
|
|
constitutive_postResults
|
|
|
|
private :: &
|
|
constitutive_hooke_TandItsTangent, &
|
|
constitutive_getAccumulatedSlip, &
|
|
constitutive_getSlipRate
|
|
|
|
contains
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief allocates arrays pointing to array of the various constitutive modules
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_init(temperature_init)
|
|
#ifdef HDF
|
|
use hdf5, only: &
|
|
HID_T
|
|
use IO, only : &
|
|
HDF5_mappingConstitutive
|
|
#endif
|
|
|
|
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
|
|
use prec, only: &
|
|
pReal
|
|
use debug, only: &
|
|
debug_level, &
|
|
debug_constitutive, &
|
|
debug_levelBasic
|
|
use numerics, only: &
|
|
worldrank, &
|
|
numerics_integrator
|
|
use IO, only: &
|
|
IO_error, &
|
|
IO_open_file, &
|
|
IO_open_jobFile_stat, &
|
|
IO_write_jobFile, &
|
|
IO_write_jobIntFile, &
|
|
IO_timeStamp
|
|
use mesh, only: &
|
|
mesh_maxNips, &
|
|
mesh_NcpElems, &
|
|
mesh_element, &
|
|
FE_Nips, &
|
|
FE_geomtype
|
|
use material, only: &
|
|
material_phase, &
|
|
material_Nphase, &
|
|
material_localFileExt, &
|
|
material_configFile, &
|
|
phase_name, &
|
|
phase_elasticity, &
|
|
phase_plasticity, &
|
|
phase_plasticityInstance, &
|
|
phase_damage, &
|
|
phase_damageInstance, &
|
|
phase_thermal, &
|
|
phase_thermalInstance, &
|
|
phase_vacancy, &
|
|
phase_vacancyInstance, &
|
|
phase_Noutput, &
|
|
homogenization_Ngrains, &
|
|
homogenization_maxNgrains, &
|
|
ELASTICITY_hooke_ID, &
|
|
PLASTICITY_none_ID, &
|
|
PLASTICITY_j2_ID, &
|
|
PLASTICITY_phenopowerlaw_ID, &
|
|
PLASTICITY_dislotwin_ID, &
|
|
PLASTICITY_dislokmc_ID, &
|
|
PLASTICITY_titanmod_ID, &
|
|
PLASTICITY_nonlocal_ID ,&
|
|
ELASTICITY_HOOKE_label, &
|
|
PLASTICITY_NONE_label, &
|
|
PLASTICITY_J2_label, &
|
|
PLASTICITY_PHENOPOWERLAW_label, &
|
|
PLASTICITY_DISLOTWIN_label, &
|
|
PLASTICITY_DISLOKMC_label, &
|
|
PLASTICITY_TITANMOD_label, &
|
|
PLASTICITY_NONLOCAL_label, &
|
|
LOCAL_DAMAGE_none_ID, &
|
|
LOCAL_DAMAGE_isoBrittle_ID, &
|
|
LOCAL_DAMAGE_isoDuctile_ID, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_DAMAGE_gurson_ID, &
|
|
LOCAL_THERMAL_isothermal_ID, &
|
|
LOCAL_THERMAL_adiabatic_ID, &
|
|
LOCAL_VACANCY_constant_ID, &
|
|
LOCAL_VACANCY_generation_ID, &
|
|
LOCAL_DAMAGE_none_LABEL, &
|
|
LOCAL_DAMAGE_isoBrittle_LABEL, &
|
|
LOCAL_DAMAGE_isoDuctile_LABEL, &
|
|
LOCAL_DAMAGE_anisoBrittle_LABEL, &
|
|
LOCAL_DAMAGE_gurson_LABEL, &
|
|
LOCAL_THERMAL_isothermal_label, &
|
|
LOCAL_THERMAL_adiabatic_label, &
|
|
LOCAL_VACANCY_constant_label, &
|
|
LOCAL_VACANCY_generation_label, &
|
|
plasticState, &
|
|
damageState, &
|
|
thermalState, &
|
|
vacancyState, &
|
|
mappingConstitutive
|
|
|
|
|
|
use constitutive_none
|
|
use constitutive_j2
|
|
use constitutive_phenopowerlaw
|
|
use constitutive_dislotwin
|
|
use constitutive_dislokmc
|
|
use constitutive_titanmod
|
|
use constitutive_nonlocal
|
|
use damage_none
|
|
use damage_isoBrittle
|
|
use damage_isoDuctile
|
|
use damage_anisoBrittle
|
|
use damage_gurson
|
|
use thermal_isothermal
|
|
use thermal_adiabatic
|
|
use vacancy_constant
|
|
use vacancy_generation
|
|
|
|
implicit none
|
|
real(pReal), intent(in) :: temperature_init !< initial temperature
|
|
integer(pInt), parameter :: FILEUNIT = 200_pInt
|
|
integer(pInt) :: &
|
|
e, & !< maximum number of elements
|
|
phase, &
|
|
instance
|
|
|
|
integer(pInt), dimension(:,:), pointer :: thisSize
|
|
integer(pInt), dimension(:) , pointer :: thisNoutput
|
|
character(len=64), dimension(:,:), pointer :: thisOutput
|
|
character(len=32) :: outputName !< name of output, intermediate fix until HDF5 output is ready
|
|
logical :: knownPlasticity, knownDamage, knownThermal, knownVacancy, nonlocalConstitutionPresent
|
|
nonlocalConstitutionPresent = .false.
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
! parse plasticities from config file
|
|
if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present...
|
|
call IO_open_file(FILEUNIT,material_configFile) ! ... open material.config file
|
|
if (any(phase_plasticity == PLASTICITY_NONE_ID)) call constitutive_none_init(FILEUNIT)
|
|
if (any(phase_plasticity == PLASTICITY_J2_ID)) call constitutive_j2_init(FILEUNIT)
|
|
if (any(phase_plasticity == PLASTICITY_PHENOPOWERLAW_ID)) call constitutive_phenopowerlaw_init(FILEUNIT)
|
|
if (any(phase_plasticity == PLASTICITY_DISLOTWIN_ID)) call constitutive_dislotwin_init(FILEUNIT)
|
|
if (any(phase_plasticity == PLASTICITY_DISLOKMC_ID)) call constitutive_dislokmc_init(FILEUNIT)
|
|
if (any(phase_plasticity == PLASTICITY_TITANMOD_ID)) call constitutive_titanmod_init(FILEUNIT)
|
|
if (any(phase_plasticity == PLASTICITY_NONLOCAL_ID)) then
|
|
call constitutive_nonlocal_init(FILEUNIT)
|
|
call constitutive_nonlocal_stateInit()
|
|
endif
|
|
close(FILEUNIT)
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
! parse damage from config file
|
|
if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present...
|
|
call IO_open_file(FILEUNIT,material_configFile) ! ... open material.config file
|
|
if (any(phase_damage == LOCAL_DAMAGE_none_ID)) call damage_none_init(FILEUNIT)
|
|
if (any(phase_damage == LOCAL_DAMAGE_isoBrittle_ID)) call damage_isoBrittle_init(FILEUNIT)
|
|
if (any(phase_damage == LOCAL_DAMAGE_isoductile_ID)) call damage_isoDuctile_init(FILEUNIT)
|
|
if (any(phase_damage == LOCAL_DAMAGE_gurson_ID)) call damage_gurson_init(FILEUNIT)
|
|
if (any(phase_damage == LOCAL_DAMAGE_anisoBrittle_ID)) call damage_anisoBrittle_init(FILEUNIT)
|
|
close(FILEUNIT)
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
! parse thermal from config file
|
|
if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present...
|
|
call IO_open_file(FILEUNIT,material_configFile) ! ... open material.config file
|
|
if (any(phase_thermal == LOCAL_THERMAL_isothermal_ID)) call thermal_isothermal_init(FILEUNIT,temperature_init)
|
|
if (any(phase_thermal == LOCAL_THERMAL_adiabatic_ID)) call thermal_adiabatic_init(FILEUNIT,temperature_init)
|
|
close(FILEUNIT)
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
! parse vacancy model from config file
|
|
if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present...
|
|
call IO_open_file(FILEUNIT,material_configFile) ! ... open material.config file
|
|
if (any(phase_vacancy == LOCAL_VACANCY_constant_ID)) call vacancy_constant_init(FILEUNIT)
|
|
if (any(phase_vacancy == LOCAL_VACANCY_generation_ID)) call vacancy_generation_init(FILEUNIT)
|
|
close(FILEUNIT)
|
|
|
|
mainProcess: if (worldrank == 0) then
|
|
write(6,'(/,a)') ' <<<+- constitutive init -+>>>'
|
|
write(6,'(a)') ' $Id$'
|
|
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
|
|
#include "compilation_info.f90"
|
|
endif mainProcess
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
! write description file for constitutive phase output
|
|
call IO_write_jobFile(FILEUNIT,'outputConstitutive')
|
|
do phase = 1_pInt,material_Nphase
|
|
instance = phase_plasticityInstance(phase) ! which instance of a plasticity is present phase
|
|
knownPlasticity = .true. ! assume valid
|
|
select case(phase_plasticity(phase)) ! split per constititution
|
|
case (PLASTICITY_NONE_ID)
|
|
outputName = PLASTICITY_NONE_label
|
|
thisNoutput => null()
|
|
thisOutput => null() ! constitutive_none_output
|
|
thisSize => null() ! constitutive_none_sizePostResult
|
|
case (PLASTICITY_J2_ID)
|
|
outputName = PLASTICITY_J2_label
|
|
thisNoutput => constitutive_j2_Noutput
|
|
thisOutput => constitutive_j2_output
|
|
thisSize => constitutive_j2_sizePostResult
|
|
case (PLASTICITY_PHENOPOWERLAW_ID)
|
|
outputName = PLASTICITY_PHENOPOWERLAW_label
|
|
thisNoutput => constitutive_phenopowerlaw_Noutput
|
|
thisOutput => constitutive_phenopowerlaw_output
|
|
thisSize => constitutive_phenopowerlaw_sizePostResult
|
|
case (PLASTICITY_DISLOTWIN_ID)
|
|
outputName = PLASTICITY_DISLOTWIN_label
|
|
thisNoutput => constitutive_dislotwin_Noutput
|
|
thisOutput => constitutive_dislotwin_output
|
|
thisSize => constitutive_dislotwin_sizePostResult
|
|
case (PLASTICITY_DISLOKMC_ID)
|
|
outputName = PLASTICITY_DISLOKMC_label
|
|
thisNoutput => constitutive_dislokmc_Noutput
|
|
thisOutput => constitutive_dislokmc_output
|
|
thisSize => constitutive_dislokmc_sizePostResult
|
|
case (PLASTICITY_TITANMOD_ID)
|
|
outputName = PLASTICITY_TITANMOD_label
|
|
thisNoutput => constitutive_titanmod_Noutput
|
|
thisOutput => constitutive_titanmod_output
|
|
thisSize => constitutive_titanmod_sizePostResult
|
|
case (PLASTICITY_NONLOCAL_ID)
|
|
outputName = PLASTICITY_NONLOCAL_label
|
|
thisNoutput => constitutive_nonlocal_Noutput
|
|
thisOutput => constitutive_nonlocal_output
|
|
thisSize => constitutive_nonlocal_sizePostResult
|
|
case default
|
|
knownPlasticity = .false.
|
|
end select
|
|
write(FILEUNIT,'(/,a,/)') '['//trim(phase_name(phase))//']'
|
|
if (knownPlasticity) then
|
|
write(FILEUNIT,'(a)') '(plasticity)'//char(9)//trim(outputName)
|
|
if (phase_plasticity(phase) /= PLASTICITY_NONE_ID) then
|
|
do e = 1_pInt,thisNoutput(instance)
|
|
write(FILEUNIT,'(a,i4)') trim(thisOutput(e,instance))//char(9),thisSize(e,instance)
|
|
enddo
|
|
endif
|
|
endif
|
|
#ifdef multiphysicsOut
|
|
instance = phase_damageInstance(phase) ! which instance of a plasticity is present phase
|
|
knownDamage = .true.
|
|
select case(phase_damage(phase)) ! split per constititution
|
|
case (LOCAL_DAMAGE_none_ID)
|
|
outputName = LOCAL_DAMAGE_NONE_label
|
|
thisNoutput => null()
|
|
thisOutput => null()
|
|
thisSize => null()
|
|
case (LOCAL_DAMAGE_isoBrittle_ID)
|
|
outputName = LOCAL_DAMAGE_isoBrittle_LABEL
|
|
thisNoutput => damage_isoBrittle_Noutput
|
|
thisOutput => damage_isoBrittle_output
|
|
thisSize => damage_isoBrittle_sizePostResult
|
|
case (LOCAL_DAMAGE_isoDuctile_ID)
|
|
outputName = LOCAL_DAMAGE_isoDuctile_LABEL
|
|
thisNoutput => damage_isoDuctile_Noutput
|
|
thisOutput => damage_isoDuctile_output
|
|
thisSize => damage_isoDuctile_sizePostResult
|
|
case (LOCAL_DAMAGE_gurson_ID)
|
|
outputName = LOCAL_DAMAGE_gurson_label
|
|
thisNoutput => damage_gurson_Noutput
|
|
thisOutput => damage_gurson_output
|
|
thisSize => damage_gurson_sizePostResult
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
outputName = LOCAL_DAMAGE_anisoBrittle_label
|
|
thisNoutput => damage_anisoBrittle_Noutput
|
|
thisOutput => damage_anisoBrittle_output
|
|
thisSize => damage_anisoBrittle_sizePostResult
|
|
case default
|
|
knownDamage = .false.
|
|
end select
|
|
if (knownDamage) then
|
|
write(FILEUNIT,'(a)') '(damage)'//char(9)//trim(outputName)
|
|
if (phase_damage(phase) /= LOCAL_DAMAGE_none_ID) then
|
|
do e = 1_pInt,thisNoutput(instance)
|
|
write(FILEUNIT,'(a,i4)') trim(thisOutput(e,instance))//char(9),thisSize(e,instance)
|
|
enddo
|
|
endif
|
|
endif
|
|
instance = phase_thermalInstance(phase) ! which instance is present phase
|
|
knownThermal = .true.
|
|
select case(phase_thermal(phase)) ! split per constititution
|
|
case (LOCAL_THERMAL_isothermal_ID)
|
|
outputName = LOCAL_THERMAL_ISOTHERMAL_label
|
|
thisNoutput => null()
|
|
thisOutput => null()
|
|
thisSize => null()
|
|
case (LOCAL_THERMAL_adiabatic_ID)
|
|
outputName = LOCAL_THERMAL_ADIABATIC_label
|
|
thisNoutput => thermal_adiabatic_Noutput
|
|
thisOutput => thermal_adiabatic_output
|
|
thisSize => thermal_adiabatic_sizePostResult
|
|
case default
|
|
knownThermal = .false.
|
|
end select
|
|
if (knownThermal) then
|
|
write(FILEUNIT,'(a)') '(thermal)'//char(9)//trim(outputName)
|
|
if (phase_thermal(phase) /= LOCAL_THERMAL_isothermal_ID) then
|
|
do e = 1_pInt,thisNoutput(instance)
|
|
write(FILEUNIT,'(a,i4)') trim(thisOutput(e,instance))//char(9),thisSize(e,instance)
|
|
enddo
|
|
endif
|
|
endif
|
|
instance = phase_vacancyInstance(phase) ! which instance is present phase
|
|
knownVacancy = .true.
|
|
select case(phase_vacancy(phase)) ! split per constititution
|
|
case (LOCAL_VACANCY_constant_ID)
|
|
outputName = LOCAL_VACANCY_constant_label
|
|
thisNoutput => null()
|
|
thisOutput => null()
|
|
thisSize => null()
|
|
case (LOCAL_VACANCY_generation_ID)
|
|
outputName = LOCAL_VACANCY_generation_label
|
|
thisNoutput => vacancy_generation_Noutput
|
|
thisOutput => vacancy_generation_output
|
|
thisSize => vacancy_generation_sizePostResult
|
|
case default
|
|
knownVacancy = .false.
|
|
end select
|
|
if (knownVacancy) then
|
|
write(FILEUNIT,'(a)') '(vacancy)'//char(9)//trim(outputName)
|
|
if (phase_vacancy(phase) /= LOCAL_VACANCY_constant_ID) then
|
|
do e = 1_pInt,thisNoutput(instance)
|
|
write(FILEUNIT,'(a,i4)') trim(thisOutput(e,instance))//char(9),thisSize(e,instance)
|
|
enddo
|
|
endif
|
|
endif
|
|
#endif
|
|
enddo
|
|
close(FILEUNIT)
|
|
|
|
constitutive_maxSizeDotState = 0_pInt
|
|
constitutive_maxSizePostResults = 0_pInt
|
|
constitutive_damage_maxSizePostResults = 0_pInt
|
|
constitutive_damage_maxSizeDotState = 0_pInt
|
|
constitutive_thermal_maxSizePostResults = 0_pInt
|
|
constitutive_thermal_maxSizeDotState = 0_pInt
|
|
constitutive_vacancy_maxSizePostResults = 0_pInt
|
|
constitutive_vacancy_maxSizeDotState = 0_pInt
|
|
|
|
PhaseLoop2:do phase = 1_pInt,material_Nphase
|
|
plasticState(phase)%partionedState0 = plasticState(phase)%State0
|
|
plasticState(phase)%State = plasticState(phase)%State0
|
|
constitutive_maxSizeDotState = max(constitutive_maxSizeDotState, plasticState(phase)%sizeDotState)
|
|
constitutive_maxSizePostResults = max(constitutive_maxSizePostResults, plasticState(phase)%sizePostResults)
|
|
damageState(phase)%partionedState0 = damageState(phase)%State0
|
|
damageState(phase)%State = damageState(phase)%State0
|
|
constitutive_damage_maxSizeDotState = max(constitutive_damage_maxSizeDotState, damageState(phase)%sizeDotState)
|
|
constitutive_damage_maxSizePostResults = max(constitutive_damage_maxSizePostResults, damageState(phase)%sizePostResults)
|
|
thermalState(phase)%partionedState0 = thermalState(phase)%State0
|
|
thermalState(phase)%State = thermalState(phase)%State0
|
|
constitutive_thermal_maxSizeDotState = max(constitutive_thermal_maxSizeDotState, thermalState(phase)%sizeDotState)
|
|
constitutive_thermal_maxSizePostResults = max(constitutive_thermal_maxSizePostResults, thermalState(phase)%sizePostResults)
|
|
vacancyState(phase)%partionedState0 = vacancyState(phase)%State0
|
|
vacancyState(phase)%State = vacancyState(phase)%State0
|
|
constitutive_vacancy_maxSizeDotState = max(constitutive_vacancy_maxSizeDotState, vacancyState(phase)%sizeDotState)
|
|
constitutive_vacancy_maxSizePostResults = max(constitutive_vacancy_maxSizePostResults, vacancyState(phase)%sizePostResults)
|
|
enddo PhaseLoop2
|
|
|
|
#ifdef HDF
|
|
call HDF5_mappingConstitutive(mappingConstitutive)
|
|
do phase = 1_pInt,material_Nphase
|
|
instance = phase_plasticityInstance(phase) ! which instance of a plasticity is present phase
|
|
select case(phase_plasticity(phase)) ! split per constititution
|
|
case (PLASTICITY_NONE_ID)
|
|
case (PLASTICITY_J2_ID)
|
|
end select
|
|
enddo
|
|
#endif
|
|
|
|
#ifdef TODO
|
|
!--------------------------------------------------------------------------------------------------
|
|
! report
|
|
constitutive_maxSizeState = maxval(constitutive_sizeState)
|
|
constitutive_maxSizeDotState = maxval(constitutive_sizeDotState)
|
|
|
|
if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) then
|
|
write(6,'(a32,1x,7(i8,1x))') 'constitutive_state0: ', shape(constitutive_state0)
|
|
write(6,'(a32,1x,7(i8,1x))') 'constitutive_partionedState0: ', shape(constitutive_partionedState0)
|
|
write(6,'(a32,1x,7(i8,1x))') 'constitutive_subState0: ', shape(constitutive_subState0)
|
|
write(6,'(a32,1x,7(i8,1x))') 'constitutive_state: ', shape(constitutive_state)
|
|
write(6,'(a32,1x,7(i8,1x))') 'constitutive_aTolState: ', shape(constitutive_aTolState)
|
|
write(6,'(a32,1x,7(i8,1x))') 'constitutive_dotState: ', shape(constitutive_dotState)
|
|
write(6,'(a32,1x,7(i8,1x))') 'constitutive_deltaState: ', shape(constitutive_deltaState)
|
|
write(6,'(a32,1x,7(i8,1x))') 'constitutive_sizeState: ', shape(constitutive_sizeState)
|
|
write(6,'(a32,1x,7(i8,1x))') 'constitutive_sizeDotState: ', shape(constitutive_sizeDotState)
|
|
write(6,'(a32,1x,7(i8,1x),/)') 'constitutive_sizePostResults: ', shape(constitutive_sizePostResults)
|
|
write(6,'(a32,1x,7(i8,1x))') 'maxSizeState: ', constitutive_maxSizeState
|
|
write(6,'(a32,1x,7(i8,1x))') 'maxSizeDotState: ', constitutive_maxSizeDotState
|
|
write(6,'(a32,1x,7(i8,1x))') 'maxSizePostResults: ', constitutive_maxSizePostResults
|
|
endif
|
|
flush(6)
|
|
#endif
|
|
|
|
|
|
end subroutine constitutive_init
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns the homogenize elasticity matrix
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_homogenizedC(ipc,ip,el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
phase_plasticity, &
|
|
material_phase, &
|
|
PLASTICITY_TITANMOD_ID, &
|
|
PLASTICITY_DISLOTWIN_ID, &
|
|
PLASTICITY_DISLOKMC_ID, &
|
|
plasticState,&
|
|
mappingConstitutive
|
|
|
|
use constitutive_titanmod, only: &
|
|
constitutive_titanmod_homogenizedC
|
|
use constitutive_dislotwin, only: &
|
|
constitutive_dislotwin_homogenizedC
|
|
use constitutive_dislokmc, only: &
|
|
constitutive_dislokmc_homogenizedC
|
|
use lattice, only: &
|
|
lattice_C66
|
|
|
|
implicit none
|
|
real(pReal), dimension(6,6) :: constitutive_homogenizedC
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
|
|
|
case (PLASTICITY_DISLOTWIN_ID)
|
|
constitutive_homogenizedC = constitutive_dislotwin_homogenizedC(ipc,ip,el)
|
|
case (PLASTICITY_DISLOKMC_ID)
|
|
constitutive_homogenizedC = constitutive_dislokmc_homogenizedC(ipc,ip,el)
|
|
case (PLASTICITY_TITANMOD_ID)
|
|
constitutive_homogenizedC = constitutive_titanmod_homogenizedC (ipc,ip,el)
|
|
case default
|
|
constitutive_homogenizedC = lattice_C66(1:6,1:6,material_phase (ipc,ip,el))
|
|
|
|
end select
|
|
|
|
end function constitutive_homogenizedC
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns the damaged elasticity matrix if relevant
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_damagedC(ipc,ip,el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_isoBrittle_ID, &
|
|
phase_damage
|
|
use damage_isoBrittle, only: &
|
|
damage_isoBrittle_getDamage
|
|
|
|
implicit none
|
|
real(pReal), dimension(6,6) :: constitutive_damagedC
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el
|
|
real(pReal) :: damage !< element number
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_isoBrittle_ID)
|
|
damage = damage_isoBrittle_getDamage(ipc, ip, el)
|
|
constitutive_damagedC = damage*damage* &
|
|
constitutive_homogenizedC(ipc,ip,el)
|
|
case default
|
|
constitutive_damagedC = constitutive_homogenizedC(ipc,ip,el)
|
|
|
|
end select
|
|
|
|
end function constitutive_damagedC
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief calls microstructure function of the different constitutive models
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_microstructure(Tstar_v, Fe, Fp, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
phase_plasticity, &
|
|
phase_damage, &
|
|
material_phase, &
|
|
PLASTICITY_dislotwin_ID, &
|
|
PLASTICITY_dislokmc_ID, &
|
|
PLASTICITY_titanmod_ID, &
|
|
PLASTICITY_nonlocal_ID, &
|
|
LOCAL_DAMAGE_isoBrittle_ID, &
|
|
LOCAL_DAMAGE_isoDuctile_ID, &
|
|
LOCAL_DAMAGE_gurson_ID
|
|
|
|
use constitutive_titanmod, only: &
|
|
constitutive_titanmod_microstructure
|
|
use constitutive_nonlocal, only: &
|
|
constitutive_nonlocal_microstructure
|
|
use constitutive_dislotwin, only: &
|
|
constitutive_dislotwin_microstructure
|
|
use constitutive_dislokmc, only: &
|
|
constitutive_dislokmc_microstructure
|
|
use damage_isoBrittle, only: &
|
|
damage_isoBrittle_microstructure, &
|
|
damage_isoBrittle_getDamage
|
|
use damage_isoDuctile, only: &
|
|
damage_isoDuctile_microstructure
|
|
use damage_gurson, only: &
|
|
damage_gurson_microstructure
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in), dimension(6) :: &
|
|
Tstar_v !< 2nd Piola Kirchhoff stress tensor (Mandel)
|
|
real(pReal), intent(in), dimension(3,3) :: &
|
|
Fe, & !< elastic deformation gradient
|
|
Fp !< plastic deformation gradient
|
|
real(pReal) :: &
|
|
damage, &
|
|
Tstar_v_effective(6)
|
|
real(pReal), dimension(:), allocatable :: &
|
|
accumulatedSlip
|
|
integer(pInt) :: &
|
|
nSlip
|
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
|
|
|
case (PLASTICITY_DISLOTWIN_ID)
|
|
call constitutive_dislotwin_microstructure(constitutive_getTemperature(ipc,ip,el),ipc,ip,el)
|
|
case (PLASTICITY_DISLOKMC_ID)
|
|
call constitutive_dislokmc_microstructure(constitutive_getTemperature(ipc,ip,el),ipc,ip,el)
|
|
case (PLASTICITY_TITANMOD_ID)
|
|
call constitutive_titanmod_microstructure (constitutive_getTemperature(ipc,ip,el),ipc,ip,el)
|
|
case (PLASTICITY_NONLOCAL_ID)
|
|
call constitutive_nonlocal_microstructure (Fe,Fp, ip,el)
|
|
|
|
end select
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_isoBrittle_ID)
|
|
damage = damage_isoBrittle_getDamage(ipc,ip,el)
|
|
Tstar_v_effective = Tstar_v/(damage*damage)
|
|
call damage_isoBrittle_microstructure(Tstar_v_effective, Fe, ipc, ip, el)
|
|
case (LOCAL_DAMAGE_isoDuctile_ID)
|
|
call constitutive_getAccumulatedSlip(nSlip,accumulatedSlip,Fp,ipc, ip, el)
|
|
call damage_isoDuctile_microstructure(nSlip,accumulatedSlip,ipc, ip, el)
|
|
case (LOCAL_DAMAGE_gurson_ID)
|
|
call damage_gurson_microstructure(ipc, ip, el)
|
|
|
|
end select
|
|
|
|
end subroutine constitutive_microstructure
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief contains the constitutive equation for calculating the velocity gradient
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use math, only: &
|
|
math_identity2nd
|
|
use material, only: &
|
|
phase_plasticity, &
|
|
phase_plasticityInstance, &
|
|
material_phase, &
|
|
plasticState,&
|
|
mappingConstitutive, &
|
|
PLASTICITY_NONE_ID, &
|
|
PLASTICITY_J2_ID, &
|
|
PLASTICITY_PHENOPOWERLAW_ID, &
|
|
PLASTICITY_DISLOTWIN_ID, &
|
|
PLASTICITY_DISLOKMC_ID, &
|
|
PLASTICITY_TITANMOD_ID, &
|
|
PLASTICITY_NONLOCAL_ID
|
|
use constitutive_j2, only: &
|
|
constitutive_j2_LpAndItsTangent
|
|
use constitutive_phenopowerlaw, only: &
|
|
constitutive_phenopowerlaw_LpAndItsTangent, &
|
|
constitutive_phenopowerlaw_totalNslip
|
|
use constitutive_dislotwin, only: &
|
|
constitutive_dislotwin_LpAndItsTangent, &
|
|
constitutive_dislotwin_totalNslip
|
|
use constitutive_dislokmc, only: &
|
|
constitutive_dislokmc_LpAndItsTangent, &
|
|
constitutive_dislokmc_totalNslip
|
|
use constitutive_titanmod, only: &
|
|
constitutive_titanmod_LpAndItsTangent, &
|
|
constitutive_titanmod_totalNslip
|
|
use constitutive_nonlocal, only: &
|
|
constitutive_nonlocal_LpAndItsTangent, &
|
|
totalNslip
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in), dimension(6) :: &
|
|
Tstar_v !< 2nd Piola-Kirchhoff stress
|
|
real(pReal), intent(out), dimension(3,3) :: &
|
|
Lp !< plastic velocity gradient
|
|
real(pReal), intent(out), dimension(9,9) :: &
|
|
dLp_dTstar !< derivative of Lp with respect to Tstar (4th-order tensor)
|
|
integer(pInt) :: &
|
|
nSlip
|
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
|
|
|
case (PLASTICITY_NONE_ID)
|
|
Lp = 0.0_pReal
|
|
dLp_dTstar = 0.0_pReal
|
|
case (PLASTICITY_J2_ID)
|
|
nSlip = 1_pInt
|
|
call constitutive_j2_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, &
|
|
constitutive_getSlipDamage(nSlip,Tstar_v,ipc,ip,el), &
|
|
ipc,ip,el)
|
|
case (PLASTICITY_PHENOPOWERLAW_ID)
|
|
nSlip = constitutive_phenopowerlaw_totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))
|
|
call constitutive_phenopowerlaw_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, &
|
|
constitutive_getSlipDamage(nSlip,Tstar_v,ipc,ip,el), &
|
|
ipc,ip,el)
|
|
case (PLASTICITY_NONLOCAL_ID)
|
|
nSlip = totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))
|
|
call constitutive_nonlocal_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, &
|
|
constitutive_getTemperature(ipc,ip,el), &
|
|
constitutive_getSlipDamage(nSlip,Tstar_v,ipc,ip,el), &
|
|
ipc,ip,el)
|
|
case (PLASTICITY_DISLOTWIN_ID)
|
|
nSlip = constitutive_dislotwin_totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))
|
|
call constitutive_dislotwin_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, &
|
|
constitutive_getTemperature(ipc,ip,el), &
|
|
constitutive_getSlipDamage(nSlip,Tstar_v,ipc,ip,el), &
|
|
ipc,ip,el)
|
|
case (PLASTICITY_DISLOKMC_ID)
|
|
nSlip = constitutive_dislokmc_totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))
|
|
call constitutive_dislokmc_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, &
|
|
constitutive_getTemperature(ipc,ip,el), &
|
|
constitutive_getSlipDamage(nSlip,Tstar_v,ipc,ip,el), &
|
|
ipc,ip,el)
|
|
case (PLASTICITY_TITANMOD_ID)
|
|
nSlip = constitutive_titanmod_totalNslip(phase_plasticityInstance(material_phase(ipc,ip,el)))
|
|
call constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v, &
|
|
constitutive_getTemperature(ipc,ip,el), &
|
|
constitutive_getSlipDamage(nSlip,Tstar_v,ipc,ip,el), &
|
|
ipc,ip,el)
|
|
|
|
end select
|
|
|
|
end subroutine constitutive_LpAndItsTangent
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief contains the constitutive equation for calculating the velocity gradient
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_LiAndItsTangent(Li, dLi_dTstar, Tstar_v, Lp, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
phase_damage, &
|
|
phase_thermal, &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_THERMAL_adiabatic_ID
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_LdAndItsTangent
|
|
use thermal_adiabatic, only: &
|
|
thermal_adiabatic_LTAndItsTangent
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in), dimension(6) :: &
|
|
Tstar_v !< 2nd Piola-Kirchhoff stress
|
|
real(pReal), intent(in), dimension(3,3) :: &
|
|
Lp !< plastic velocity gradient
|
|
real(pReal), intent(out), dimension(3,3) :: &
|
|
Li !< intermediate velocity gradient
|
|
real(pReal), intent(out), dimension(9,9) :: &
|
|
dLi_dTstar !< derivative of Li with respect to Tstar (2nd-order tensor)
|
|
real(pReal), dimension(3,3) :: &
|
|
Li_temp !< intermediate velocity gradient
|
|
real(pReal), dimension(9,9) :: &
|
|
dLi_dTstar_temp !< derivative of Li with respect to Tstar (4th-order tensor)
|
|
|
|
Li = 0.0_pReal
|
|
dLi_dTstar = 0.0_pReal
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
call damage_anisoBrittle_LdAndItsTangent(Li_temp, dLi_dTstar_temp, Tstar_v, ipc, ip, el)
|
|
Li = Li + Li_temp
|
|
dLi_dTstar = dLi_dTstar + dLi_dTstar_temp
|
|
|
|
end select
|
|
|
|
select case (phase_thermal(material_phase(ipc,ip,el)))
|
|
case (LOCAL_THERMAL_adiabatic_ID)
|
|
call thermal_adiabatic_LTAndItsTangent(Li_temp, dLi_dTstar_temp, Tstar_v, Lp, ipc, ip, el)
|
|
Li = Li + Li_temp
|
|
dLi_dTstar = dLi_dTstar + dLi_dTstar_temp
|
|
|
|
end select
|
|
|
|
end subroutine constitutive_LiAndItsTangent
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief contains the constitutive equation for calculating the intermediate deformation gradient
|
|
!--------------------------------------------------------------------------------------------------
|
|
pure function constitutive_getFi(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use math, only: &
|
|
math_I3, &
|
|
math_mul33x33
|
|
use material, only: &
|
|
phase_damage, &
|
|
phase_thermal, &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_THERMAL_adiabatic_ID
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_getFd
|
|
use thermal_adiabatic, only: &
|
|
thermal_adiabatic_getFT
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), dimension(3,3) :: &
|
|
constitutive_getFi !< intermediate deformation gradient
|
|
|
|
constitutive_getFi = math_I3
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
constitutive_getFi = math_mul33x33(constitutive_getFi,damage_anisoBrittle_getFd (ipc, ip, el))
|
|
|
|
end select
|
|
|
|
select case (phase_thermal(material_phase(ipc,ip,el)))
|
|
case (LOCAL_THERMAL_adiabatic_ID)
|
|
constitutive_getFi = math_mul33x33(constitutive_getFi,thermal_adiabatic_getFT (ipc, ip, el))
|
|
|
|
end select
|
|
|
|
end function constitutive_getFi
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief contains the constitutive equation for calculating the intermediate deformation gradient
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_putFi(Tstar_v, dt, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
phase_damage, &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_putFd
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in), dimension(6) :: &
|
|
Tstar_v !< 2nd Piola-Kirchhoff stress
|
|
real(pReal), intent(in) :: &
|
|
dt
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
call damage_anisoBrittle_putFd (Tstar_v, dt, ipc, ip, el)
|
|
|
|
end select
|
|
|
|
end subroutine constitutive_putFi
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief contains the constitutive equation for calculating the intermediate deformation gradient
|
|
!--------------------------------------------------------------------------------------------------
|
|
pure function constitutive_getFi0(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use math, only: &
|
|
math_I3, &
|
|
math_mul33x33
|
|
use material, only: &
|
|
phase_damage, &
|
|
phase_thermal, &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_THERMAL_adiabatic_ID
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_getFd0
|
|
use thermal_adiabatic, only: &
|
|
thermal_adiabatic_getFT0
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), dimension(3,3) :: &
|
|
constitutive_getFi0 !< intermediate deformation gradient
|
|
|
|
constitutive_getFi0 = math_I3
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
constitutive_getFi0 = math_mul33x33(constitutive_getFi0,damage_anisoBrittle_getFd0 (ipc, ip, el))
|
|
|
|
end select
|
|
|
|
select case (phase_thermal(material_phase(ipc,ip,el)))
|
|
case (LOCAL_THERMAL_adiabatic_ID)
|
|
constitutive_getFi0 = math_mul33x33(constitutive_getFi0,thermal_adiabatic_getFT0 (ipc, ip, el))
|
|
|
|
end select
|
|
|
|
end function constitutive_getFi0
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief contains the constitutive equation for calculating the intermediate deformation gradient
|
|
!--------------------------------------------------------------------------------------------------
|
|
pure function constitutive_getPartionedFi0(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use math, only: &
|
|
math_I3, &
|
|
math_mul33x33
|
|
use material, only: &
|
|
phase_damage, &
|
|
phase_thermal, &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_THERMAL_adiabatic_ID
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_getPartionedFd0
|
|
use thermal_adiabatic, only: &
|
|
thermal_adiabatic_getPartionedFT0
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), dimension(3,3) :: &
|
|
constitutive_getPartionedFi0 !< intermediate deformation gradient
|
|
|
|
constitutive_getPartionedFi0 = math_I3
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
constitutive_getPartionedFi0 = math_mul33x33(constitutive_getPartionedFi0, &
|
|
damage_anisoBrittle_getPartionedFd0(ipc, ip, el))
|
|
|
|
end select
|
|
|
|
select case (phase_thermal(material_phase(ipc,ip,el)))
|
|
case (LOCAL_THERMAL_adiabatic_ID)
|
|
constitutive_getPartionedFi0 = math_mul33x33(constitutive_getPartionedFi0, &
|
|
thermal_adiabatic_getPartionedFT0(ipc, ip, el))
|
|
|
|
end select
|
|
|
|
end function constitutive_getPartionedFi0
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns the 2nd Piola-Kirchhoff stress tensor and its tangent with respect to
|
|
!> the elastic deformation gradient depending on the selected elastic law (so far no case switch
|
|
!! because only hooke is implemented
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in), dimension(3,3) :: &
|
|
Fe !< elastic deformation gradient
|
|
real(pReal), intent(out), dimension(3,3) :: &
|
|
T !< 2nd Piola-Kirchhoff stress tensor
|
|
real(pReal), intent(out), dimension(3,3,3,3) :: &
|
|
dT_dFe !< derivative of 2nd P-K stress with respect to elastic deformation gradient
|
|
|
|
call constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el)
|
|
|
|
|
|
end subroutine constitutive_TandItsTangent
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns the 2nd Piola-Kirchhoff stress tensor and its tangent with respect to
|
|
!> the elastic deformation gradient using hookes law
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use math, only : &
|
|
math_mul3x3, &
|
|
math_mul33x33, &
|
|
math_mul3333xx33, &
|
|
math_Mandel66to3333, &
|
|
math_transpose33, &
|
|
math_trace33, &
|
|
math_I3
|
|
use material, only: &
|
|
mappingConstitutive
|
|
use lattice, only: &
|
|
lattice_referenceTemperature, &
|
|
lattice_thermalExpansion33
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in), dimension(3,3) :: &
|
|
Fe !< elastic deformation gradient
|
|
real(pReal), intent(out), dimension(3,3) :: &
|
|
T !< 2nd Piola-Kirchhoff stress tensor
|
|
real(pReal), intent(out), dimension(3,3,3,3) :: &
|
|
dT_dFe !< dT/dFe
|
|
|
|
integer(pInt) :: i, j, k, l
|
|
real(pReal), dimension(3,3,3,3) :: C
|
|
|
|
C = math_Mandel66to3333(constitutive_damagedC(ipc,ip,el))
|
|
T = math_mul3333xx33(C,0.5_pReal*(math_mul33x33(math_transpose33(Fe),Fe)-math_I3))
|
|
|
|
dT_dFe = 0.0_pReal
|
|
forall (i=1_pInt:3_pInt, j=1_pInt:3_pInt, k=1_pInt:3_pInt, l=1_pInt:3_pInt) &
|
|
dT_dFe(i,j,k,l) = sum(C(i,j,l,1:3)*Fe(k,1:3)) ! dT*_ij/dFe_kl
|
|
|
|
end subroutine constitutive_hooke_TandItsTangent
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief contains the constitutive equation for calculating the rate of change of microstructure
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_collectDotState(Tstar_v, Lp, FeArray, FpArray, subdt, subfracArray,&
|
|
ipc, ip, el)
|
|
use prec, only: &
|
|
pReal, &
|
|
pLongInt
|
|
use debug, only: &
|
|
debug_cumDotStateCalls, &
|
|
debug_cumDotStateTicks, &
|
|
debug_level, &
|
|
debug_constitutive, &
|
|
debug_levelBasic
|
|
use mesh, only: &
|
|
mesh_NcpElems, &
|
|
mesh_maxNips
|
|
use material, only: &
|
|
phase_plasticity, &
|
|
phase_damage, &
|
|
phase_thermal, &
|
|
phase_vacancy, &
|
|
material_phase, &
|
|
homogenization_maxNgrains, &
|
|
PLASTICITY_none_ID, &
|
|
PLASTICITY_j2_ID, &
|
|
PLASTICITY_phenopowerlaw_ID, &
|
|
PLASTICITY_dislotwin_ID, &
|
|
PLASTICITY_dislokmc_ID, &
|
|
PLASTICITY_titanmod_ID, &
|
|
PLASTICITY_nonlocal_ID, &
|
|
LOCAL_DAMAGE_isoBrittle_ID, &
|
|
LOCAL_DAMAGE_isoDuctile_ID, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_DAMAGE_gurson_ID, &
|
|
LOCAL_THERMAL_adiabatic_ID, &
|
|
LOCAL_VACANCY_generation_ID
|
|
use constitutive_j2, only: &
|
|
constitutive_j2_dotState
|
|
use constitutive_phenopowerlaw, only: &
|
|
constitutive_phenopowerlaw_dotState
|
|
use constitutive_dislotwin, only: &
|
|
constitutive_dislotwin_dotState
|
|
use constitutive_dislokmc, only: &
|
|
constitutive_dislokmc_dotState
|
|
use constitutive_titanmod, only: &
|
|
constitutive_titanmod_dotState
|
|
use constitutive_nonlocal, only: &
|
|
constitutive_nonlocal_dotState
|
|
use damage_isoBrittle, only: &
|
|
damage_isoBrittle_dotState
|
|
use damage_isoDuctile, only: &
|
|
damage_isoDuctile_dotState
|
|
use damage_gurson, only: &
|
|
damage_gurson_dotState
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_dotState
|
|
use thermal_adiabatic, only: &
|
|
thermal_adiabatic_dotState
|
|
use vacancy_generation, only: &
|
|
vacancy_generation_dotState
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in) :: &
|
|
subdt !< timestep
|
|
real(pReal), intent(in), dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: &
|
|
subfracArray !< subfraction of timestep
|
|
real(pReal), intent(in), dimension(3,3,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: &
|
|
FeArray, & !< elastic deformation gradient
|
|
FpArray !< plastic deformation gradient
|
|
real(pReal), intent(in), dimension(6) :: &
|
|
Tstar_v !< 2nd Piola Kirchhoff stress tensor (Mandel)
|
|
real(pReal), intent(in), dimension(3,3) :: &
|
|
Lp !< plastic velocity gradient
|
|
integer(pLongInt) :: &
|
|
tick, tock, &
|
|
tickrate, &
|
|
maxticks
|
|
real(pReal), dimension(:), allocatable :: &
|
|
accumulatedSlip
|
|
integer(pInt) :: &
|
|
nSlip
|
|
|
|
if (iand(debug_level(debug_constitutive), debug_levelBasic) /= 0_pInt) &
|
|
call system_clock(count=tick,count_rate=tickrate,count_max=maxticks)
|
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
|
case (PLASTICITY_J2_ID)
|
|
call constitutive_j2_dotState (Tstar_v,ipc,ip,el)
|
|
case (PLASTICITY_PHENOPOWERLAW_ID)
|
|
call constitutive_phenopowerlaw_dotState(Tstar_v,ipc,ip,el)
|
|
case (PLASTICITY_DISLOTWIN_ID)
|
|
call constitutive_dislotwin_dotState (Tstar_v,constitutive_getTemperature(ipc,ip,el),ipc,ip,el)
|
|
case (PLASTICITY_DISLOKMC_ID)
|
|
call constitutive_dislokmc_dotState (Tstar_v,constitutive_getTemperature(ipc,ip,el),ipc,ip,el)
|
|
case (PLASTICITY_TITANMOD_ID)
|
|
call constitutive_titanmod_dotState (Tstar_v,constitutive_getTemperature(ipc,ip,el),ipc,ip,el)
|
|
case (PLASTICITY_NONLOCAL_ID)
|
|
call constitutive_nonlocal_dotState (Tstar_v,FeArray,FpArray,constitutive_getTemperature(ipc,ip,el), &
|
|
subdt,subfracArray,ip,el)
|
|
end select
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_isoBrittle_ID)
|
|
call damage_isoBrittle_dotState(ipc, ip, el)
|
|
case (LOCAL_DAMAGE_isoDuctile_ID)
|
|
call damage_isoDuctile_dotState(ipc, ip, el)
|
|
case (LOCAL_DAMAGE_gurson_ID)
|
|
call damage_gurson_dotState(Tstar_v, Lp, ipc, ip, el)
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
call damage_anisoBrittle_dotState(Tstar_v, ipc, ip, el)
|
|
end select
|
|
|
|
select case (phase_thermal(material_phase(ipc,ip,el)))
|
|
case (LOCAL_THERMAL_adiabatic_ID)
|
|
call thermal_adiabatic_dotState(Tstar_v, Lp, ipc, ip, el)
|
|
end select
|
|
|
|
select case (phase_vacancy(material_phase(ipc,ip,el)))
|
|
case (LOCAL_VACANCY_generation_ID)
|
|
call constitutive_getAccumulatedSlip(nSlip,accumulatedSlip,FpArray(1:3,1:3,ipc,ip,el),ipc,ip,el)
|
|
call vacancy_generation_dotState(nSlip,accumulatedSlip,Tstar_v,constitutive_getTemperature(ipc,ip,el), &
|
|
ipc, ip, el)
|
|
end select
|
|
|
|
if (iand(debug_level(debug_constitutive), debug_levelBasic) /= 0_pInt) then
|
|
call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
|
|
!$OMP CRITICAL (debugTimingDotState)
|
|
debug_cumDotStateCalls = debug_cumDotStateCalls + 1_pInt
|
|
debug_cumDotStateTicks = debug_cumDotStateTicks + tock-tick
|
|
!$OMP FLUSH (debug_cumDotStateTicks)
|
|
if (tock < tick) debug_cumDotStateTicks = debug_cumDotStateTicks + maxticks
|
|
!$OMP END CRITICAL (debugTimingDotState)
|
|
endif
|
|
end subroutine constitutive_collectDotState
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief for constitutive models having an instantaneous change of state (so far, only nonlocal)
|
|
!> will return false if delta state is not needed/supported by the constitutive model
|
|
!--------------------------------------------------------------------------------------------------
|
|
logical function constitutive_collectDeltaState(Tstar_v, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal, &
|
|
pLongInt
|
|
use debug, only: &
|
|
debug_cumDeltaStateCalls, &
|
|
debug_cumDeltaStateTicks, &
|
|
debug_level, &
|
|
debug_constitutive, &
|
|
debug_levelBasic
|
|
use material, only: &
|
|
phase_plasticity, &
|
|
material_phase, &
|
|
plasticState, &
|
|
mappingConstitutive, &
|
|
PLASTICITY_NONLOCAL_ID
|
|
use constitutive_nonlocal, only: &
|
|
constitutive_nonlocal_deltaState
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in), dimension(6) :: &
|
|
Tstar_v !< 2nd Piola-Kirchhoff stress
|
|
integer(pLongInt) :: &
|
|
tick, tock, &
|
|
tickrate, &
|
|
maxticks
|
|
|
|
if (iand(debug_level(debug_constitutive), debug_levelBasic) /= 0_pInt) &
|
|
call system_clock(count=tick,count_rate=tickrate,count_max=maxticks)
|
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
|
|
|
case (PLASTICITY_NONLOCAL_ID)
|
|
constitutive_collectDeltaState = .true.
|
|
call constitutive_nonlocal_deltaState(Tstar_v,ip,el)
|
|
case default
|
|
constitutive_collectDeltaState = .false.
|
|
|
|
end select
|
|
|
|
if (iand(debug_level(debug_constitutive), debug_levelBasic) /= 0_pInt) then
|
|
call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
|
|
!$OMP CRITICAL (debugTimingDeltaState)
|
|
debug_cumDeltaStateCalls = debug_cumDeltaStateCalls + 1_pInt
|
|
debug_cumDeltaStateTicks = debug_cumDeltaStateTicks + tock-tick
|
|
!$OMP FLUSH (debug_cumDeltaStateTicks)
|
|
if (tock < tick) debug_cumDeltaStateTicks = debug_cumDeltaStateTicks + maxticks
|
|
!$OMP END CRITICAL (debugTimingDeltaState)
|
|
endif
|
|
|
|
end function constitutive_collectDeltaState
|
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief Returns the local(regularised) damage
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_getLocalDamage(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_none_ID, &
|
|
LOCAL_DAMAGE_isoBrittle_ID, &
|
|
LOCAL_DAMAGE_isoDuctile_ID, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_DAMAGE_gurson_ID, &
|
|
phase_damage
|
|
use damage_isoBrittle, only: &
|
|
damage_isoBrittle_getLocalDamage
|
|
use damage_isoDuctile, only: &
|
|
damage_isoDuctile_getLocalDamage
|
|
use damage_gurson, only: &
|
|
damage_gurson_getLocalDamage
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_getLocalDamage
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal) :: constitutive_getLocalDamage
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_none_ID)
|
|
constitutive_getLocalDamage = 1.0_pReal
|
|
|
|
case (LOCAL_DAMAGE_isoBrittle_ID)
|
|
constitutive_getLocalDamage = damage_isoBrittle_getLocalDamage(ipc, ip, el)
|
|
|
|
case (LOCAL_DAMAGE_isoDuctile_ID)
|
|
constitutive_getLocalDamage = damage_isoDuctile_getLocalDamage(ipc, ip, el)
|
|
|
|
case (LOCAL_DAMAGE_gurson_ID)
|
|
constitutive_getLocalDamage = damage_gurson_getLocalDamage(ipc, ip, el)
|
|
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
constitutive_getLocalDamage = damage_anisoBrittle_getLocalDamage(ipc, ip, el)
|
|
end select
|
|
|
|
end function constitutive_getLocalDamage
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief Returns the local(unregularised) damage
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_putLocalDamage(ipc, ip, el, localDamage)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_isoBrittle_ID, &
|
|
LOCAL_DAMAGE_isoDuctile_ID, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_DAMAGE_gurson_ID, &
|
|
phase_damage
|
|
use damage_isoBrittle, only: &
|
|
damage_isoBrittle_putLocalDamage
|
|
use damage_isoDuctile, only: &
|
|
damage_isoDuctile_putLocalDamage
|
|
use damage_gurson, only: &
|
|
damage_gurson_putLocalDamage
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_putLocalDamage
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in) :: &
|
|
localDamage
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_isoBrittle_ID)
|
|
call damage_isoBrittle_putLocalDamage(ipc, ip, el, localDamage)
|
|
|
|
case (LOCAL_DAMAGE_isoDuctile_ID)
|
|
call damage_isoDuctile_putLocalDamage(ipc, ip, el, localDamage)
|
|
|
|
case (LOCAL_DAMAGE_gurson_ID)
|
|
call damage_gurson_putLocalDamage(ipc, ip, el, localDamage)
|
|
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
call damage_anisoBrittle_putLocalDamage(ipc, ip, el, localDamage)
|
|
|
|
end select
|
|
|
|
end subroutine constitutive_putLocalDamage
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns nonlocal (regularised) damage
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_getDamage(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_none_ID, &
|
|
LOCAL_DAMAGE_isoBrittle_ID, &
|
|
LOCAL_DAMAGE_isoDuctile_ID, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_DAMAGE_gurson_ID, &
|
|
phase_damage
|
|
use damage_isoBrittle, only: &
|
|
damage_isoBrittle_getDamage
|
|
use damage_isoDuctile, only: &
|
|
damage_isoDuctile_getDamage
|
|
use damage_gurson, only: &
|
|
damage_gurson_getDamage
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_getDamage
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal) :: constitutive_getDamage
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_none_ID)
|
|
constitutive_getDamage = 1.0_pReal
|
|
|
|
case (LOCAL_DAMAGE_isoBrittle_ID)
|
|
constitutive_getDamage = damage_isoBrittle_getDamage(ipc, ip, el)
|
|
|
|
case (LOCAL_DAMAGE_isoDuctile_ID)
|
|
constitutive_getDamage = damage_isoDuctile_getDamage(ipc, ip, el)
|
|
|
|
case (LOCAL_DAMAGE_gurson_ID)
|
|
constitutive_getDamage = damage_gurson_getDamage(ipc, ip, el)
|
|
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
constitutive_getDamage = damage_anisoBrittle_getDamage(ipc, ip, el)
|
|
end select
|
|
|
|
end function constitutive_getDamage
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief Returns the damage on each slip system
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_getSlipDamage(nSlip, Tstar_v, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_isoDuctile_ID, &
|
|
LOCAL_DAMAGE_gurson_ID, &
|
|
phase_damage
|
|
use damage_isoDuctile, only: &
|
|
damage_isoDuctile_getSlipDamage
|
|
use damage_gurson, only: &
|
|
damage_gurson_getSlipDamage
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
nSlip, &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in), dimension(6) :: &
|
|
Tstar_v !< 2nd Piola-Kirchhoff stress
|
|
real(pReal) :: constitutive_getSlipDamage(nSlip)
|
|
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_isoDuctile_ID)
|
|
constitutive_getSlipDamage = damage_isoDuctile_getSlipDamage(ipc, ip, el)
|
|
|
|
case (LOCAL_DAMAGE_gurson_ID)
|
|
constitutive_getSlipDamage = damage_gurson_getSlipDamage(Tstar_v, ipc, ip, el)
|
|
|
|
case default
|
|
constitutive_getSlipDamage = 1.0_pReal
|
|
end select
|
|
|
|
end function constitutive_getSlipDamage
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns damage diffusion tensor
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_getDamageDiffusion33(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use lattice, only: &
|
|
lattice_DamageDiffusion33
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_DAMAGE_none_ID, &
|
|
LOCAL_DAMAGE_isoBrittle_ID, &
|
|
LOCAL_DAMAGE_isoDuctile_ID, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_DAMAGE_gurson_ID, &
|
|
phase_damage
|
|
use damage_isoBrittle, only: &
|
|
damage_isoBrittle_getDamageDiffusion33
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), dimension(3,3) :: &
|
|
constitutive_getDamageDiffusion33
|
|
|
|
constitutive_getDamageDiffusion33 = lattice_DamageDiffusion33(1:3,1:3,material_phase(ipc,ip,el))
|
|
select case(phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_isoBrittle_ID)
|
|
constitutive_getDamageDiffusion33 = damage_isoBrittle_getDamageDiffusion33(ipc, ip, el)
|
|
|
|
end select
|
|
|
|
end function constitutive_getDamageDiffusion33
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns local (unregularised) temperature
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_getAdiabaticTemperature(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_THERMAL_isothermal_ID, &
|
|
LOCAL_THERMAL_adiabatic_ID, &
|
|
phase_thermal, &
|
|
phase_thermalInstance
|
|
use thermal_isothermal, only: &
|
|
thermal_isothermal_temperature
|
|
use thermal_adiabatic, only: &
|
|
thermal_adiabatic_getTemperature
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal) :: constitutive_getAdiabaticTemperature
|
|
|
|
select case (phase_thermal(material_phase(ipc,ip,el)))
|
|
case (LOCAL_THERMAL_isothermal_ID)
|
|
constitutive_getAdiabaticTemperature = &
|
|
thermal_isothermal_temperature(phase_thermalInstance(material_phase(ipc,ip,el)))
|
|
|
|
case (LOCAL_THERMAL_adiabatic_ID)
|
|
constitutive_getAdiabaticTemperature = thermal_adiabatic_getTemperature(ipc, ip, el)
|
|
end select
|
|
|
|
end function constitutive_getAdiabaticTemperature
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief assigns the local/nonlocal value of temperature to local thermal state
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_putAdiabaticTemperature(ipc, ip, el, localTemperature)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_THERMAL_adiabatic_ID, &
|
|
phase_thermal
|
|
use thermal_adiabatic, only: &
|
|
thermal_adiabatic_putTemperature
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in) :: &
|
|
localTemperature
|
|
|
|
select case (phase_thermal(material_phase(ipc,ip,el)))
|
|
case (LOCAL_THERMAL_adiabatic_ID)
|
|
call thermal_adiabatic_putTemperature(ipc, ip, el, localTemperature)
|
|
|
|
end select
|
|
|
|
end subroutine constitutive_putAdiabaticTemperature
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns nonlocal (regularised) temperature
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_getTemperature(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
mappingHomogenization, &
|
|
material_phase, &
|
|
fieldThermal, &
|
|
field_thermal_type, &
|
|
FIELD_THERMAL_local_ID, &
|
|
FIELD_THERMAL_nonlocal_ID, &
|
|
material_homog
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal) :: constitutive_getTemperature
|
|
|
|
select case(field_thermal_type(material_homog(ip,el)))
|
|
case (FIELD_THERMAL_local_ID)
|
|
constitutive_getTemperature = constitutive_getAdiabaticTemperature(ipc, ip, el)
|
|
|
|
case (FIELD_THERMAL_nonlocal_ID)
|
|
constitutive_getTemperature = fieldThermal(material_homog(ip,el))% &
|
|
field(1,mappingHomogenization(1,ip,el)) ! Taylor type
|
|
|
|
end select
|
|
|
|
end function constitutive_getTemperature
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns local vacancy concentration
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_getLocalVacancyConcentration(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_VACANCY_constant_ID, &
|
|
LOCAL_VACANCY_generation_ID, &
|
|
phase_vacancy
|
|
use vacancy_generation, only: &
|
|
vacancy_generation_getConcentration
|
|
use lattice, only: &
|
|
lattice_equilibriumVacancyConcentration
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal) :: constitutive_getLocalVacancyConcentration
|
|
|
|
select case (phase_vacancy(material_phase(ipc,ip,el)))
|
|
case (LOCAL_VACANCY_constant_ID)
|
|
constitutive_getLocalVacancyConcentration = &
|
|
lattice_equilibriumVacancyConcentration(material_phase(ipc,ip,el))
|
|
|
|
case (LOCAL_VACANCY_generation_ID)
|
|
constitutive_getLocalVacancyConcentration = vacancy_generation_getConcentration(ipc, ip, el)
|
|
end select
|
|
|
|
end function constitutive_getLocalVacancyConcentration
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief Puts local vacancy concentration
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_putLocalVacancyConcentration(ipc, ip, el, localVacancyConcentration)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_VACANCY_generation_ID, &
|
|
phase_vacancy
|
|
use vacancy_generation, only: &
|
|
vacancy_generation_putConcentration
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), intent(in) :: &
|
|
localVacancyConcentration
|
|
|
|
select case (phase_vacancy(material_phase(ipc,ip,el)))
|
|
case (LOCAL_VACANCY_generation_ID)
|
|
call vacancy_generation_putConcentration(ipc, ip, el, localVacancyConcentration)
|
|
|
|
end select
|
|
|
|
end subroutine constitutive_putLocalVacancyConcentration
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns nonlocal vacancy concentration
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_getVacancyConcentration(ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use material, only: &
|
|
mappingHomogenization, &
|
|
material_phase, &
|
|
fieldVacancy, &
|
|
field_vacancy_type, &
|
|
FIELD_VACANCY_local_ID, &
|
|
FIELD_VACANCY_nonlocal_ID, &
|
|
material_homog
|
|
use lattice, only: &
|
|
lattice_equilibriumVacancyConcentration
|
|
implicit none
|
|
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal) :: constitutive_getVacancyConcentration
|
|
|
|
select case(field_vacancy_type(material_homog(ip,el)))
|
|
case (FIELD_VACANCY_local_ID)
|
|
constitutive_getVacancyConcentration = constitutive_getLocalVacancyConcentration(ipc, ip, el)
|
|
|
|
case (FIELD_VACANCY_nonlocal_ID)
|
|
constitutive_getVacancyConcentration = fieldVacancy(material_homog(ip,el))% &
|
|
field(1,mappingHomogenization(1,ip,el)) ! Taylor type
|
|
end select
|
|
|
|
end function constitutive_getVacancyConcentration
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns vacancy diffusion tensor
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_getVacancyDiffusion33(Fp, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use lattice, only: &
|
|
lattice_VacancyDiffusion33
|
|
use material, only: &
|
|
material_phase, &
|
|
LOCAL_VACANCY_generation_ID, &
|
|
phase_vacancy
|
|
use vacancy_generation, only: &
|
|
vacancy_generation_getVacancyDiffusion33
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
real(pReal), dimension(3,3) :: &
|
|
Fp, &
|
|
constitutive_getVacancyDiffusion33
|
|
real(pReal), dimension(:), allocatable :: &
|
|
accumulatedSlip
|
|
integer(pInt) :: &
|
|
nSlip
|
|
|
|
constitutive_getVacancyDiffusion33 = lattice_VacancyDiffusion33(1:3,1:3,material_phase(ipc,ip,el))
|
|
select case(phase_vacancy(material_phase(ipc,ip,el)))
|
|
case (LOCAL_VACANCY_generation_ID)
|
|
call constitutive_getAccumulatedSlip(nSlip,accumulatedSlip,Fp,ipc,ip,el)
|
|
constitutive_getVacancyDiffusion33 = &
|
|
vacancy_generation_getVacancyDiffusion33(nSlip,accumulatedSlip,constitutive_getTemperature(ipc,ip,el), &
|
|
ipc,ip,el)
|
|
|
|
end select
|
|
|
|
end function constitutive_getVacancyDiffusion33
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns accumulated slip on each system defined
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_getAccumulatedSlip(nSlip,accumulatedSlip,Fp,ipc, ip, el)
|
|
use prec, only: &
|
|
pReal, &
|
|
pInt
|
|
use math, only: &
|
|
math_mul33xx33, &
|
|
math_equivStrain33, &
|
|
math_I3
|
|
use material, only: &
|
|
phase_plasticity, &
|
|
material_phase, &
|
|
PLASTICITY_none_ID, &
|
|
PLASTICITY_j2_ID, &
|
|
PLASTICITY_phenopowerlaw_ID, &
|
|
PLASTICITY_dislotwin_ID, &
|
|
PLASTICITY_dislokmc_ID, &
|
|
PLASTICITY_titanmod_ID, &
|
|
PLASTICITY_nonlocal_ID
|
|
use constitutive_phenopowerlaw, only: &
|
|
constitutive_phenopowerlaw_getAccumulatedSlip
|
|
use constitutive_dislotwin, only: &
|
|
constitutive_dislotwin_getAccumulatedSlip
|
|
use constitutive_dislokmc, only: &
|
|
constitutive_dislokmc_getAccumulatedSlip
|
|
use constitutive_titanmod, only: &
|
|
constitutive_titanmod_getAccumulatedSlip
|
|
use constitutive_nonlocal, only: &
|
|
constitutive_nonlocal_getAccumulatedSlip
|
|
|
|
implicit none
|
|
|
|
real(pReal), dimension(:), allocatable :: &
|
|
accumulatedSlip
|
|
integer(pInt) :: &
|
|
nSlip
|
|
real(pReal), intent(in), dimension(3,3) :: &
|
|
Fp !< plastic velocity gradient
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
|
case (PLASTICITY_none_ID)
|
|
nSlip = 0_pInt
|
|
allocate(accumulatedSlip(nSlip))
|
|
case (PLASTICITY_J2_ID)
|
|
nSlip = 1_pInt
|
|
allocate(accumulatedSlip(nSlip))
|
|
accumulatedSlip(1) = math_equivStrain33((math_mul33xx33(transpose(Fp),Fp) - math_I3)/2.0_pReal)
|
|
case (PLASTICITY_PHENOPOWERLAW_ID)
|
|
call constitutive_phenopowerlaw_getAccumulatedSlip(nSlip,accumulatedSlip,ipc, ip, el)
|
|
case (PLASTICITY_DISLOTWIN_ID)
|
|
call constitutive_dislotwin_getAccumulatedSlip(nSlip,accumulatedSlip,ipc, ip, el)
|
|
case (PLASTICITY_DISLOKMC_ID)
|
|
call constitutive_dislokmc_getAccumulatedSlip(nSlip,accumulatedSlip,ipc, ip, el)
|
|
case (PLASTICITY_TITANMOD_ID)
|
|
call constitutive_titanmod_getAccumulatedSlip(nSlip,accumulatedSlip,ipc, ip, el)
|
|
case (PLASTICITY_NONLOCAL_ID)
|
|
call constitutive_nonlocal_getAccumulatedSlip(nSlip,accumulatedSlip,ipc, ip, el)
|
|
end select
|
|
|
|
end subroutine constitutive_getAccumulatedSlip
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns accumulated slip rates on each system defined
|
|
!--------------------------------------------------------------------------------------------------
|
|
subroutine constitutive_getSlipRate(nSlip,slipRate,Lp,ipc, ip, el)
|
|
use prec, only: &
|
|
pReal, &
|
|
pInt
|
|
use math, only: &
|
|
math_mul33xx33, &
|
|
math_equivStrain33, &
|
|
math_I3
|
|
use material, only: &
|
|
phase_plasticity, &
|
|
material_phase, &
|
|
PLASTICITY_none_ID, &
|
|
PLASTICITY_j2_ID, &
|
|
PLASTICITY_phenopowerlaw_ID, &
|
|
PLASTICITY_dislotwin_ID, &
|
|
PLASTICITY_dislokmc_ID, &
|
|
PLASTICITY_titanmod_ID, &
|
|
PLASTICITY_nonlocal_ID
|
|
use constitutive_phenopowerlaw, only: &
|
|
constitutive_phenopowerlaw_getSlipRate
|
|
use constitutive_dislotwin, only: &
|
|
constitutive_dislotwin_getSlipRate
|
|
use constitutive_dislokmc, only: &
|
|
constitutive_dislokmc_getSlipRate
|
|
use constitutive_titanmod, only: &
|
|
constitutive_titanmod_getSlipRate
|
|
use constitutive_nonlocal, only: &
|
|
constitutive_nonlocal_getSlipRate
|
|
|
|
implicit none
|
|
|
|
real(pReal), dimension(:), allocatable :: &
|
|
slipRate
|
|
integer(pInt) :: &
|
|
nSlip
|
|
real(pReal), intent(in), dimension(3,3) :: &
|
|
Lp !< plastic velocity gradient
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
|
case (PLASTICITY_none_ID)
|
|
nSlip = 0_pInt
|
|
allocate(slipRate(nSlip))
|
|
case (PLASTICITY_J2_ID)
|
|
nSlip = 1_pInt
|
|
allocate(slipRate(nSlip))
|
|
slipRate(1) = math_equivStrain33(Lp)
|
|
case (PLASTICITY_PHENOPOWERLAW_ID)
|
|
call constitutive_phenopowerlaw_getSlipRate(nSlip,slipRate,ipc, ip, el)
|
|
case (PLASTICITY_DISLOTWIN_ID)
|
|
call constitutive_dislotwin_getSlipRate(nSlip,slipRate,ipc, ip, el)
|
|
case (PLASTICITY_DISLOKMC_ID)
|
|
call constitutive_dislokmc_getSlipRate(nSlip,slipRate,ipc, ip, el)
|
|
case (PLASTICITY_TITANMOD_ID)
|
|
call constitutive_titanmod_getSlipRate(nSlip,slipRate,ipc, ip, el)
|
|
case (PLASTICITY_NONLOCAL_ID)
|
|
call constitutive_nonlocal_getSlipRate(nSlip,slipRate,ipc, ip, el)
|
|
end select
|
|
|
|
end subroutine constitutive_getSlipRate
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
!> @brief returns array of constitutive results
|
|
!--------------------------------------------------------------------------------------------------
|
|
function constitutive_postResults(Tstar_v, FeArray, ipc, ip, el)
|
|
use prec, only: &
|
|
pReal
|
|
use mesh, only: &
|
|
mesh_NcpElems, &
|
|
mesh_maxNips
|
|
use material, only: &
|
|
plasticState, &
|
|
damageState, &
|
|
thermalState, &
|
|
vacancyState, &
|
|
phase_plasticity, &
|
|
phase_damage, &
|
|
phase_thermal, &
|
|
phase_vacancy, &
|
|
material_phase, &
|
|
homogenization_maxNgrains, &
|
|
PLASTICITY_NONE_ID, &
|
|
PLASTICITY_J2_ID, &
|
|
PLASTICITY_PHENOPOWERLAW_ID, &
|
|
PLASTICITY_DISLOTWIN_ID, &
|
|
PLASTICITY_DISLOKMC_ID, &
|
|
PLASTICITY_TITANMOD_ID, &
|
|
PLASTICITY_NONLOCAL_ID, &
|
|
LOCAL_DAMAGE_isoBrittle_ID, &
|
|
LOCAL_DAMAGE_isoDuctile_ID, &
|
|
LOCAL_DAMAGE_anisoBrittle_ID, &
|
|
LOCAL_DAMAGE_gurson_ID, &
|
|
LOCAL_THERMAL_ADIABATIC_ID, &
|
|
LOCAL_VACANCY_generation_ID
|
|
use constitutive_j2, only: &
|
|
#ifdef HDF
|
|
constitutive_j2_postResults2,&
|
|
#endif
|
|
constitutive_j2_postResults
|
|
use constitutive_phenopowerlaw, only: &
|
|
constitutive_phenopowerlaw_postResults
|
|
use constitutive_dislotwin, only: &
|
|
constitutive_dislotwin_postResults
|
|
use constitutive_dislokmc, only: &
|
|
constitutive_dislokmc_postResults
|
|
use constitutive_titanmod, only: &
|
|
constitutive_titanmod_postResults
|
|
use constitutive_nonlocal, only: &
|
|
constitutive_nonlocal_postResults
|
|
#ifdef multiphysicsOut
|
|
use damage_isoBrittle, only: &
|
|
damage_isoBrittle_postResults
|
|
use damage_isoDuctile, only: &
|
|
damage_isoDuctile_postResults
|
|
use damage_gurson, only: &
|
|
damage_gurson_postResults
|
|
use damage_anisoBrittle, only: &
|
|
damage_anisoBrittle_postResults
|
|
use thermal_adiabatic, only: &
|
|
thermal_adiabatic_postResults
|
|
use vacancy_generation, only: &
|
|
vacancy_generation_postResults
|
|
#endif
|
|
|
|
implicit none
|
|
integer(pInt), intent(in) :: &
|
|
ipc, & !< grain number
|
|
ip, & !< integration point number
|
|
el !< element number
|
|
#ifdef multiphysicsOut
|
|
real(pReal), dimension(plasticState(material_phase(ipc,ip,el))%sizePostResults + &
|
|
damageState( material_phase(ipc,ip,el))%sizePostResults + &
|
|
thermalState(material_phase(ipc,ip,el))%sizePostResults + &
|
|
vacancyState(material_phase(ipc,ip,el))%sizePostResults) :: &
|
|
constitutive_postResults
|
|
#else
|
|
real(pReal), dimension(plasticState(material_phase(ipc,ip,el))%sizePostResults) :: &
|
|
constitutive_postResults
|
|
#endif
|
|
real(pReal), intent(in), dimension(3,3,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: &
|
|
FeArray !< elastic deformation gradient
|
|
real(pReal), intent(in), dimension(6) :: &
|
|
Tstar_v !< 2nd Piola Kirchhoff stress tensor (Mandel)
|
|
integer(pInt) :: &
|
|
startPos, endPos
|
|
|
|
constitutive_postResults = 0.0_pReal
|
|
|
|
startPos = 1_pInt
|
|
endPos = plasticState(material_phase(ipc,ip,el))%sizePostResults
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
|
case (PLASTICITY_TITANMOD_ID)
|
|
constitutive_postResults(startPos:endPos) = constitutive_titanmod_postResults(ipc,ip,el)
|
|
case (PLASTICITY_J2_ID)
|
|
constitutive_postResults(startPos:endPos) = constitutive_j2_postResults(Tstar_v,ipc,ip,el)
|
|
case (PLASTICITY_PHENOPOWERLAW_ID)
|
|
constitutive_postResults(startPos:endPos) = &
|
|
constitutive_phenopowerlaw_postResults(Tstar_v,ipc,ip,el)
|
|
case (PLASTICITY_DISLOTWIN_ID)
|
|
constitutive_postResults(startPos:endPos) = &
|
|
constitutive_dislotwin_postResults(Tstar_v,constitutive_getTemperature(ipc,ip,el),ipc,ip,el)
|
|
case (PLASTICITY_DISLOKMC_ID)
|
|
constitutive_postResults(startPos:endPos) = &
|
|
constitutive_dislokmc_postResults(Tstar_v,constitutive_getTemperature(ipc,ip,el),ipc,ip,el)
|
|
case (PLASTICITY_NONLOCAL_ID)
|
|
constitutive_postResults(startPos:endPos) = &
|
|
constitutive_nonlocal_postResults (Tstar_v,FeArray,ip,el)
|
|
end select
|
|
|
|
#ifdef multiphysicsOut
|
|
startPos = endPos + 1_pInt
|
|
endPos = endPos + damageState(material_phase(ipc,ip,el))%sizePostResults
|
|
select case (phase_damage(material_phase(ipc,ip,el)))
|
|
case (LOCAL_DAMAGE_isoBrittle_ID)
|
|
constitutive_postResults(startPos:endPos) = damage_isoBrittle_postResults(ipc, ip, el)
|
|
case (LOCAL_DAMAGE_isoDuctile_ID)
|
|
constitutive_postResults(startPos:endPos) = damage_isoDuctile_postResults(ipc, ip, el)
|
|
case (LOCAL_DAMAGE_gurson_ID)
|
|
constitutive_postResults(startPos:endPos) = damage_gurson_postResults(ipc, ip, el)
|
|
case (LOCAL_DAMAGE_anisoBrittle_ID)
|
|
constitutive_postResults(startPos:endPos) = damage_anisoBrittle_postResults(ipc, ip, el)
|
|
end select
|
|
|
|
startPos = endPos + 1_pInt
|
|
endPos = endPos + thermalState(material_phase(ipc,ip,el))%sizePostResults
|
|
select case (phase_thermal(material_phase(ipc,ip,el)))
|
|
case (LOCAL_THERMAL_ADIABATIC_ID)
|
|
constitutive_postResults(startPos:endPos) = thermal_adiabatic_postResults(ipc, ip, el)
|
|
end select
|
|
|
|
startPos = endPos + 1_pInt
|
|
endPos = endPos + vacancyState(material_phase(ipc,ip,el))%sizePostResults
|
|
select case (phase_vacancy(material_phase(ipc,ip,el)))
|
|
case (LOCAL_VACANCY_generation_ID)
|
|
constitutive_postResults(startPos:endPos) = vacancy_generation_postResults(ipc, ip, el)
|
|
end select
|
|
#endif
|
|
|
|
end function constitutive_postResults
|
|
|
|
|
|
end module constitutive
|