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

set local option as default for plastic state

This commit is contained in:
Martin Diehl 2014-07-22 17:38:49 +00:00
parent f447444a56
commit 4e3a202f02
5 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
code/constitutive_dislotwin.f90
View File

@ -756,7 +756,6 @@ subroutine constitutive_dislotwin_init(fileUnit)
plasticState(phase)%sizeState = sizeState
plasticState(phase)%sizeDotState = sizeDotState
plasticState(phase)%nonlocal = .false.
allocate(plasticState(phase)%aTolState (sizeState), source=0.0_pReal)
allocate(plasticState(phase)%state0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%partionedState0 (sizeState,NofMyPhase), source=0.0_pReal)

1
code/constitutive_j2.f90
View File

@ -315,7 +315,6 @@ subroutine constitutive_j2_init(fileUnit)
sizeDotState = sizeState
plasticState(phase)%sizeDotState = sizeDotState
plasticState(phase)%sizePostResults = constitutive_j2_sizePostResults(instance)
plasticState(phase)%nonlocal = .false.
allocate(plasticState(phase)%aTolState (sizeState),source=constitutive_j2_aTolResistance(instance))
allocate(plasticState(phase)%state0 (sizeState,NofMyPhase),source=constitutive_j2_tau0(instance))
allocate(plasticState(phase)%partionedState0 (sizeState,NofMyPhase),source=0.0_pReal)

1
code/constitutive_phenopowerlaw.f90
View File

@ -514,7 +514,6 @@ subroutine constitutive_phenopowerlaw_init(fileUnit)
plasticState(phase)%sizeState = sizeState
plasticState(phase)%sizeDotState = sizeDotState
plasticState(phase)%sizePostResults = constitutive_phenopowerlaw_sizePostResults(instance)
plasticState(phase)%nonlocal = .false.
allocate(plasticState(phase)%aTolState ( sizeState), source=0.0_pReal)
allocate(plasticState(phase)%state0 ( sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%partionedState0 ( sizeState,NofMyPhase), source=0.0_pReal)

1
code/constitutive_titanmod.f90
View File

@ -847,7 +847,6 @@ subroutine constitutive_titanmod_init(fileUnit)
plasticState(phase)%sizeState = sizeState
plasticState(phase)%sizeDotState = sizeDotState
plasticState(phase)%sizePostResults = constitutive_titanmod_sizePostResults(instance)
plasticState(phase)%nonlocal = .false.
allocate(plasticState(phase)%aTolState (sizeState), source=constitutive_titanmod_aTolRho(instance))
allocate(plasticState(phase)%state0 (sizeState,NofMyPhase), source=0.0_pReal)
allocate(plasticState(phase)%partionedState0 (sizeState,NofMyPhase), source=0.0_pReal)

2
code/prec.f90
View File

@ -62,7 +62,7 @@ module prec
integer(pInt) :: sizeState = 0_pInt , &
sizeDotState = 0_pInt, &
sizePostResults = 0_pInt
logical :: nonlocal
logical :: nonlocal = .false.
real(pReal), allocatable, dimension(:) :: atolState
real(pReal), allocatable, dimension(:,:) :: state, & ! material points, state size
dotState, &