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

remove superfluous variables

This commit is contained in:
Martin Diehl 2016-01-16 07:06:34 +00:00
parent 9c49d6ab45
commit 83a6d00c60
1 changed files with 148 additions and 161 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
code/plastic_disloUCLA.f90
View File

@ -24,29 +24,13 @@ module plastic_disloUCLA
character(len=64), dimension(:,:), allocatable, target, public :: &
plastic_disloUCLA_output !< name of each post result output
character(len=12), dimension(3), parameter, private :: &
plastic_disloUCLA_listBasicSlipStates = &
['rhoEdge ', 'rhoEdgeDip ', 'accshearslip']
character(len=12), dimension(2), parameter, private :: &
plastic_disloUCLA_listBasicTwinStates = &
['twinFraction', 'accsheartwin']
character(len=17), dimension(4), parameter, private :: &
plastic_disloUCLA_listDependentSlipStates = &
['invLambdaSlip ', 'invLambdaSlipTwin', 'meanFreePathSlip ', 'tauSlipThreshold ']
character(len=16), dimension(4), parameter, private :: &
plastic_disloUCLA_listDependentTwinStates = &
['invLambdaTwin ', 'meanFreePathTwin', 'tauTwinThreshold', 'twinVolume ']
real(pReal), parameter, private :: &
kB = 1.38e-23_pReal !< Boltzmann constant in J/Kelvin
integer(pInt), dimension(:), allocatable, target, public :: &
plastic_disloUCLA_Noutput !< number of outputs per instance of this plasticity
integer(pInt), dimension(:), allocatable, public, protected :: &
integer(pInt), dimension(:), allocatable, private :: &
plastic_disloUCLA_totalNslip, & !< total number of active slip systems for each instance
plastic_disloUCLA_totalNtwin !< total number of active twin systems for each instance
@ -700,12 +684,15 @@ subroutine plastic_disloUCLA_init(fileUnit)
!--------------------------------------------------------------------------------------------------
! allocate state arrays
sizeDotState = int(size(plastic_disloUCLA_listBasicSlipStates),pInt) * ns &
+ int(size(plastic_disloUCLA_listBasicTwinStates),pInt) * nt
sizeDotState = int(size(['rhoEdge ','rhoEdgeDip ','accshearslip']),pInt) * ns &
+ int(size(['twinFraction','accsheartwin']),pInt) * nt
sizeDeltaState = 0_pInt
sizeState = sizeDotState &
+ int(size(plastic_disloUCLA_listDependentSlipStates),pInt) * ns &
+ int(size(plastic_disloUCLA_listDependentTwinStates),pInt) * nt
+ int(size(['invLambdaSlip ','invLambdaSlipTwin ',&
'meanFreePathSlip ','tauSlipThreshold ']),pInt) * ns &
+ int(size(['invLambdaTwin ','meanFreePathTwin','tauTwinThreshold',&
'twinVolume ']),pInt) * nt
plasticState(phase)%sizeState = sizeState
plasticState(phase)%sizeDotState = sizeDotState