2011-04-07 12:50:28 +05:30
|
|
|
! Copyright 2011 Max-Planck-Institut für Eisenforschung GmbH
|
2011-04-04 19:39:54 +05:30
|
|
|
!
|
|
|
|
|
! This file is part of DAMASK,
|
2011-04-07 12:50:28 +05:30
|
|
|
! the Düsseldorf Advanced MAterial Simulation Kit.
|
2011-04-04 19:39:54 +05:30
|
|
|
!
|
|
|
|
|
! DAMASK is free software: you can redistribute it and/or modify
|
|
|
|
|
! it under the terms of the GNU General Public License as published by
|
|
|
|
|
! the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
! (at your option) any later version.
|
|
|
|
|
!
|
|
|
|
|
! DAMASK is distributed in the hope that it will be useful,
|
|
|
|
|
! but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
! GNU General Public License for more details.
|
|
|
|
|
!
|
|
|
|
|
! You should have received a copy of the GNU General Public License
|
|
|
|
|
! along with DAMASK. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
!
|
|
|
|
|
!##############################################################
|
2009-08-31 20:39:15 +05:30
|
|
|
!* $Id$
|
2009-03-04 19:31:36 +05:30
|
|
|
!************************************
|
|
|
|
|
!* Module: CONSTITUTIVE *
|
|
|
|
|
!************************************
|
|
|
|
|
!* contains: *
|
|
|
|
|
!* - constitutive equations *
|
|
|
|
|
!* - parameters definition *
|
|
|
|
|
!************************************
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2009-03-04 19:31:36 +05:30
|
|
|
MODULE constitutive
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
use prec, only: pInt, p_vec
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
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
|
|
|
|
|
|
2012-03-14 21:46:11 +05:30
|
|
|
character (len=*), parameter, public :: constitutive_hooke_label = 'hooke'
|
|
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
contains
|
2009-03-04 19:31:36 +05:30
|
|
|
!****************************************
|
|
|
|
|
!* - constitutive_init
|
|
|
|
|
!* - constitutive_homogenizedC
|
2010-03-24 18:50:12 +05:30
|
|
|
!* - constitutive_averageBurgers
|
2009-03-04 19:31:36 +05:30
|
|
|
!* - constitutive_microstructure
|
|
|
|
|
!* - constitutive_LpAndItsTangent
|
2009-08-11 22:01:57 +05:30
|
|
|
!* - constitutive_collectDotState
|
|
|
|
|
!* - constitutive_collectDotTemperature
|
2009-03-04 19:31:36 +05:30
|
|
|
!* - constitutive_postResults
|
2012-03-14 21:46:11 +05:30
|
|
|
!* - constitutive_TandItsTangent
|
|
|
|
|
!* - constitutive_hooke_TandItsTangent
|
2009-03-04 19:31:36 +05:30
|
|
|
!****************************************
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2011-03-29 12:57:19 +05:30
|
|
|
|
2009-03-04 19:31:36 +05:30
|
|
|
!**************************************
|
|
|
|
|
!* Module initialization *
|
|
|
|
|
!**************************************
|
2012-03-09 01:55:28 +05:30
|
|
|
subroutine constitutive_init
|
|
|
|
|
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
|
|
|
|
|
use debug, only: debug_what, &
|
|
|
|
|
debug_constitutive, &
|
|
|
|
|
debug_levelBasic
|
|
|
|
|
use numerics, only: numerics_integrator
|
|
|
|
|
use IO, only: IO_error, &
|
|
|
|
|
IO_open_file, &
|
|
|
|
|
IO_open_jobFile_stat, &
|
|
|
|
|
IO_write_jobFile
|
|
|
|
|
use mesh, only: mesh_maxNips, &
|
|
|
|
|
mesh_NcpElems, &
|
|
|
|
|
mesh_element,FE_Nips
|
|
|
|
|
use material, only: material_phase, &
|
|
|
|
|
material_Nphase, &
|
|
|
|
|
material_localFileExt, &
|
|
|
|
|
material_configFile, &
|
|
|
|
|
phase_name, &
|
2012-03-12 19:39:37 +05:30
|
|
|
phase_plasticity, &
|
|
|
|
|
phase_plasticityInstance, &
|
2012-03-09 01:55:28 +05:30
|
|
|
phase_Noutput, &
|
|
|
|
|
homogenization_Ngrains, &
|
|
|
|
|
homogenization_maxNgrains
|
|
|
|
|
use constitutive_j2
|
|
|
|
|
use constitutive_phenopowerlaw
|
|
|
|
|
use constitutive_titanmod
|
|
|
|
|
use constitutive_dislotwin
|
|
|
|
|
use constitutive_nonlocal
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2011-03-29 12:57:19 +05:30
|
|
|
implicit none
|
2012-02-21 21:30:00 +05:30
|
|
|
integer(pInt), parameter :: fileunit = 200_pInt
|
2011-03-29 12:57:19 +05:30
|
|
|
integer(pInt) g, & ! grain number
|
|
|
|
|
i, & ! integration point number
|
|
|
|
|
e, & ! element number
|
|
|
|
|
gMax, & ! maximum number of grains
|
|
|
|
|
iMax, & ! maximum number of integration points
|
|
|
|
|
eMax, & ! maximum number of elements
|
|
|
|
|
p, &
|
|
|
|
|
s, &
|
|
|
|
|
myInstance,&
|
|
|
|
|
myNgrains
|
|
|
|
|
integer(pInt), dimension(:,:), pointer :: thisSize
|
|
|
|
|
character(len=64), dimension(:,:), pointer :: thisOutput
|
2012-03-12 20:13:19 +05:30
|
|
|
logical :: knownPlasticity
|
2009-03-05 20:06:01 +05:30
|
|
|
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2012-03-12 20:13:19 +05:30
|
|
|
! --- PARSE PLASTICITIES FROM CONFIG FILE ---
|
2009-07-22 21:37:19 +05:30
|
|
|
|
2012-02-13 23:11:27 +05:30
|
|
|
if (.not. IO_open_jobFile_stat(fileunit,material_localFileExt)) then ! no local material configuration present...
|
|
|
|
|
call IO_open_file(fileunit,material_configFile) ! ... open material.config file
|
2011-08-02 15:44:16 +05:30
|
|
|
endif
|
2011-03-29 12:57:19 +05:30
|
|
|
call constitutive_j2_init(fileunit)
|
|
|
|
|
call constitutive_phenopowerlaw_init(fileunit)
|
|
|
|
|
call constitutive_titanmod_init(fileunit)
|
|
|
|
|
call constitutive_dislotwin_init(fileunit)
|
|
|
|
|
call constitutive_nonlocal_init(fileunit)
|
|
|
|
|
close(fileunit)
|
2009-07-22 21:37:19 +05:30
|
|
|
|
|
|
|
|
|
2011-03-29 12:57:19 +05:30
|
|
|
! --- WRITE DESCRIPTION FILE FOR CONSTITUTIVE PHASE OUTPUT ---
|
2009-07-22 21:37:19 +05:30
|
|
|
|
2012-02-13 23:11:27 +05:30
|
|
|
call IO_write_jobFile(fileunit,'outputConstitutive')
|
2012-02-21 21:30:00 +05:30
|
|
|
do p = 1_pInt,material_Nphase
|
2012-03-12 20:13:19 +05:30
|
|
|
i = phase_plasticityInstance(p) ! which instance of a plasticity is present phase
|
|
|
|
|
knownPlasticity = .true. ! assume valid
|
2012-03-12 19:39:37 +05:30
|
|
|
select case(phase_plasticity(p)) ! split per constitiution
|
2011-03-29 12:57:19 +05:30
|
|
|
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
|
2012-03-12 20:13:19 +05:30
|
|
|
knownPlasticity = .false.
|
2011-03-29 12:57:19 +05:30
|
|
|
end select
|
|
|
|
|
write(fileunit,*)
|
|
|
|
|
write(fileunit,'(a)') '['//trim(phase_name(p))//']'
|
|
|
|
|
write(fileunit,*)
|
2012-03-12 20:13:19 +05:30
|
|
|
if (knownPlasticity) then
|
|
|
|
|
write(fileunit,'(a)') '(plasticity)'//char(9)//trim(phase_plasticity(p))
|
2012-02-21 21:30:00 +05:30
|
|
|
do e = 1_pInt,phase_Noutput(p)
|
2011-03-29 12:57:19 +05:30
|
|
|
write(fileunit,'(a,i4)') trim(thisOutput(e,i))//char(9),thisSize(e,i)
|
|
|
|
|
enddo
|
|
|
|
|
endif
|
|
|
|
|
enddo
|
|
|
|
|
close(fileunit)
|
2009-07-22 21:37:19 +05:30
|
|
|
|
2010-09-13 14:59:03 +05:30
|
|
|
|
2011-03-29 12:57:19 +05:30
|
|
|
! --- ALLOCATION OF STATES ---
|
|
|
|
|
|
|
|
|
|
gMax = homogenization_maxNgrains
|
|
|
|
|
iMax = mesh_maxNips
|
|
|
|
|
eMax = mesh_NcpElems
|
|
|
|
|
|
|
|
|
|
allocate(constitutive_state0(gMax,iMax,eMax))
|
|
|
|
|
allocate(constitutive_partionedState0(gMax,iMax,eMax))
|
|
|
|
|
allocate(constitutive_subState0(gMax,iMax,eMax))
|
|
|
|
|
allocate(constitutive_state(gMax,iMax,eMax))
|
|
|
|
|
allocate(constitutive_state_backup(gMax,iMax,eMax))
|
|
|
|
|
allocate(constitutive_dotState(gMax,iMax,eMax))
|
|
|
|
|
allocate(constitutive_dotState_backup(gMax,iMax,eMax))
|
|
|
|
|
allocate(constitutive_aTolState(gMax,iMax,eMax))
|
|
|
|
|
allocate(constitutive_sizeDotState(gMax,iMax,eMax)) ; constitutive_sizeDotState = 0_pInt
|
|
|
|
|
allocate(constitutive_sizeState(gMax,iMax,eMax)) ; constitutive_sizeState = 0_pInt
|
|
|
|
|
allocate(constitutive_sizePostResults(gMax,iMax,eMax)); constitutive_sizePostResults = 0_pInt
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 1_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_previousDotState(gMax,iMax,eMax))
|
|
|
|
|
allocate(constitutive_previousDotState2(gMax,iMax,eMax))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 4_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_RK4dotState(gMax,iMax,eMax))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 5_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_RKCK45dotState(6,gMax,iMax,eMax))
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
!$OMP PARALLEL DO PRIVATE(myNgrains,myInstance)
|
2012-02-21 21:30:00 +05:30
|
|
|
do e = 1_pInt,mesh_NcpElems ! loop over elements
|
2011-03-29 12:57:19 +05:30
|
|
|
myNgrains = homogenization_Ngrains(mesh_element(3,e))
|
2012-02-21 21:30:00 +05:30
|
|
|
do i = 1_pInt,FE_Nips(mesh_element(2,e)) ! loop over IPs
|
|
|
|
|
do g = 1_pInt,myNgrains ! loop over grains
|
2012-03-12 19:39:37 +05:30
|
|
|
myInstance = phase_plasticityInstance(material_phase(g,i,e))
|
|
|
|
|
select case(phase_plasticity(material_phase(g,i,e)))
|
2011-03-29 12:57:19 +05:30
|
|
|
|
|
|
|
|
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)))
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 1_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_j2_sizeDotState(myInstance)))
|
|
|
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_j2_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 4_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_j2_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 5_pInt)) then
|
|
|
|
|
do s = 1_pInt,6_pInt
|
2011-03-29 12:57:19 +05:30
|
|
|
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)
|
2009-09-18 21:07:14 +05:30
|
|
|
|
2011-03-29 12:57:19 +05:30
|
|
|
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)))
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 1_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(myInstance)))
|
|
|
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 4_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_phenopowerlaw_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 5_pInt)) then
|
|
|
|
|
do s = 1_pInt,6_pInt
|
2011-03-29 12:57:19 +05:30
|
|
|
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)))
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 1_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_titanmod_sizeDotState(myInstance)))
|
|
|
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_titanmod_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 4_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_titanmod_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 5_pInt)) then
|
|
|
|
|
do s = 1_pInt,6_pInt
|
2011-03-29 12:57:19 +05:30
|
|
|
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)))
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 1_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(myInstance)))
|
|
|
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_dislotwin_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 4_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_dislotwin_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 5_pInt)) then
|
|
|
|
|
do s = 1_pInt,6_pInt
|
2011-03-29 12:57:19 +05:30
|
|
|
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)))
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 1_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_previousDotState(g,i,e)%p(constitutive_nonlocal_sizeDotState(myInstance)))
|
|
|
|
|
allocate(constitutive_previousDotState2(g,i,e)%p(constitutive_nonlocal_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 4_pInt)) then
|
2011-03-29 12:57:19 +05:30
|
|
|
allocate(constitutive_RK4dotState(g,i,e)%p(constitutive_nonlocal_sizeDotState(myInstance)))
|
|
|
|
|
endif
|
2012-02-21 21:30:00 +05:30
|
|
|
if (any(numerics_integrator == 5_pInt)) then
|
|
|
|
|
do s = 1_pInt,6_pInt
|
2011-03-29 12:57:19 +05:30
|
|
|
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
|
2012-03-12 20:13:19 +05:30
|
|
|
call IO_error(200_pInt,material_phase(g,i,e)) ! unknown plasticity
|
2009-09-18 21:07:14 +05:30
|
|
|
|
2011-03-29 12:57:19 +05:30
|
|
|
end select
|
2011-08-02 16:40:41 +05:30
|
|
|
constitutive_partionedState0(g,i,e)%p = constitutive_state0(g,i,e)%p
|
|
|
|
|
constitutive_state(g,i,e)%p = constitutive_state0(g,i,e)%p ! need to be defined for first call of constitutive_microstructure in crystallite_init
|
2011-03-29 12:57:19 +05:30
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
enddo
|
|
|
|
|
!$OMP END PARALLEL DO
|
2010-10-01 17:48:49 +05:30
|
|
|
|
2011-03-29 12:57:19 +05:30
|
|
|
constitutive_maxSizeState = maxval(constitutive_sizeState)
|
|
|
|
|
constitutive_maxSizeDotState = maxval(constitutive_sizeDotState)
|
|
|
|
|
constitutive_maxSizePostResults = maxval(constitutive_sizePostResults)
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2011-03-29 12:57:19 +05:30
|
|
|
!$OMP CRITICAL (write2out)
|
|
|
|
|
write(6,*)
|
|
|
|
|
write(6,*) '<<<+- constitutive init -+>>>'
|
|
|
|
|
write(6,*) '$Id$'
|
2012-02-01 00:48:55 +05:30
|
|
|
#include "compilation_info.f90"
|
2012-03-09 01:55:28 +05:30
|
|
|
if (iand(debug_what(debug_constitutive),debug_levelBasic) /= 0_pInt) then
|
2012-02-01 00:48:55 +05:30
|
|
|
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_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)
|
2011-03-29 12:57:19 +05:30
|
|
|
write(6,*)
|
2012-02-01 00:48:55 +05:30
|
|
|
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
|
2011-03-29 12:57:19 +05:30
|
|
|
endif
|
|
|
|
|
call flush(6)
|
|
|
|
|
!$OMP END CRITICAL (write2out)
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2009-08-11 22:01:57 +05:30
|
|
|
endsubroutine
|
2009-03-06 15:32:36 +05:30
|
|
|
|
|
|
|
|
|
2009-03-04 19:31:36 +05:30
|
|
|
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 *
|
|
|
|
|
!*********************************************************************
|
2012-03-09 01:55:28 +05:30
|
|
|
use prec, only: pReal
|
2012-03-12 19:39:37 +05:30
|
|
|
use material, only: phase_plasticity,material_phase
|
2009-03-06 15:32:36 +05:30
|
|
|
use constitutive_j2
|
2009-07-22 21:37:19 +05:30
|
|
|
use constitutive_phenopowerlaw
|
2010-09-13 14:59:03 +05:30
|
|
|
use constitutive_titanmod
|
2009-10-06 20:46:03 +05:30
|
|
|
use constitutive_dislotwin
|
2009-08-11 22:01:57 +05:30
|
|
|
use constitutive_nonlocal
|
2012-03-09 01:55:28 +05:30
|
|
|
|
2009-03-04 19:31:36 +05:30
|
|
|
implicit none
|
2012-03-09 01:55:28 +05:30
|
|
|
integer(pInt) :: ipc,ip,el
|
2009-03-04 19:31:36 +05:30
|
|
|
real(pReal), dimension(6,6) :: constitutive_homogenizedC
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2012-03-12 19:39:37 +05:30
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
2009-08-11 22:01:57 +05:30
|
|
|
|
2009-03-05 20:06:01 +05:30
|
|
|
case (constitutive_j2_label)
|
2009-05-07 21:57:36 +05:30
|
|
|
constitutive_homogenizedC = constitutive_j2_homogenizedC(constitutive_state,ipc,ip,el)
|
2009-08-11 22:01:57 +05:30
|
|
|
|
2009-07-22 21:37:19 +05:30
|
|
|
case (constitutive_phenopowerlaw_label)
|
|
|
|
|
constitutive_homogenizedC = constitutive_phenopowerlaw_homogenizedC(constitutive_state,ipc,ip,el)
|
2010-09-13 14:59:03 +05:30
|
|
|
|
|
|
|
|
case (constitutive_titanmod_label)
|
|
|
|
|
constitutive_homogenizedC = constitutive_titanmod_homogenizedC(constitutive_state,ipc,ip,el)
|
|
|
|
|
|
2009-10-06 20:46:03 +05:30
|
|
|
case (constitutive_dislotwin_label)
|
|
|
|
|
constitutive_homogenizedC = constitutive_dislotwin_homogenizedC(constitutive_state,ipc,ip,el)
|
2009-08-11 22:01:57 +05:30
|
|
|
|
|
|
|
|
case (constitutive_nonlocal_label)
|
|
|
|
|
constitutive_homogenizedC = constitutive_nonlocal_homogenizedC(constitutive_state,ipc,ip,el)
|
|
|
|
|
|
2009-03-04 19:31:36 +05:30
|
|
|
end select
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2009-03-04 19:31:36 +05:30
|
|
|
return
|
2009-08-11 22:01:57 +05:30
|
|
|
endfunction
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2010-03-24 18:50:12 +05:30
|
|
|
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 *
|
|
|
|
|
!*********************************************************************
|
2012-03-09 01:55:28 +05:30
|
|
|
use prec, only: pReal
|
2012-03-12 19:39:37 +05:30
|
|
|
use material, only: phase_plasticity,material_phase
|
2010-03-24 18:50:12 +05:30
|
|
|
use constitutive_j2
|
|
|
|
|
use constitutive_phenopowerlaw
|
2010-09-13 14:59:03 +05:30
|
|
|
use constitutive_titanmod
|
2010-03-24 18:50:12 +05:30
|
|
|
use constitutive_dislotwin
|
|
|
|
|
use constitutive_nonlocal
|
2012-03-09 01:55:28 +05:30
|
|
|
|
2010-03-24 18:50:12 +05:30
|
|
|
implicit none
|
2012-03-09 01:55:28 +05:30
|
|
|
integer(pInt) :: ipc,ip,el
|
2010-03-24 18:50:12 +05:30
|
|
|
real(pReal) :: constitutive_averageBurgers
|
|
|
|
|
|
2012-03-12 19:39:37 +05:30
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
2010-03-24 18:50:12 +05:30
|
|
|
|
|
|
|
|
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)
|
2010-09-13 14:59:03 +05:30
|
|
|
|
|
|
|
|
case (constitutive_titanmod_label)
|
|
|
|
|
constitutive_averageBurgers = 2.5e-10_pReal !constitutive_titanmod_averageBurgers(constitutive_state,ipc,ip,el)
|
2010-03-24 18:50:12 +05:30
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
2009-03-06 15:32:36 +05:30
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
|
2009-03-04 19:31:36 +05:30
|
|
|
!*********************************************************************
|
|
|
|
|
!* This function calculates from state needed variables *
|
|
|
|
|
!*********************************************************************
|
2012-01-17 15:56:57 +05:30
|
|
|
subroutine constitutive_microstructure(Temperature, Fe, Fp, ipc, ip, el)
|
2012-03-09 01:55:28 +05:30
|
|
|
use prec, only: pReal
|
2012-03-12 19:39:37 +05:30
|
|
|
use material, only: phase_plasticity, &
|
2012-02-21 21:30:00 +05:30
|
|
|
material_phase
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
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
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
implicit none
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
!*** input variables ***!
|
2012-01-17 15:56:57 +05:30
|
|
|
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(3,3), intent(in) :: Fe, & ! elastic deformation gradient
|
|
|
|
|
Fp ! plastic deformation gradient
|
2009-03-06 15:32:36 +05:30
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
!*** output variables ***!
|
2010-09-13 14:59:03 +05:30
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
!*** local variables ***!
|
|
|
|
|
|
|
|
|
|
|
2012-03-12 19:39:37 +05:30
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
|
|
|
|
|
case (constitutive_j2_label)
|
|
|
|
|
call constitutive_j2_microstructure(Temperature,constitutive_state,ipc,ip,el)
|
2009-08-11 22:01:57 +05:30
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
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)
|
2012-01-17 15:56:57 +05:30
|
|
|
call constitutive_nonlocal_microstructure(constitutive_state, Temperature, Fe, Fp, ipc, ip, el)
|
2009-08-11 22:01:57 +05:30
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
end select
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2009-08-11 22:01:57 +05:30
|
|
|
endsubroutine
|
2009-03-06 15:32:36 +05:30
|
|
|
|
|
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
|
2009-03-04 19:31:36 +05:30
|
|
|
!*********************************************************************
|
|
|
|
|
!* This subroutine contains the constitutive equation for *
|
|
|
|
|
!* calculating the velocity gradient *
|
|
|
|
|
!*********************************************************************
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
subroutine constitutive_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, Temperature, ipc, ip, el)
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
use prec, only: pReal
|
2012-03-12 19:39:37 +05:30
|
|
|
use material, only: phase_plasticity, &
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
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
|
2010-09-13 14:59:03 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
implicit none
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
!*** 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 ***!
|
|
|
|
|
|
|
|
|
|
|
2012-03-12 19:39:37 +05:30
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
|
|
|
|
|
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)
|
2011-11-04 18:42:17 +05:30
|
|
|
call constitutive_nonlocal_LpAndItsTangent(Lp, dLp_dTstar, Tstar_v, Temperature, constitutive_state(ipc,ip,el), ipc, ip, el)
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
|
|
|
|
|
end select
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2009-08-11 22:01:57 +05:30
|
|
|
endsubroutine
|
2009-03-06 15:32:36 +05:30
|
|
|
|
|
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
|
2009-03-04 19:31:36 +05:30
|
|
|
!*********************************************************************
|
|
|
|
|
!* This subroutine contains the constitutive equation for *
|
|
|
|
|
!* calculating the rate of change of microstructure *
|
|
|
|
|
!*********************************************************************
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
subroutine constitutive_collectDotState(Tstar_v, Fe, Fp, Temperature, subdt, orientation, ipc, ip, el)
|
|
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
use prec, only: pReal, pLongInt
|
2009-12-15 13:50:31 +05:30
|
|
|
use debug, only: debug_cumDotStateCalls, &
|
2011-03-21 16:01:17 +05:30
|
|
|
debug_cumDotStateTicks, &
|
2012-03-09 01:55:28 +05:30
|
|
|
debug_what, &
|
|
|
|
|
debug_constitutive, &
|
|
|
|
|
debug_levelBasic
|
2009-12-15 13:50:31 +05:30
|
|
|
use mesh, only: mesh_NcpElems, &
|
2012-02-21 21:30:00 +05:30
|
|
|
mesh_maxNips
|
2012-03-12 19:39:37 +05:30
|
|
|
use material, only: phase_plasticity, &
|
2009-12-15 13:50:31 +05:30
|
|
|
material_phase, &
|
|
|
|
|
homogenization_maxNgrains
|
2010-10-01 17:48:49 +05:30
|
|
|
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
|
2009-12-15 13:50:31 +05:30
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
!*** input variables
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
integer(pInt), intent(in) :: ipc, & ! component-ID of current integration point
|
|
|
|
|
ip, & ! current integration point
|
|
|
|
|
el ! current element
|
2009-12-15 13:50:31 +05:30
|
|
|
real(pReal), intent(in) :: Temperature, &
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
subdt ! timestep
|
2009-12-15 13:50:31 +05:30
|
|
|
real(pReal), dimension(3,3,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: &
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
Fe, & ! elastic deformation gradient
|
|
|
|
|
Fp ! plastic deformation gradient
|
2010-10-15 18:49:26 +05:30
|
|
|
real(pReal), dimension(4,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: &
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
orientation ! crystal orientation (quaternion)
|
2009-12-15 13:50:31 +05:30
|
|
|
real(pReal), dimension(6), intent(in) :: &
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
Tstar_v ! 2nd Piola Kirchhoff stress tensor (Mandel)
|
2009-12-15 13:50:31 +05:30
|
|
|
!*** local variables
|
|
|
|
|
integer(pLongInt) tick, tock, &
|
|
|
|
|
tickrate, &
|
|
|
|
|
maxticks
|
|
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
if (iand(debug_what(debug_constitutive), debug_levelBasic) /= 0_pInt) then
|
2011-03-21 16:01:17 +05:30
|
|
|
call system_clock(count=tick,count_rate=tickrate,count_max=maxticks)
|
|
|
|
|
endif
|
2009-12-15 13:50:31 +05:30
|
|
|
|
2012-03-12 19:39:37 +05:30
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
2009-12-15 13:50:31 +05:30
|
|
|
|
|
|
|
|
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)
|
2010-09-13 14:59:03 +05:30
|
|
|
|
|
|
|
|
case (constitutive_titanmod_label)
|
|
|
|
|
constitutive_dotState(ipc,ip,el)%p = constitutive_titanmod_dotState(Tstar_v,Temperature,constitutive_state,ipc,ip,el)
|
|
|
|
|
|
2009-12-15 13:50:31 +05:30
|
|
|
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)
|
2011-03-21 20:48:09 +05:30
|
|
|
call constitutive_nonlocal_dotState(constitutive_dotState(ipc,ip,el), Tstar_v, Fe, Fp, Temperature, constitutive_state, &
|
2012-02-22 21:38:22 +05:30
|
|
|
subdt, orientation, ipc, ip, el)
|
2009-12-15 13:50:31 +05:30
|
|
|
|
|
|
|
|
end select
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
if (iand(debug_what(debug_constitutive), debug_levelBasic) /= 0_pInt) then
|
2011-03-21 16:01:17 +05:30
|
|
|
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
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2009-08-11 22:01:57 +05:30
|
|
|
endsubroutine
|
2009-03-06 15:32:36 +05:30
|
|
|
|
|
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
|
2009-07-01 15:59:35 +05:30
|
|
|
!*********************************************************************
|
|
|
|
|
!* This subroutine contains the constitutive equation for *
|
|
|
|
|
!* calculating the rate of change of microstructure *
|
|
|
|
|
!*********************************************************************
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
function constitutive_dotTemperature(Tstar_v,Temperature,ipc,ip,el)
|
|
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
use prec, only: pReal, pLongInt
|
2010-10-01 17:48:49 +05:30
|
|
|
use debug, only: debug_cumDotTemperatureCalls, &
|
2011-03-21 16:01:17 +05:30
|
|
|
debug_cumDotTemperatureTicks, &
|
2012-03-09 01:55:28 +05:30
|
|
|
debug_what, &
|
|
|
|
|
debug_constitutive, &
|
|
|
|
|
debug_levelBasic
|
2012-03-12 19:39:37 +05:30
|
|
|
use material, only: phase_plasticity, &
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
material_phase
|
2010-10-01 17:48:49 +05:30
|
|
|
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
|
2009-07-01 15:59:35 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
implicit none
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
!*** 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
|
|
|
|
|
|
2009-07-01 15:59:35 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
if (iand(debug_what(debug_constitutive),debug_levelBasic) /= 0_pInt) then
|
2011-03-21 16:01:17 +05:30
|
|
|
call system_clock(count=tick,count_rate=tickrate,count_max=maxticks)
|
|
|
|
|
endif
|
2010-09-13 14:59:03 +05:30
|
|
|
|
2012-03-12 19:39:37 +05:30
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
2010-10-01 17:48:49 +05:30
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
if (iand(debug_what(debug_constitutive),debug_levelBasic) /= 0_pInt) then
|
2011-03-21 16:01:17 +05:30
|
|
|
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
|
|
|
|
|
!$OMP FLUSH (debug_cumDotTemperatureTicks)
|
|
|
|
|
if (tock < tick) debug_cumDotTemperatureTicks = debug_cumDotTemperatureTicks + maxticks
|
|
|
|
|
!$OMP END CRITICAL (debugTimingDotTemperature)
|
|
|
|
|
endif
|
2010-10-01 17:48:49 +05:30
|
|
|
|
2009-08-11 22:01:57 +05:30
|
|
|
endfunction
|
2009-07-01 15:59:35 +05:30
|
|
|
|
|
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
|
2011-02-25 15:23:20 +05:30
|
|
|
function constitutive_postResults(Tstar_v, Fe, Temperature, dt, ipc, ip, el)
|
2009-03-04 19:31:36 +05:30
|
|
|
!*********************************************************************
|
|
|
|
|
!* 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 *
|
|
|
|
|
!*********************************************************************
|
2012-03-09 01:55:28 +05:30
|
|
|
use prec, only: pReal
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
use mesh, only: mesh_NcpElems, &
|
2012-02-21 21:30:00 +05:30
|
|
|
mesh_maxNips
|
2012-03-12 19:39:37 +05:30
|
|
|
use material, only: phase_plasticity, &
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
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
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2012-03-09 01:55:28 +05:30
|
|
|
implicit none
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
!*** 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
|
2012-01-17 15:56:57 +05:30
|
|
|
real(pReal), dimension(3,3,homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: &
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
Fe ! elastic deformation gradient
|
|
|
|
|
real(pReal), dimension(6), intent(in) :: &
|
|
|
|
|
Tstar_v ! 2nd Piola Kirchhoff stress tensor (Mandel)
|
2009-03-06 15:32:36 +05:30
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
!*** output variables ***!
|
|
|
|
|
real(pReal), dimension(constitutive_sizePostResults(ipc,ip,el)) :: constitutive_postResults
|
|
|
|
|
|
|
|
|
|
!*** local variables
|
2010-09-13 14:59:03 +05:30
|
|
|
|
2009-03-06 15:32:36 +05:30
|
|
|
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
constitutive_postResults = 0.0_pReal
|
2012-03-12 19:39:37 +05:30
|
|
|
select case (phase_plasticity(material_phase(ipc,ip,el)))
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
|
|
|
|
|
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, &
|
2012-01-17 15:56:57 +05:30
|
|
|
constitutive_dotstate(ipc,ip,el), ipc, ip, el)
|
openmp parallelization working again (at least for j2 and nonlocal constitutive model).
In order to keep it like that, please follow these simple rules:
DON'T use implicit array subscripts:
example: real, dimension(3,3) :: A,B
A(:,2) = B(:,1) <--- DON'T USE
A(1:3,2) = B(1:3,1) <--- BETTER USE
In many cases the use of explicit array subscripts is inevitable for parallelization. Additionally, it is an easy means to prevent memory leaks.
Enclose all write statements with the following:
!$OMP CRITICAL (write2out)
<your write statement>
!$OMP END CRITICAL (write2out)
Whenever you change something in the code and are not sure if it affects parallelization and leads to nonconforming behavior, please ask me and/or Franz to check this.
2011-03-17 16:16:17 +05:30
|
|
|
end select
|
|
|
|
|
|
2009-08-11 22:01:57 +05:30
|
|
|
endfunction
|
2009-03-06 15:32:36 +05:30
|
|
|
|
2012-03-14 21:46:11 +05:30
|
|
|
|
|
|
|
|
subroutine constitutive_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el)
|
|
|
|
|
!************************************************************************
|
|
|
|
|
!* This subroutine returns the 2nd Piola-Kirchhoff stress tensor and *
|
|
|
|
|
!* its tangent with respect to the elastic deformation gradient *
|
|
|
|
|
!* OUTPUT: *
|
2012-03-15 15:17:32 +05:30
|
|
|
!* - T : 2nd Piola-Kirchhoff stress tensor *
|
|
|
|
|
!* - dT_dFe : derivative of 2nd Piola-Kirchhoff stress tensor *
|
2012-03-14 21:46:11 +05:30
|
|
|
!* with respect to the elastic deformation gradient *
|
|
|
|
|
!* INPUT: *
|
|
|
|
|
!* - Fe : elastic deformation gradient *
|
|
|
|
|
!* - ipc : component-ID of current integration point *
|
|
|
|
|
!* - ip : current integration point *
|
|
|
|
|
!* - el : current element *
|
|
|
|
|
!************************************************************************
|
|
|
|
|
use prec, only: pReal
|
|
|
|
|
use material, only: phase_elasticity,material_phase
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
integer(pInt) :: ipc,ip,el
|
|
|
|
|
real(pReal), dimension(3,3) :: T, Fe
|
|
|
|
|
real(pReal), dimension(3,3,3,3) :: dT_dFe
|
|
|
|
|
|
|
|
|
|
select case (phase_elasticity(material_phase(ipc,ip,el)))
|
|
|
|
|
|
|
|
|
|
case (constitutive_hooke_label)
|
2012-03-15 15:12:33 +05:30
|
|
|
call constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, ipc, ip, el)
|
2012-03-14 21:46:11 +05:30
|
|
|
|
|
|
|
|
end select
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
endsubroutine constitutive_TandItsTangent
|
|
|
|
|
|
|
|
|
|
subroutine constitutive_hooke_TandItsTangent(T, dT_dFe, Fe, g, i, e)
|
|
|
|
|
!************************************************************************
|
|
|
|
|
!* This subroutine returns the 2nd Piola-Kirchhoff stress tensor and *
|
|
|
|
|
!* its tangent with respect to the elastic deformation gradient *
|
|
|
|
|
!* OUTPUT: *
|
2012-03-15 15:17:32 +05:30
|
|
|
!* - T : 2nd Piola-Kirchhoff stress tensor *
|
|
|
|
|
!* - dT_dFe : derivative of 2nd Piola-Kirchhoff stress tensor *
|
2012-03-14 21:46:11 +05:30
|
|
|
!* with respect to the elastic deformation gradient *
|
|
|
|
|
!* INPUT: *
|
|
|
|
|
!* - Fe : elastic deformation gradient *
|
|
|
|
|
!* - ipc : component-ID of current integration point *
|
|
|
|
|
!* - ip : current integration point *
|
|
|
|
|
!* - el : current element *
|
|
|
|
|
!************************************************************************
|
|
|
|
|
use prec, only: p_vec
|
|
|
|
|
use math
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
!* Definition of variables
|
|
|
|
|
integer(pInt) g, i, e, p, o
|
|
|
|
|
real(pReal), dimension(3,3) :: T, Fe
|
|
|
|
|
real(pReal), dimension(6,6) :: C_66
|
|
|
|
|
real(pReal), dimension(3,3,3,3) :: dT_dFe, C
|
|
|
|
|
|
|
|
|
|
!* get elasticity tensor
|
|
|
|
|
|
|
|
|
|
C_66 = constitutive_homogenizedC(g,i,e)
|
|
|
|
|
C = math_Mandel66to3333(C_66)
|
|
|
|
|
|
|
|
|
|
T = 0.5_pReal*math_mul3333xx33(C,math_mul33x33(math_transpose33(Fe),Fe)-math_I3)
|
|
|
|
|
|
|
|
|
|
do p=1_pInt,3_pInt; do o=1_pInt,3_pInt
|
|
|
|
|
dT_dFe(o,p,1:3,1:3) = math_mul33x33(C(o,p,1:3,1:3), math_transpose33(Fe)) ! dT*_ij/dFe_kl
|
|
|
|
|
enddo; enddo
|
|
|
|
|
|
|
|
|
|
end subroutine constitutive_hooke_TandItsTangent
|
|
|
|
|
|
2011-11-04 18:42:17 +05:30
|
|
|
END MODULE
|
