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

some changes related to new state 

fixed assigning of wrong output in J2 model
This commit is contained in:
Martin Diehl 2014-05-08 14:55:19 +00:00
parent 02edadfdeb
commit 986926aaf2
5 changed files with 88 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
code/constitutive.f90
View File

@ -86,7 +86,6 @@ subroutine constitutive_init
FE_Nips, & FE_Nips, &
FE_geomtype FE_geomtype
use material, only: & use material, only: &
material_phase, &
material_phase, & material_phase, &
material_Nphase, & material_Nphase, &
material_localFileExt, & material_localFileExt, &
@ -111,6 +110,9 @@ subroutine constitutive_init
PLASTICITY_PHENOPOWERLAW_label, & PLASTICITY_PHENOPOWERLAW_label, &
PLASTICITY_DISLOTWIN_label, & PLASTICITY_DISLOTWIN_label, &
PLASTICITY_TITANMOD_label, & PLASTICITY_TITANMOD_label, &
#ifdef NEWSTATE
plasticState, &
#endif
PLASTICITY_NONLOCAL_label PLASTICITY_NONLOCAL_label
use constitutive_none use constitutive_none
use constitutive_j2 use constitutive_j2
@ -132,11 +134,12 @@ subroutine constitutive_init
s, & s, &
instance,& instance,&
myNgrains myNgrains
integer(pInt), dimension(:,:), pointer :: thisSize integer(pInt), dimension(:,:), pointer :: thisSize
character(len=64), dimension(:,:), pointer :: thisOutput character(len=64), dimension(:,:), pointer :: thisOutput
character(len=32) :: outputName !< name of output, intermediate fix until HDF5 output is ready character(len=32) :: outputName !< name of output, intermediate fix until HDF5 output is ready
logical :: knownPlasticity, nonlocalConstitutionPresent logical :: knownPlasticity, nonlocalConstitutionPresent
#ifdef HDF #if defined(HDF) || defined(NEWSTATE)
integer(pInt), dimension(:,:,:), allocatable :: mappingConstitutive integer(pInt), dimension(:,:,:), allocatable :: mappingConstitutive
integer(pInt), dimension(:,:,:), allocatable :: mappingCrystallite integer(pInt), dimension(:,:,:), allocatable :: mappingCrystallite
integer(pInt), dimension(:), allocatable :: ConstitutivePosition integer(pInt), dimension(:), allocatable :: ConstitutivePosition
@ -148,7 +151,6 @@ subroutine constitutive_init
#endif #endif
nonlocalConstitutionPresent = .false. nonlocalConstitutionPresent = .false.
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! parse plasticities from config file ! parse plasticities from config file
if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present... if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present...
@ -216,6 +218,9 @@ subroutine constitutive_init
iMax = mesh_maxNips iMax = mesh_maxNips
eMax = mesh_NcpElems eMax = mesh_NcpElems
! lumped into new state
allocate(constitutive_state0(cMax,iMax,eMax)) allocate(constitutive_state0(cMax,iMax,eMax))
allocate(constitutive_partionedState0(cMax,iMax,eMax)) allocate(constitutive_partionedState0(cMax,iMax,eMax))
allocate(constitutive_subState0(cMax,iMax,eMax)) allocate(constitutive_subState0(cMax,iMax,eMax))
@ -225,6 +230,7 @@ subroutine constitutive_init
allocate(constitutive_deltaState(cMax,iMax,eMax)) allocate(constitutive_deltaState(cMax,iMax,eMax))
allocate(constitutive_dotState_backup(cMax,iMax,eMax)) allocate(constitutive_dotState_backup(cMax,iMax,eMax))
allocate(constitutive_aTolState(cMax,iMax,eMax)) allocate(constitutive_aTolState(cMax,iMax,eMax))
! not needed anymore for new state
allocate(constitutive_sizeDotState(cMax,iMax,eMax), source=0_pInt) allocate(constitutive_sizeDotState(cMax,iMax,eMax), source=0_pInt)
allocate(constitutive_sizeState(cMax,iMax,eMax), source=0_pInt) allocate(constitutive_sizeState(cMax,iMax,eMax), source=0_pInt)
allocate(constitutive_sizePostResults(cMax,iMax,eMax), source=0_pInt) allocate(constitutive_sizePostResults(cMax,iMax,eMax), source=0_pInt)
@ -248,7 +254,7 @@ subroutine constitutive_init
end select end select
phase = material_phase(g,i,e) phase = material_phase(g,i,e)
instance = phase_plasticityInstance(phase) instance = phase_plasticityInstance(phase)
#ifdef HDF #if defined(HDF) || defined(NEWSTATE)
ConstitutivePosition(phase) = ConstitutivePosition(phase)+1_pInt ConstitutivePosition(phase) = ConstitutivePosition(phase)+1_pInt
mappingConstitutive(g,e,1:2) = [ConstitutivePosition(phase),phase] mappingConstitutive(g,e,1:2) = [ConstitutivePosition(phase),phase]
#endif #endif
@ -439,6 +445,8 @@ subroutine constitutive_init
end select end select
enddo enddo
#endif #endif
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! write out state size file ! write out state size file
call IO_write_jobIntFile(777,'sizeStateConst', size(constitutive_sizeState)) call IO_write_jobIntFile(777,'sizeStateConst', size(constitutive_sizeState))
@ -537,7 +545,10 @@ subroutine constitutive_microstructure(temperature, Fe, Fp, ipc, ip, el)
real(pReal), intent(in), dimension(3,3) :: & real(pReal), intent(in), dimension(3,3) :: &
Fe, & !< elastic deformation gradient Fe, & !< elastic deformation gradient
Fp !< plastic deformation gradient Fp !< plastic deformation gradient
! offset = mappingConstitutive(ipc,el,1) ????
! OLD constitutive_state(ipc,ip,el)
! NEW plasticState(phase=material_phase(ipc,ip,el))%state(1:myStateSize,offset)
select case (phase_plasticity(material_phase(ipc,ip,el))) select case (phase_plasticity(material_phase(ipc,ip,el)))
case (PLASTICITY_DISLOTWIN_ID) case (PLASTICITY_DISLOTWIN_ID)

52
code/constitutive_j2.f90
View File

@ -96,6 +96,8 @@ use debug, only: &
debug_level, & debug_level, &
debug_constitutive, & debug_constitutive, &
debug_levelBasic debug_levelBasic
use numerics, only: &
numerics_integrator
use math, only: & use math, only: &
math_Mandel3333to66, & math_Mandel3333to66, &
math_Voigt66to3333 math_Voigt66to3333
@ -123,7 +125,11 @@ use debug, only: &
PLASTICITY_J2_label, & PLASTICITY_J2_label, &
PLASTICITY_J2_ID, & PLASTICITY_J2_ID, &
material_phase, & material_phase, &
#ifdef NEWSTATE
plasticState, &
#endif
MATERIAL_partPhase MATERIAL_partPhase
use lattice use lattice
implicit none implicit none
@ -136,12 +142,15 @@ use debug, only: &
character(len=65536) :: & character(len=65536) :: &
tag = '', & tag = '', &
line = '' line = ''
integer(pInt) :: NofMyPhase
#ifdef HDF #ifdef HDF
character(len=5) :: & character(len=5) :: &
str1 str1
integer(HID_T) :: ID,ID2,ID4 integer(HID_T) :: ID,ID2,ID4
#endif #endif
#ifdef NEWSTATE
integer(pInt) :: sizeDotState,sizeState
#endif
write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_J2_label//' init -+>>>' write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_J2_label//' init -+>>>'
write(6,'(a)') ' $Id$' write(6,'(a)') ' $Id$'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
@ -201,9 +210,6 @@ use debug, only: &
myConstituents = count(material_phase==phase) myConstituents = count(material_phase==phase)
#ifdef HDF #ifdef HDF
outID(instance)=HDF5_addGroup(str1,tempResults) outID(instance)=HDF5_addGroup(str1,tempResults)
#endif
#ifdef NEWSTATE
allocate(plasticState(phase)%s(1,myConstituents)) ! initialize state (like stateInit)
#endif #endif
endif endif
cycle ! skip to next line cycle ! skip to next line
@ -225,18 +231,17 @@ use debug, only: &
case ('flowstress') case ('flowstress')
constitutive_j2_outputID(constitutive_j2_Noutput(instance),instance) = flowstress_ID constitutive_j2_outputID(constitutive_j2_Noutput(instance),instance) = flowstress_ID
#ifdef HDF #ifdef HDF
call HDF5_addScalarDataset(outID(instance),a,'flowstress','MPa') call HDF5_addScalarDataset(outID(instance),myConstituents,'flowstress','MPa')
allocate(constitutive_j2_Output2(instance)%flowstress(a)) allocate(constitutive_j2_Output2(instance)%flowstress(myConstituents))
constitutive_j2_Output2(instance)%flowstressActive = .true. constitutive_j2_Output2(instance)%flowstressActive = .true.
#endif #endif
case ('strainrate') case ('strainrate')
constitutive_j2_outputID(constitutive_j2_Noutput(instance),instance) = strainrate_ID constitutive_j2_outputID(constitutive_j2_Noutput(instance),instance) = strainrate_ID
#ifdef HDF #ifdef HDF
call HDF5_addScalarDataset(outID(instance),a,'strainrate','1/s') call HDF5_addScalarDataset(outID(instance),myConstituents,'strainrate','1/s')
allocate(constitutive_j2_Output2(instance)%strainrate(a)) allocate(constitutive_j2_Output2(instance)%strainrate(myConstituents))
constitutive_j2_Output2(instance)%strainrateActive = .true. constitutive_j2_Output2(instance)%strainrateActive = .true.
#endif #endif
case default case default
call IO_error(105_pInt,ext_msg=IO_stringValue(line,positions,2_pInt)//' ('//PLASTICITY_J2_label//')') call IO_error(105_pInt,ext_msg=IO_stringValue(line,positions,2_pInt)//' ('//PLASTICITY_J2_label//')')
end select end select
@ -287,7 +292,9 @@ use debug, only: &
enddo parsingFile enddo parsingFile
initializeInstances: do phase = 1_pInt, size(phase_plasticity) initializeInstances: do phase = 1_pInt, size(phase_plasticity)
if (phase_plasticity(phase) == PLASTICITY_j2_ID .and. count(material_phase==phase)/=0) then NofMyPhase=count(material_phase==phase)
if (phase_plasticity(phase) == PLASTICITY_j2_ID .and. NofMyPhase/=0) then
instance = phase_plasticityInstance(phase)
outputsLoop: do o = 1_pInt,constitutive_j2_Noutput(instance) outputsLoop: do o = 1_pInt,constitutive_j2_Noutput(instance)
select case(constitutive_j2_outputID(o,instance)) select case(constitutive_j2_outputID(o,instance))
case(flowstress_ID,strainrate_ID) case(flowstress_ID,strainrate_ID)
@ -301,15 +308,37 @@ use debug, only: &
constitutive_j2_sizePostResults(instance) + mySize constitutive_j2_sizePostResults(instance) + mySize
endif endif
enddo outputsLoop enddo outputsLoop
#ifdef NEWSTATE
sizeDotState = constitutive_j2_sizeDotState(instance)
sizeState = constitutive_j2_sizeState(instance)
allocate(plasticState(phase)%state0 (sizeState,NofMyPhase),source=constitutive_j2_tau0(instance))
allocate(plasticState(phase)%partionedState0(sizeState,NofMyPhase),source=constitutive_j2_tau0(instance))
allocate(plasticState(phase)%subState0 (sizeState,NofMyPhase),source=0.0_pReal)
allocate(plasticState(phase)%state (sizeState,NofMyPhase),source=constitutive_j2_tau0(instance))
allocate(plasticState(phase)%state_backup (sizeState,NofMyPhase),source=0.0_pReal)
allocate(plasticState(phase)%aTolState (sizeState,NofMyPhase),constitutive_j2_aTolResistance(instance))
allocate(plasticState(phase)%dotState (sizeDotState,NofMyPhase),source=0.0_pReal)
allocate(plasticState(phase)%deltaState (sizeDotState,NofMyPhase),source=0.0_pReal)
allocate(plasticState(phase)%dotState_backup (sizeDotState,NofMyPhase),source=0.0_pReal)
if (any(numerics_integrator == 1_pInt)) then
allocate(plasticState(phase)%previousDotState (sizeDotState,NofMyPhase),source=0.0_pReal)
allocate(plasticState(phase)%previousDotState2 (sizeDotState,NofMyPhase),source=0.0_pReal)
endif
if (any(numerics_integrator == 4_pInt)) &
allocate(plasticState(phase)%RK4dotState (sizeDotState,NofMyPhase),source=0.0_pReal)
if (any(numerics_integrator == 5_pInt)) &
allocate(plasticState(phase)%RKCK45dotState (sizeDotState,NofMyPhase),source=0.0_pReal)
#endif
endif endif
enddo initializeInstances enddo initializeInstances
end subroutine constitutive_j2_init end subroutine constitutive_j2_init
! probably not needed for new state
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief sets the initial microstructural state for a given instance of this plasticity !> @brief sets the initial microstructural state for a given instance of this plasticity
!> @details initial microstructural state is set to the value specified by tau0 !> @details initial microstructural state is set to the value specified by tau0
! not needed for new state
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
pure function constitutive_j2_stateInit(instance) pure function constitutive_j2_stateInit(instance)
@ -325,6 +354,7 @@ end function constitutive_j2_stateInit
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @brief sets the relevant state values for a given instance of this plasticity !> @brief sets the relevant state values for a given instance of this plasticity
! not needed for new state
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
pure function constitutive_j2_aTolState(instance) pure function constitutive_j2_aTolState(instance)

8
code/material.f90
View File

@ -93,10 +93,11 @@ module material
material_phase !< phase (index) of each grain,IP,element material_phase !< phase (index) of each grain,IP,element
#ifdef NEWSTATE #ifdef NEWSTATE
type(tState), allocatable, dimension(:) :: & type(tState), allocatable, dimension(:), public :: &
plasticState, & plasticState, &
elasticState elasticState
#endif #endif
integer(pInt), dimension(:,:,:), allocatable, public, protected :: & integer(pInt), dimension(:,:,:), allocatable, public, protected :: &
material_texture !< texture (index) of each grain,IP,element material_texture !< texture (index) of each grain,IP,element
@ -219,10 +220,9 @@ subroutine material_init
close(FILEUNIT) close(FILEUNIT)
#ifdef NEWSTATE #ifdef NEWSTATE
allocate(plasticState(material_Nphase)) allocate(plasticState(material_Nphase))
allocate(plasticState(material_Nphase)) allocate(elasticState(material_Nphase))
#endif #endif
do m = 1_pInt,material_Nmicrostructure do m = 1_pInt,material_Nmicrostructure
if(microstructure_crystallite(m) < 1_pInt .or. & if(microstructure_crystallite(m) < 1_pInt .or. &
microstructure_crystallite(m) > material_Ncrystallite) & microstructure_crystallite(m) > material_Ncrystallite) &
@ -1157,6 +1157,7 @@ subroutine material_populateGrains
end subroutine material_populateGrains end subroutine material_populateGrains
#ifdef HDF
integer(pInt) pure function material_NconstituentsPhase(matID) integer(pInt) pure function material_NconstituentsPhase(matID)
implicit none implicit none
@ -1164,5 +1165,6 @@ integer(pInt) pure function material_NconstituentsPhase(matID)
material_NconstituentsPhase = count(microstructure_phase == matID) material_NconstituentsPhase = count(microstructure_phase == matID)
end function end function
#endif
end module material end module material

16
code/prec.f90
View File

@ -5,6 +5,7 @@
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @author Christoph Kords, Max-Planck-Institut für Eisenforschung GmbH !> @author Christoph Kords, Max-Planck-Institut für Eisenforschung GmbH
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH !> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @author Luv Sharma, Max-Planck-Institut für Eisenforschung GmbH
!> @brief setting precision for real and int type depending on makros "FLOAT" and "INT" !> @brief setting precision for real and int type depending on makros "FLOAT" and "INT"
!> @details setting precision for real and int type and for DAMASK_NaN. Definition is made !> @details setting precision for real and int type and for DAMASK_NaN. Definition is made
!! depending on makros "FLOAT" and "INT" defined during compilation !! depending on makros "FLOAT" and "INT" defined during compilation
@ -59,10 +60,23 @@ module prec
#ifdef NEWSTATE #ifdef NEWSTATE
!http://stackoverflow.com/questions/3948210/can-i-have-a-pointer-to-an-item-in-an-allocatable-array !http://stackoverflow.com/questions/3948210/can-i-have-a-pointer-to-an-item-in-an-allocatable-array
type, public :: tState type, public :: tState
real(pReal), pointer, dimension(:,:) :: s ! material points, state size real(pReal), pointer, dimension(:,:) :: state, & ! material points, state size
dotState, &
state0, &
partionedState0, &
subState0, &
state_backup, &
deltaState, &
previousDotState, &
previousDotState2, &
dotState_backup, &
RK4dotState, &
aTolState, &
RKCK45dotState
end type end type
#endif #endif
public :: & public :: &
prec_init prec_init