DAMASK_EICMD/code/constitutive_damage.f90

279 lines
11 KiB
Fortran
Raw Normal View History

!--------------------------------------------------------------------------------------------------
! $Id: constitutive_damage.f90 3205 2014-06-17 06:54:49Z MPIE\m.diehl $
!--------------------------------------------------------------------------------------------------
!> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @brief damage internal microstructure state
!--------------------------------------------------------------------------------------------------
module constitutive_damage
use prec, only: &
pInt, &
pReal
implicit none
private
integer(pInt), public, protected :: &
constitutive_damage_maxSizePostResults, &
constitutive_damage_maxSizeDotState
public :: &
constitutive_damage_init, &
constitutive_damage_microstructure, &
constitutive_damage_collectDotState, &
constitutive_damageValue, &
constitutive_damage_postResults
contains
!--------------------------------------------------------------------------------------------------
!> @brief allocates arrays pointing to array of the various constitutive modules
!--------------------------------------------------------------------------------------------------
subroutine constitutive_damage_init
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
use IO, only: &
IO_open_file, &
IO_open_jobFile_stat, &
IO_write_jobFile, &
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_damage, &
phase_damageInstance, &
phase_Noutput, &
homogenization_Ngrains, &
homogenization_maxNgrains, &
damageState, &
DAMAGE_none_ID, &
DAMAGE_NONE_label, &
2014-08-01 20:24:57 +05:30
DAMAGE_local_ID, &
DAMAGE_LOCAL_label, &
DAMAGE_gradient_ID, &
DAMAGE_GRADIENT_label
use damage_none
2014-08-01 20:24:57 +05:30
use damage_local
use damage_gradient
implicit none
integer(pInt), parameter :: FILEUNIT = 200_pInt
integer(pInt) :: &
e, & !< grain number
ph, &
instance
integer(pInt), dimension(:,:), pointer :: thisSize
logical :: knownDamage
character(len=64), dimension(:,:), pointer :: thisOutput
character(len=32) :: outputName !< name of output, intermediate fix until HDF5 output is ready
!--------------------------------------------------------------------------------------------------
! 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_damage == DAMAGE_none_ID)) call damage_none_init(FILEUNIT)
2014-08-01 20:24:57 +05:30
if (any(phase_damage == DAMAGE_local_ID)) call damage_local_init(FILEUNIT)
if (any(phase_damage == DAMAGE_gradient_ID)) call damage_gradient_init(FILEUNIT)
close(FILEUNIT)
write(6,'(/,a)') ' <<<+- constitutive_damage init -+>>>'
write(6,'(a)') ' $Id: constitutive_damage.f90 3205 2014-06-17 06:54:49Z MPIE\m.diehl $'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90"
!--------------------------------------------------------------------------------------------------
! write description file for constitutive phase output
call IO_write_jobFile(FILEUNIT,'outputDamage')
do ph = 1_pInt,material_Nphase
instance = phase_damageInstance(ph) ! which instance of a plasticity is present phase
knownDamage = .true.
select case(phase_damage(ph)) ! split per constititution
case (DAMAGE_none_ID)
outputName = DAMAGE_NONE_label
thisOutput => null()
thisSize => null()
2014-08-01 20:24:57 +05:30
case (DAMAGE_local_ID)
outputName = DAMAGE_LOCAL_label
thisOutput => damage_local_output
thisSize => damage_local_sizePostResult
case (DAMAGE_gradient_ID)
outputName = DAMAGE_GRADIENT_label
thisOutput => damage_gradient_output
thisSize => damage_gradient_sizePostResult
case default
knownDamage = .false.
end select
write(FILEUNIT,'(/,a,/)') '['//trim(phase_name(ph))//']'
if (knownDamage) then
write(FILEUNIT,'(a)') '(damage)'//char(9)//trim(outputName)
if (phase_damage(ph) /= DAMAGE_none_ID) then
do e = 1_pInt,phase_Noutput(ph)
write(FILEUNIT,'(a,i4)') trim(thisOutput(e,instance))//char(9),thisSize(e,instance)
enddo
endif
endif
enddo
close(FILEUNIT)
!--------------------------------------------------------------------------------------------------
! allocation of states
constitutive_damage_maxSizePostResults = 0_pInt
constitutive_damage_maxSizeDotState = 0_pInt
PhaseLoop:do ph = 1_pInt,material_Nphase ! loop over phases
constitutive_damage_maxSizeDotState = max(constitutive_damage_maxSizeDotState, damageState(ph)%sizeDotState)
constitutive_damage_maxSizePostResults = max(constitutive_damage_maxSizePostResults, damageState(ph)%sizePostResults)
enddo PhaseLoop
end subroutine constitutive_damage_init
!--------------------------------------------------------------------------------------------------
!> @brief calls microstructure function of the different constitutive models
!--------------------------------------------------------------------------------------------------
subroutine constitutive_damage_microstructure(Tstar_v, Fe, ipc, ip, el)
use material, only: &
material_phase, &
phase_damage, &
DAMAGE_gradient_ID
use damage_gradient, only: &
damage_gradient_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
select case (phase_damage(material_phase(ipc,ip,el)))
case (DAMAGE_gradient_ID)
call damage_gradient_microstructure(Tstar_v, Fe, ipc, ip, el)
end select
end subroutine constitutive_damage_microstructure
!--------------------------------------------------------------------------------------------------
!> @brief contains the constitutive equation for calculating the rate of change of microstructure
!--------------------------------------------------------------------------------------------------
2014-08-01 20:24:57 +05:30
subroutine constitutive_damage_collectDotState(Tstar_v, Fe, Lp, ipc, ip, el)
use material, only: &
material_phase, &
phase_damage, &
2014-08-01 20:24:57 +05:30
DAMAGE_local_ID, &
DAMAGE_gradient_ID
use damage_gradient, only: &
damage_gradient_dotState
2014-08-01 20:24:57 +05:30
use damage_local, only: &
damage_local_dotState
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) :: &
2014-08-01 20:24:57 +05:30
Lp, &
Fe
select case (phase_damage(material_phase(ipc,ip,el)))
2014-08-01 20:24:57 +05:30
case (DAMAGE_local_ID)
call damage_local_dotState(Tstar_v, Fe, Lp, ipc, ip, el)
case (DAMAGE_gradient_ID)
call damage_gradient_dotState(Tstar_v, Fe, Lp, ipc, ip, el)
end select
end subroutine constitutive_damage_collectDotState
!--------------------------------------------------------------------------------------------------
!> @brief returns temperature based on each damage model state layout
!--------------------------------------------------------------------------------------------------
function constitutive_damageValue(ipc, ip, el)
use material, only: &
material_phase, &
phase_damage, &
DAMAGE_none_ID, &
DAMAGE_local_ID, &
DAMAGE_gradient_ID
use damage_local, only: &
damage_local_damageValue
use damage_gradient, only: &
damage_gradient_damageValue
implicit none
integer(pInt), intent(in) :: &
ipc, & !< grain number
ip, & !< integration point number
el !< element number
real(pReal) :: constitutive_damageValue
select case (phase_damage(material_phase(ipc,ip,el)))
case (DAMAGE_none_ID)
constitutive_damageValue = 1.0_pReal
case (DAMAGE_local_ID)
constitutive_damageValue = damage_local_damageValue(ipc, ip, el)
case (DAMAGE_gradient_ID)
constitutive_damageValue = damage_gradient_damageValue(ipc, ip, el)
end select
end function constitutive_damageValue
!--------------------------------------------------------------------------------------------------
!> @brief returns array of constitutive results
!--------------------------------------------------------------------------------------------------
function constitutive_damage_postResults(ipc, ip, el)
use material, only: &
damageState, &
material_phase, &
phase_damage, &
2014-08-01 20:24:57 +05:30
DAMAGE_local_ID, &
DAMAGE_gradient_ID
2014-08-01 20:24:57 +05:30
use damage_local, only: &
damage_local_postResults
use damage_gradient, only: &
damage_gradient_postResults
implicit none
integer(pInt), intent(in) :: &
ipc, & !< grain number
ip, & !< integration point number
el !< element number
real(pReal), dimension(damageState(material_phase(ipc,ip,el))%sizePostResults) :: &
constitutive_damage_postResults
constitutive_damage_postResults = 0.0_pReal
select case (phase_damage(material_phase(ipc,ip,el)))
2014-08-01 20:24:57 +05:30
case (DAMAGE_local_ID)
constitutive_damage_postResults = damage_local_postResults(ipc, ip, el)
case (DAMAGE_gradient_ID)
constitutive_damage_postResults = damage_gradient_postResults(ipc,ip,el)
end select
end function constitutive_damage_postResults
end module constitutive_damage