750 lines
39 KiB
Fortran
750 lines
39 KiB
Fortran
!* $Id$
|
|
!************************************
|
|
!* Module: CONSTITUTIVE *
|
|
!************************************
|
|
!* contains: *
|
|
!* - constitutive equations *
|
|
!* - parameters definition *
|
|
!************************************
|
|
|
|
MODULE constitutive
|
|
|
|
!*** Include other modules ***
|
|
use prec
|
|
implicit none
|
|
|
|
type(p_vec), dimension(:,:,:), allocatable :: constitutive_state0, & ! pointer array to microstructure at start of FE inc
|
|
constitutive_partionedState0, & ! pointer array to microstructure at start of homogenization inc
|
|
constitutive_subState0, & ! pointer array to microstructure at start of crystallite inc
|
|
constitutive_state, & ! pointer array to current microstructure (end of converged time step)
|
|
constitutive_state_backup, & ! pointer array to backed up microstructure (end of converged time step)
|
|
constitutive_dotState, & ! pointer array to evolution of current microstructure
|
|
constitutive_previousDotState,& ! pointer array to previous evolution of current microstructure
|
|
constitutive_previousDotState2,&! pointer array to 2nd previous evolution of current microstructure
|
|
constitutive_dotState_backup, & ! pointer array to backed up evolution of current microstructure
|
|
constitutive_RK4dotState, & ! pointer array to evolution of microstructure defined by classical Runge-Kutta method
|
|
constitutive_aTolState ! pointer array to absolute state tolerance
|
|
type(p_vec), dimension(:,:,:,:), allocatable :: constitutive_RKCK45dotState ! pointer array to evolution of microstructure used by Cash-Karp Runge-Kutta method
|
|
integer(pInt), dimension(:,:,:), allocatable :: constitutive_sizeDotState, & ! size of dotState array
|
|
constitutive_sizeState, & ! size of state array per grain
|
|
constitutive_sizePostResults ! size of postResults array per grain
|
|
integer(pInt) constitutive_maxSizeDotState, &
|
|
constitutive_maxSizeState, &
|
|
constitutive_maxSizePostResults
|
|
|
|
CONTAINS
|
|
!****************************************
|
|
!* - constitutive_init
|
|
!* - constitutive_homogenizedC
|
|
!* - constitutive_averageBurgers
|
|
!* - constitutive_microstructure
|
|
!* - constitutive_LpAndItsTangent
|
|
!* - constitutive_collectDotState
|
|
!* - constitutive_collectDotTemperature
|
|
!* - constitutive_postResults
|
|
!****************************************
|
|
|
|
subroutine constitutive_init()
|
|
!**************************************
|
|
!* Module initialization *
|
|
!**************************************
|
|
use prec, only: pReal,pInt
|
|
use debug, only: debugger, selectiveDebugger, debug_e, debug_i, debug_g
|
|
use numerics, only: numerics_integrator
|
|
use IO, only: IO_error, IO_open_file, IO_open_jobFile
|
|
use mesh, only: mesh_maxNips,mesh_NcpElems,mesh_element,FE_Nips
|
|
use material
|
|
use constitutive_j2
|
|
use constitutive_phenopowerlaw
|
|
use constitutive_titanmod
|
|
use constitutive_dislotwin
|
|
use constitutive_nonlocal
|
|
|
|
integer(pInt), parameter :: fileunit = 200
|
|
integer(pInt) e,i,g,p,s,myInstance,myNgrains
|
|
integer(pInt), dimension(:,:), pointer :: thisSize
|
|
character(len=64), dimension(:,:), pointer :: thisOutput
|
|
logical knownConstitution
|
|
|
|
if(.not. IO_open_file(fileunit,material_configFile)) call IO_error (100) ! corrupt config file
|
|
|
|
call constitutive_j2_init(fileunit) ! parse all phases of this constitution
|
|
call constitutive_phenopowerlaw_init(fileunit)
|
|
call constitutive_titanmod_init(fileunit)
|
|
call constitutive_dislotwin_init(fileunit)
|
|
call constitutive_nonlocal_init(fileunit)
|
|
|
|
close(fileunit)
|
|
|
|
! write description file for constitutive phase output
|
|
|
|
if(.not. IO_open_jobFile(fileunit,'outputConstitutive')) call IO_error (50) ! problems in writing file
|
|
|
|
do p = 1,material_Nphase
|
|
i = phase_constitutionInstance(p) ! which instance of a constitution is present phase
|
|
knownConstitution = .true. ! assume valid
|
|
select case(phase_constitution(p)) ! split per constitiution
|
|
case (constitutive_j2_label)
|
|
thisOutput => constitutive_j2_output
|
|
thisSize => constitutive_j2_sizePostResult
|
|
case (constitutive_phenopowerlaw_label)
|
|
thisOutput => constitutive_phenopowerlaw_output
|
|
thisSize => constitutive_phenopowerlaw_sizePostResult
|
|
case (constitutive_titanmod_label)
|
|
thisOutput => constitutive_titanmod_output
|
|
thisSize => constitutive_titanmod_sizePostResult
|
|
case (constitutive_dislotwin_label)
|
|
thisOutput => constitutive_dislotwin_output
|
|
thisSize => constitutive_dislotwin_sizePostResult
|
|
case (constitutive_nonlocal_label)
|
|
thisOutput => constitutive_nonlocal_output
|
|
thisSize => constitutive_nonlocal_sizePostResult
|
|
case default
|
|
knownConstitution = .false.
|
|
end select
|
|
|
|
write(fileunit,*)
|
|
write(fileunit,'(a)') '['//trim(phase_name(p))//']'
|
|
write(fileunit,*)
|
|
if (knownConstitution) then
|
|
write(fileunit,'(a)') '(constitution)'//char(9)//trim(phase_constitution(p))
|
|
do e = 1,phase_Noutput(p)
|
|
write(fileunit,'(a,i4)') trim(thisOutput(e,i))//char(9),thisSize(e,i)
|
|
enddo
|
|
endif
|
|
enddo
|
|
|
|
close(fileunit)
|
|
|
|
! allocate memory for state management
|
|
|
|
allocate(constitutive_state0(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
allocate(constitutive_partionedState0(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
allocate(constitutive_subState0(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
allocate(constitutive_state(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
allocate(constitutive_state_backup(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
allocate(constitutive_dotState(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
allocate(constitutive_dotState_backup(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
allocate(constitutive_aTolState(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
allocate(constitutive_sizeDotState(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems)) ; constitutive_sizeDotState = 0_pInt
|
|
allocate(constitutive_sizeState(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems)) ; constitutive_sizeState = 0_pInt
|
|
allocate(constitutive_sizePostResults(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems)); constitutive_sizePostResults = 0_pInt
|
|
if (any(numerics_integrator == 1)) then
|
|
allocate(constitutive_previousDotState(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
allocate(constitutive_previousDotState2(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
endif
|
|
if (any(numerics_integrator == 4)) &
|
|
allocate(constitutive_RK4dotState(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
if (any(numerics_integrator == 5)) &
|
|
allocate(constitutive_RKCK45dotState(6,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems))
|
|
|
|
do e = 1,mesh_NcpElems ! loop over elements
|
|
myNgrains = homogenization_Ngrains(mesh_element(3,e))
|
|
do i = 1,FE_Nips(mesh_element(2,e)) ! loop over IPs
|
|
do g = 1,myNgrains ! loop over grains
|
|
myInstance = phase_constitutionInstance(material_phase(g,i,e))
|
|
select case(phase_constitution(material_phase(g,i,e)))
|
|
|
|
case (constitutive_j2_label)
|
|
allocate(constitutive_state0(g,i,e)%p(constitutive_j2_sizeState(myInstance)))
|
|
allocate(constitutive_partionedState0(g,i,e)%p(constitutive_j2_sizeState(myInstance)))
|
|
allocate(constitutive_subState0(g,i,e)%p(constitutive_j2_sizeState(myInstance)))
|
|
allocate(constitutive_state(g,i,e)%p(constitutive_j2_sizeState(myInstance)))
|
|
allocate(constitutive_state_backup(g,i,e)%p(constitutive_j2_sizeState(myInstance)))
|
|
allocate(constitutive_aTolState(g,i,e)%p(constitutive_j2_sizeState(myInstance)))
|
|
allocate(constitutive_dotState(g,i,e)%p(constitutive_j2_sizeDotState(myInstance)))
|
|
allocate(constitutive_dotState_backup(g,i,e)%p(constitutive_j2_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 1)) then
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_j2_sizeDotState(myInstance)))
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_j2_sizeDotState(myInstance)))
|
|
endif
|
|
if (any(numerics_integrator == 4)) &
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_j2_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 5)) then
|
|
do s = 1,6
|
|
allocate(constitutive_RKCK45dotState(s,g,i,e)%p(constitutive_j2_sizeDotState(myInstance)))
|
|
enddo
|
|
endif
|
|
constitutive_state0(g,i,e)%p = constitutive_j2_stateInit(myInstance)
|
|
constitutive_aTolState(g,i,e)%p = constitutive_j2_aTolState(myInstance)
|
|
constitutive_sizeState(g,i,e) = constitutive_j2_sizeState(myInstance)
|
|
constitutive_sizeDotState(g,i,e) = constitutive_j2_sizeDotState(myInstance)
|
|
constitutive_sizePostResults(g,i,e) = constitutive_j2_sizePostResults(myInstance)
|
|
|
|
case (constitutive_phenopowerlaw_label)
|
|
allocate(constitutive_state0(g,i,e)%p(constitutive_phenopowerlaw_sizeState(myInstance)))
|
|
allocate(constitutive_partionedState0(g,i,e)%p(constitutive_phenopowerlaw_sizeState(myInstance)))
|
|
allocate(constitutive_subState0(g,i,e)%p(constitutive_phenopowerlaw_sizeState(myInstance)))
|
|
allocate(constitutive_state(g,i,e)%p(constitutive_phenopowerlaw_sizeState(myInstance)))
|
|
allocate(constitutive_state_backup(g,i,e)%p(constitutive_phenopowerlaw_sizeState(myInstance)))
|
|
allocate(constitutive_aTolState(g,i,e)%p(constitutive_phenopowerlaw_sizeState(myInstance)))
|
|
allocate(constitutive_dotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(myInstance)))
|
|
allocate(constitutive_dotState_backup(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 1)) then
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(myInstance)))
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(myInstance)))
|
|
endif
|
|
if (any(numerics_integrator == 4)) &
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 5)) then
|
|
do s = 1,6
|
|
allocate(constitutive_RKCK45dotState(s,g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(myInstance)))
|
|
enddo
|
|
endif
|
|
constitutive_state0(g,i,e)%p = constitutive_phenopowerlaw_stateInit(myInstance)
|
|
constitutive_aTolState(g,i,e)%p = constitutive_phenopowerlaw_aTolState(myInstance)
|
|
constitutive_sizeState(g,i,e) = constitutive_phenopowerlaw_sizeState(myInstance)
|
|
constitutive_sizeDotState(g,i,e) = constitutive_phenopowerlaw_sizeDotState(myInstance)
|
|
constitutive_sizePostResults(g,i,e) = constitutive_phenopowerlaw_sizePostResults(myInstance)
|
|
|
|
case (constitutive_titanmod_label)
|
|
allocate(constitutive_state0(g,i,e)%p(constitutive_titanmod_sizeState(myInstance)))
|
|
allocate(constitutive_partionedState0(g,i,e)%p(constitutive_titanmod_sizeState(myInstance)))
|
|
allocate(constitutive_subState0(g,i,e)%p(constitutive_titanmod_sizeState(myInstance)))
|
|
allocate(constitutive_state(g,i,e)%p(constitutive_titanmod_sizeState(myInstance)))
|
|
allocate(constitutive_state_backup(g,i,e)%p(constitutive_titanmod_sizeState(myInstance)))
|
|
allocate(constitutive_aTolState(g,i,e)%p(constitutive_titanmod_sizeState(myInstance)))
|
|
allocate(constitutive_dotState(g,i,e)%p(constitutive_titanmod_sizeDotState(myInstance)))
|
|
allocate(constitutive_dotState_backup(g,i,e)%p(constitutive_titanmod_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 1)) then
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_titanmod_sizeDotState(myInstance)))
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_titanmod_sizeDotState(myInstance)))
|
|
endif
|
|
if (any(numerics_integrator == 4)) &
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_titanmod_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 5)) then
|
|
do s = 1,6
|
|
allocate(constitutive_RKCK45dotState(s,g,i,e)%p(constitutive_titanmod_sizeDotState(myInstance)))
|
|
enddo
|
|
endif
|
|
constitutive_state0(g,i,e)%p = constitutive_titanmod_stateInit(myInstance)
|
|
constitutive_aTolState(g,i,e)%p = constitutive_titanmod_aTolState(myInstance)
|
|
constitutive_sizeState(g,i,e) = constitutive_titanmod_sizeState(myInstance)
|
|
constitutive_sizeDotState(g,i,e) = constitutive_titanmod_sizeDotState(myInstance)
|
|
constitutive_sizePostResults(g,i,e) = constitutive_titanmod_sizePostResults(myInstance)
|
|
|
|
case (constitutive_dislotwin_label)
|
|
allocate(constitutive_state0(g,i,e)%p(constitutive_dislotwin_sizeState(myInstance)))
|
|
allocate(constitutive_partionedState0(g,i,e)%p(constitutive_dislotwin_sizeState(myInstance)))
|
|
allocate(constitutive_subState0(g,i,e)%p(constitutive_dislotwin_sizeState(myInstance)))
|
|
allocate(constitutive_state(g,i,e)%p(constitutive_dislotwin_sizeState(myInstance)))
|
|
allocate(constitutive_state_backup(g,i,e)%p(constitutive_dislotwin_sizeState(myInstance)))
|
|
allocate(constitutive_aTolState(g,i,e)%p(constitutive_dislotwin_sizeState(myInstance)))
|
|
allocate(constitutive_dotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(myInstance)))
|
|
allocate(constitutive_dotState_backup(g,i,e)%p(constitutive_dislotwin_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 1)) then
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(myInstance)))
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_dislotwin_sizeDotState(myInstance)))
|
|
endif
|
|
if (any(numerics_integrator == 4)) &
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 5)) then
|
|
do s = 1,6
|
|
allocate(constitutive_RKCK45dotState(s,g,i,e)%p(constitutive_dislotwin_sizeDotState(myInstance)))
|
|
enddo
|
|
endif
|
|
constitutive_state0(g,i,e)%p = constitutive_dislotwin_stateInit(myInstance)
|
|
constitutive_aTolState(g,i,e)%p = constitutive_dislotwin_aTolState(myInstance)
|
|
constitutive_sizeState(g,i,e) = constitutive_dislotwin_sizeState(myInstance)
|
|
constitutive_sizeDotState(g,i,e) = constitutive_dislotwin_sizeDotState(myInstance)
|
|
constitutive_sizePostResults(g,i,e) = constitutive_dislotwin_sizePostResults(myInstance)
|
|
|
|
case (constitutive_nonlocal_label)
|
|
allocate(constitutive_state0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance)))
|
|
allocate(constitutive_partionedState0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance)))
|
|
allocate(constitutive_subState0(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance)))
|
|
allocate(constitutive_state(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance)))
|
|
allocate(constitutive_state_backup(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance)))
|
|
allocate(constitutive_aTolState(g,i,e)%p(constitutive_nonlocal_sizeState(myInstance)))
|
|
allocate(constitutive_dotState(g,i,e)%p(constitutive_nonlocal_sizeDotState(myInstance)))
|
|
allocate(constitutive_dotState_backup(g,i,e)%p(constitutive_nonlocal_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 1)) then
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_nonlocal_sizeDotState(myInstance)))
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_nonlocal_sizeDotState(myInstance)))
|
|
endif
|
|
if (any(numerics_integrator == 4)) &
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_nonlocal_sizeDotState(myInstance)))
|
|
if (any(numerics_integrator == 5)) then
|
|
do s = 1,6
|
|
allocate(constitutive_RKCK45dotState(s,g,i,e)%p(constitutive_nonlocal_sizeDotState(myInstance)))
|
|
enddo
|
|
endif
|
|
constitutive_state0(g,i,e)%p = constitutive_nonlocal_stateInit(myInstance)
|
|
constitutive_aTolState(g,i,e)%p = constitutive_nonlocal_aTolState(myInstance)
|
|
constitutive_sizeState(g,i,e) = constitutive_nonlocal_sizeState(myInstance)
|
|
constitutive_sizeDotState(g,i,e) = constitutive_nonlocal_sizeDotState(myInstance)
|
|
constitutive_sizePostResults(g,i,e) = constitutive_nonlocal_sizePostResults(myInstance)
|
|
|
|
case default
|
|
call IO_error(200,material_phase(g,i,e)) ! unknown constitution
|
|
|
|
end select
|
|
constitutive_partionedState0(g,i,e)%p = constitutive_state0(g,i,e)%p
|
|
enddo
|
|
enddo
|
|
enddo
|
|
|
|
constitutive_maxSizeState = maxval(constitutive_sizeState)
|
|
constitutive_maxSizeDotState = maxval(constitutive_sizeDotState)
|
|
constitutive_maxSizePostResults = maxval(constitutive_sizePostResults)
|
|
|
|
!$OMP CRITICAL (write2out)
|
|
write(6,*)
|
|
write(6,*) '<<<+- constitutive init -+>>>'
|
|
write(6,*) '$Id$'
|
|
write(6,*)
|
|
write(6,'(a32,x,7(i5,x))') 'constitutive_state0: ', shape(constitutive_state0)
|
|
write(6,'(a32,x,7(i5,x))') 'constitutive_partionedState0: ', shape(constitutive_partionedState0)
|
|
write(6,'(a32,x,7(i5,x))') 'constitutive_subState0: ', shape(constitutive_subState0)
|
|
write(6,'(a32,x,7(i5,x))') 'constitutive_state: ', shape(constitutive_state)
|
|
write(6,'(a32,x,7(i5,x))') 'constitutive_aTolState: ', shape(constitutive_aTolState)
|
|
write(6,'(a32,x,7(i5,x))') 'constitutive_dotState: ', shape(constitutive_dotState)
|
|
write(6,'(a32,x,7(i5,x))') 'constitutive_sizeState: ', shape(constitutive_sizeState)
|
|
write(6,'(a32,x,7(i5,x))') 'constitutive_sizeDotState: ', shape(constitutive_sizeDotState)
|
|
write(6,'(a32,x,7(i5,x))') 'constitutive_sizePostResults: ', shape(constitutive_sizePostResults)
|
|
write(6,*)
|
|
write(6,'(a32,x,7(i5,x))') 'maxSizeState: ', constitutive_maxSizeState
|
|
write(6,'(a32,x,7(i5,x))') 'maxSizeDotState: ', constitutive_maxSizeDotState
|
|
write(6,'(a32,x,7(i5,x))') 'maxSizePostResults: ', constitutive_maxSizePostResults
|
|
call flush(6)
|
|
!$OMP END CRITICAL (write2out)
|
|
return
|
|
|
|
endsubroutine
|
|
|
|
|
|
function constitutive_homogenizedC(ipc,ip,el)
|
|
!*********************************************************************
|
|
!* This function returns the homogenized elacticity matrix *
|
|
!* INPUT: *
|
|
!* - state : state variables *
|
|
!* - ipc : component-ID of current integration point *
|
|
!* - ip : current integration point *
|
|
!* - el : current element *
|
|
!*********************************************************************
|
|
use prec, only: pReal,pInt
|
|
use material, only: phase_constitution,material_phase
|
|
use constitutive_j2
|
|
use constitutive_phenopowerlaw
|
|
use constitutive_titanmod
|
|
use constitutive_dislotwin
|
|
use constitutive_nonlocal
|
|
implicit none
|
|
|
|
!* Definition of variables
|
|
integer(pInt) ipc,ip,el
|
|
real(pReal), dimension(6,6) :: constitutive_homogenizedC
|
|
|
|
select case (phase_constitution(material_phase(ipc,ip,el)))
|
|
|
|
case (constitutive_j2_label)
|
|
constitutive_homogenizedC = constitutive_j2_homogenizedC(constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_phenopowerlaw_label)
|
|
constitutive_homogenizedC = constitutive_phenopowerlaw_homogenizedC(constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_titanmod_label)
|
|
constitutive_homogenizedC = constitutive_titanmod_homogenizedC(constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_dislotwin_label)
|
|
constitutive_homogenizedC = constitutive_dislotwin_homogenizedC(constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_nonlocal_label)
|
|
constitutive_homogenizedC = constitutive_nonlocal_homogenizedC(constitutive_state,ipc,ip,el)
|
|
|
|
end select
|
|
|
|
return
|
|
endfunction
|
|
|
|
function constitutive_averageBurgers(ipc,ip,el)
|
|
!*********************************************************************
|
|
!* This function returns the average length of Burgers vector *
|
|
!* INPUT: *
|
|
!* - state : state variables *
|
|
!* - ipc : component-ID of current integration point *
|
|
!* - ip : current integration point *
|
|
!* - el : current element *
|
|
!*********************************************************************
|
|
use prec, only: pReal,pInt
|
|
use material, only: phase_constitution,material_phase
|
|
use constitutive_j2
|
|
use constitutive_phenopowerlaw
|
|
use constitutive_titanmod
|
|
use constitutive_dislotwin
|
|
use constitutive_nonlocal
|
|
implicit none
|
|
|
|
!* Definition of variables
|
|
integer(pInt) ipc,ip,el
|
|
real(pReal) :: constitutive_averageBurgers
|
|
|
|
select case (phase_constitution(material_phase(ipc,ip,el)))
|
|
|
|
case (constitutive_j2_label)
|
|
constitutive_averageBurgers = 2.5e-10_pReal !constitutive_j2_averageBurgers(constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_phenopowerlaw_label)
|
|
constitutive_averageBurgers = 2.5e-10_pReal !constitutive_phenopowerlaw_averageBurgers(constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_titanmod_label)
|
|
constitutive_averageBurgers = 2.5e-10_pReal !constitutive_titanmod_averageBurgers(constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_dislotwin_label)
|
|
constitutive_averageBurgers = 2.5e-10_pReal !constitutive_dislotwin_averageBurgers(constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_nonlocal_label)
|
|
constitutive_averageBurgers = 2.5e-10_pReal !constitutive_nonlocal_averageBurgers(constitutive_state,ipc,ip,el)
|
|
|
|
end select
|
|
|
|
return
|
|
endfunction
|
|
|
|
|
|
|
|
!*********************************************************************
|
|
!* This function calculates from state needed variables *
|
|
!*********************************************************************
|
|
subroutine constitutive_microstructure(Temperature,Tstar_v,Fe,Fp,ipc,ip,el)
|
|
|
|
use prec, only: pReal,pInt
|
|
use material, only: phase_constitution, &
|
|
material_phase, &
|
|
homogenization_maxNgrains
|
|
use mesh, only: mesh_NcpElems, &
|
|
mesh_maxNips, &
|
|
mesh_maxNipNeighbors
|
|
use constitutive_j2, only: constitutive_j2_label, &
|
|
constitutive_j2_microstructure
|
|
use constitutive_phenopowerlaw, only: constitutive_phenopowerlaw_label, &
|
|
constitutive_phenopowerlaw_microstructure
|
|
use constitutive_titanmod, only: constitutive_titanmod_label, &
|
|
constitutive_titanmod_microstructure
|
|
use constitutive_dislotwin, only: constitutive_dislotwin_label, &
|
|
constitutive_dislotwin_microstructure
|
|
use constitutive_nonlocal, only: constitutive_nonlocal_label, &
|
|
constitutive_nonlocal_microstructure
|
|
implicit none
|
|
|
|
!*** input variables ***!
|
|
integer(pInt), intent(in):: ipc, & ! component-ID of current integration point
|
|
ip, & ! current integration point
|
|
el ! current element
|
|
real(pReal), intent(in) :: Temperature
|
|
real(pReal), intent(in), dimension(6) :: Tstar_v ! 2nd Piola-Kirchhoff stress
|
|
real(pReal), dimension(3,3,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: &
|
|
Fe, & ! elastic deformation gradient
|
|
Fp ! plastic deformation gradient
|
|
|
|
!*** output variables ***!
|
|
|
|
!*** local variables ***!
|
|
|
|
|
|
select case (phase_constitution(material_phase(ipc,ip,el)))
|
|
|
|
case (constitutive_j2_label)
|
|
call constitutive_j2_microstructure(Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_phenopowerlaw_label)
|
|
call constitutive_phenopowerlaw_microstructure(Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_titanmod_label)
|
|
call constitutive_titanmod_microstructure(Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_dislotwin_label)
|
|
call constitutive_dislotwin_microstructure(Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_nonlocal_label)
|
|
call constitutive_nonlocal_microstructure(constitutive_state, Temperature, Tstar_v, Fe, Fp, ipc, ip, el)
|
|
|
|
end select
|
|
|
|
endsubroutine
|
|
|
|
|
|
|
|
!*********************************************************************
|
|
!* This subroutine contains the constitutive equation for *
|
|
!* calculating the velocity gradient *
|
|
!*********************************************************************
|
|
subroutine constitutive_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, Temperature, ipc, ip, el)
|
|
|
|
use prec, only: pReal,pInt
|
|
use material, only: phase_constitution, &
|
|
material_phase
|
|
use constitutive_j2, only: constitutive_j2_label, &
|
|
constitutive_j2_LpAndItsTangent
|
|
use constitutive_phenopowerlaw, only: constitutive_phenopowerlaw_label, &
|
|
constitutive_phenopowerlaw_LpAndItsTangent
|
|
use constitutive_titanmod, only: constitutive_titanmod_label, &
|
|
constitutive_titanmod_LpAndItsTangent
|
|
use constitutive_dislotwin, only: constitutive_dislotwin_label, &
|
|
constitutive_dislotwin_LpAndItsTangent
|
|
use constitutive_nonlocal, only: constitutive_nonlocal_label, &
|
|
constitutive_nonlocal_LpAndItsTangent
|
|
implicit none
|
|
|
|
|
|
!*** input variables ***!
|
|
integer(pInt), intent(in):: ipc, & ! component-ID of current integration point
|
|
ip, & ! current integration point
|
|
el ! current element
|
|
real(pReal), intent(in) :: Temperature
|
|
real(pReal), dimension(6), intent(in) :: Tstar_v ! 2nd Piola-Kirchhoff stress
|
|
|
|
!*** output variables ***!
|
|
real(pReal), dimension(3,3), intent(out) :: Lp ! plastic velocity gradient
|
|
real(pReal), dimension(9,9), intent(out) :: dLp_dTstar ! derivative of Lp with respect to Tstar (4th-order tensor)
|
|
|
|
|
|
!*** local variables ***!
|
|
|
|
|
|
select case (phase_constitution(material_phase(ipc,ip,el)))
|
|
|
|
case (constitutive_j2_label)
|
|
call constitutive_j2_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_phenopowerlaw_label)
|
|
call constitutive_phenopowerlaw_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_titanmod_label)
|
|
call constitutive_titanmod_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_dislotwin_label)
|
|
call constitutive_dislotwin_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_nonlocal_label)
|
|
call constitutive_nonlocal_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, Temperature, constitutive_state, ipc, ip, el)
|
|
|
|
end select
|
|
|
|
endsubroutine
|
|
|
|
|
|
|
|
!*********************************************************************
|
|
!* This subroutine contains the constitutive equation for *
|
|
!* calculating the rate of change of microstructure *
|
|
!*********************************************************************
|
|
subroutine constitutive_collectDotState(Tstar_v, Fe, Fp, Temperature, subdt, orientation, ipc, ip, el)
|
|
|
|
use prec, only: pReal, pInt
|
|
use debug, only: debug_cumDotStateCalls, &
|
|
debug_cumDotStateTicks
|
|
use mesh, only: mesh_NcpElems, &
|
|
mesh_maxNips, &
|
|
mesh_maxNipNeighbors
|
|
use material, only: phase_constitution, &
|
|
material_phase, &
|
|
homogenization_maxNgrains
|
|
use constitutive_j2, only: constitutive_j2_dotState, &
|
|
constitutive_j2_label
|
|
use constitutive_phenopowerlaw, only: constitutive_phenopowerlaw_dotState, &
|
|
constitutive_phenopowerlaw_label
|
|
use constitutive_titanmod, only: constitutive_titanmod_dotState, &
|
|
constitutive_titanmod_label
|
|
use constitutive_dislotwin, only: constitutive_dislotwin_dotState, &
|
|
constitutive_dislotwin_label
|
|
use constitutive_nonlocal, only: constitutive_nonlocal_dotState, &
|
|
constitutive_nonlocal_label
|
|
|
|
implicit none
|
|
|
|
!*** input variables
|
|
integer(pInt), intent(in) :: ipc, & ! component-ID of current integration point
|
|
ip, & ! current integration point
|
|
el ! current element
|
|
real(pReal), intent(in) :: Temperature, &
|
|
subdt ! timestep
|
|
real(pReal), dimension(3,3,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: &
|
|
Fe, & ! elastic deformation gradient
|
|
Fp ! plastic deformation gradient
|
|
real(pReal), dimension(4,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: &
|
|
orientation ! crystal orientation (quaternion)
|
|
real(pReal), dimension(6), intent(in) :: &
|
|
Tstar_v ! 2nd Piola Kirchhoff stress tensor (Mandel)
|
|
|
|
!*** output variables ***!
|
|
|
|
!*** local variables
|
|
integer(pLongInt) tick, tock, &
|
|
tickrate, &
|
|
maxticks
|
|
|
|
call system_clock(count=tick,count_rate=tickrate,count_max=maxticks)
|
|
|
|
select case (phase_constitution(material_phase(ipc,ip,el)))
|
|
|
|
case (constitutive_j2_label)
|
|
constitutive_dotState(ipc,ip,el)%p = constitutive_j2_dotState(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_phenopowerlaw_label)
|
|
constitutive_dotState(ipc,ip,el)%p = constitutive_phenopowerlaw_dotState(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_titanmod_label)
|
|
constitutive_dotState(ipc,ip,el)%p = constitutive_titanmod_dotState(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_dislotwin_label)
|
|
constitutive_dotState(ipc,ip,el)%p = constitutive_dislotwin_dotState(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_nonlocal_label)
|
|
call constitutive_nonlocal_dotState(constitutive_dotState, Tstar_v, Fe, Fp, Temperature, constitutive_state, &
|
|
constitutive_aTolState, subdt, orientation, ipc, ip, el)
|
|
|
|
end select
|
|
|
|
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
|
|
if (tock < tick) debug_cumDotStateTicks = debug_cumDotStateTicks + maxticks
|
|
!$OMP END CRITICAL (debugTimingDotState)
|
|
|
|
endsubroutine
|
|
|
|
|
|
|
|
!*********************************************************************
|
|
!* This subroutine contains the constitutive equation for *
|
|
!* calculating the rate of change of microstructure *
|
|
!*********************************************************************
|
|
function constitutive_dotTemperature(Tstar_v,Temperature,ipc,ip,el)
|
|
|
|
use prec, only: pReal,pInt
|
|
use debug, only: debug_cumDotTemperatureCalls, &
|
|
debug_cumDotTemperatureTicks
|
|
use material, only: phase_constitution, &
|
|
material_phase
|
|
use constitutive_j2, only: constitutive_j2_dotTemperature, &
|
|
constitutive_j2_label
|
|
use constitutive_phenopowerlaw, only: constitutive_phenopowerlaw_dotTemperature, &
|
|
constitutive_phenopowerlaw_label
|
|
use constitutive_titanmod, only: constitutive_titanmod_dotTemperature, &
|
|
constitutive_titanmod_label
|
|
use constitutive_dislotwin, only: constitutive_dislotwin_dotTemperature, &
|
|
constitutive_dislotwin_label
|
|
use constitutive_nonlocal, only: constitutive_nonlocal_dotTemperature, &
|
|
constitutive_nonlocal_label
|
|
implicit none
|
|
|
|
!*** input variables
|
|
integer(pInt), intent(in) :: ipc, & ! component-ID of current integration point
|
|
ip, & ! current integration point
|
|
el ! current element
|
|
real(pReal), intent(in) :: Temperature
|
|
real(pReal), dimension(6), intent(in) :: &
|
|
Tstar_v ! 2nd Piola Kirchhoff stress tensor (Mandel)
|
|
|
|
!*** output variables ***!
|
|
real(pReal) constitutive_dotTemperature ! evolution of temperature
|
|
|
|
!*** local variables
|
|
integer(pLongInt) tick, tock, &
|
|
tickrate, &
|
|
maxticks
|
|
|
|
|
|
call system_clock(count=tick,count_rate=tickrate,count_max=maxticks)
|
|
|
|
select case (phase_constitution(material_phase(ipc,ip,el)))
|
|
|
|
case (constitutive_j2_label)
|
|
constitutive_dotTemperature = constitutive_j2_dotTemperature(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_phenopowerlaw_label)
|
|
constitutive_dotTemperature = constitutive_phenopowerlaw_dotTemperature(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_titanmod_label)
|
|
constitutive_dotTemperature = constitutive_titanmod_dotTemperature(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_dislotwin_label)
|
|
constitutive_dotTemperature = constitutive_dislotwin_dotTemperature(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_nonlocal_label)
|
|
constitutive_dotTemperature = constitutive_nonlocal_dotTemperature(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
end select
|
|
|
|
call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
|
|
!$OMP CRITICAL (debugTimingDotTemperature)
|
|
debug_cumDotTemperatureCalls = debug_cumDotTemperatureCalls + 1_pInt
|
|
debug_cumDotTemperatureTicks = debug_cumDotTemperatureTicks + tock-tick
|
|
if (tock < tick) debug_cumDotTemperatureTicks = debug_cumDotTemperatureTicks + maxticks
|
|
!$OMP END CRITICAL (debugTimingDotTemperature)
|
|
|
|
endfunction
|
|
|
|
|
|
|
|
function constitutive_postResults(Tstar_v, Fe, Temperature, dt, ipc, ip, el)
|
|
!*********************************************************************
|
|
!* return array of constitutive results *
|
|
!* INPUT: *
|
|
!* - Tstar_v : 2nd Piola Kirchhoff stress tensor (Mandel) *
|
|
!* - dt : current time increment *
|
|
!* - ipc : component-ID of current integration point *
|
|
!* - ip : current integration point *
|
|
!* - el : current element *
|
|
!*********************************************************************
|
|
use prec, only: pReal,pInt
|
|
use mesh, only: mesh_NcpElems, &
|
|
mesh_maxNips, &
|
|
mesh_maxNipNeighbors
|
|
use material, only: phase_constitution, &
|
|
material_phase, &
|
|
homogenization_maxNgrains
|
|
use constitutive_j2, only: constitutive_j2_postResults, &
|
|
constitutive_j2_label
|
|
use constitutive_phenopowerlaw, only: constitutive_phenopowerlaw_postResults, &
|
|
constitutive_phenopowerlaw_label
|
|
use constitutive_titanmod, only: constitutive_titanmod_postResults, &
|
|
constitutive_titanmod_label
|
|
use constitutive_dislotwin, only: constitutive_dislotwin_postResults, &
|
|
constitutive_dislotwin_label
|
|
use constitutive_nonlocal, only: constitutive_nonlocal_postResults, &
|
|
constitutive_nonlocal_label
|
|
implicit none
|
|
|
|
!*** input variables
|
|
integer(pInt), intent(in) :: ipc, & ! component-ID of current integration point
|
|
ip, & ! current integration point
|
|
el ! current element
|
|
real(pReal), intent(in) :: Temperature, &
|
|
dt ! timestep
|
|
real(pReal), dimension(3,3), intent(in) :: &
|
|
Fe ! elastic deformation gradient
|
|
real(pReal), dimension(6), intent(in) :: &
|
|
Tstar_v ! 2nd Piola Kirchhoff stress tensor (Mandel)
|
|
|
|
!*** output variables ***!
|
|
real(pReal), dimension(constitutive_sizePostResults(ipc,ip,el)) :: constitutive_postResults
|
|
|
|
!*** local variables
|
|
|
|
|
|
constitutive_postResults = 0.0_pReal
|
|
select case (phase_constitution(material_phase(ipc,ip,el)))
|
|
|
|
case (constitutive_j2_label)
|
|
constitutive_postResults = constitutive_j2_postResults(Tstar_v,Temperature,dt,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_phenopowerlaw_label)
|
|
constitutive_postResults = constitutive_phenopowerlaw_postResults(Tstar_v,Temperature,dt,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_titanmod_label)
|
|
constitutive_postResults = constitutive_titanmod_postResults(Tstar_v,Temperature,dt,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_dislotwin_label)
|
|
constitutive_postResults = constitutive_dislotwin_postResults(Tstar_v,Temperature,dt,constitutive_state,ipc,ip,el)
|
|
|
|
case (constitutive_nonlocal_label)
|
|
constitutive_postResults = constitutive_nonlocal_postResults(Tstar_v, Fe, Temperature, dt, constitutive_state, &
|
|
constitutive_dotstate, ipc, ip, el)
|
|
end select
|
|
|
|
endfunction
|
|
|
|
END MODULE |