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

small readability improvement

This commit is contained in:
Claudio Zambaldi 2010-02-18 15:06:08 +00:00
parent 7e632e8132
commit d60d8a4103
1 changed files with 46 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
code/crystallite.f90
View File

@ -21,47 +21,52 @@ implicit none
! **************************************************************** ! ****************************************************************
integer(pInt), parameter :: crystallite_Nresults = 14_pInt ! phaseID, volume, Euler angles, def gradient integer(pInt), parameter :: crystallite_Nresults = 14_pInt ! phaseID, volume, Euler angles, def gradient
real(pReal), dimension (:,:,:), allocatable :: crystallite_dt, & ! requested time increment of each grain real(pReal), dimension (:,:,:), allocatable :: &
crystallite_subdt, & ! substepped time increment of each grain crystallite_dt, & ! requested time increment of each grain
crystallite_subFrac, & ! already calculated fraction of increment crystallite_subdt, & ! substepped time increment of each grain
crystallite_subStep, & ! size of next integration step crystallite_subFrac, & ! already calculated fraction of increment
crystallite_Temperature, & ! Temp of each grain crystallite_subStep, & ! size of next integration step
crystallite_partionedTemperature0, & ! Temp of each grain at start of homog inc crystallite_Temperature, & ! Temp of each grain
crystallite_subTemperature0 ! Temp of each grain at start of crystallite inc crystallite_partionedTemperature0, & ! Temp of each grain at start of homog inc
real(pReal), dimension (:,:,:,:), allocatable :: crystallite_Tstar_v, & ! current 2nd Piola-Kirchhoff stress vector (end of converged time step) crystallite_subTemperature0 ! Temp of each grain at start of crystallite inc
crystallite_Tstar0_v, & ! 2nd Piola-Kirchhoff stress vector at start of FE inc real(pReal), dimension (:,:,:,:), allocatable :: &
crystallite_partionedTstar0_v, & ! 2nd Piola-Kirchhoff stress vector at start of homog inc crystallite_Tstar_v, & ! current 2nd Piola-Kirchhoff stress vector (end of converged time step)
crystallite_subTstar0_v, & ! 2nd Piola-Kirchhoff stress vector at start of crystallite inc crystallite_Tstar0_v, & ! 2nd Piola-Kirchhoff stress vector at start of FE inc
crystallite_eulerangles ! euler angles phi1 Phi phi2 crystallite_partionedTstar0_v, & ! 2nd Piola-Kirchhoff stress vector at start of homog inc
real(pReal), dimension (:,:,:,:,:), allocatable :: crystallite_Fe, & ! current "elastic" def grad (end of converged time step) crystallite_subTstar0_v, & ! 2nd Piola-Kirchhoff stress vector at start of crystallite inc
crystallite_Fp, & ! current plastic def grad (end of converged time step) crystallite_eulerangles ! euler angles phi1 Phi phi2
crystallite_invFp, & ! inverse of current plastic def grad (end of converged time step) real(pReal), dimension (:,:,:,:,:), allocatable :: &
crystallite_Fp0, & ! plastic def grad at start of FE inc crystallite_Fe, & ! current "elastic" def grad (end of converged time step)
crystallite_partionedFp0,& ! plastic def grad at start of homog inc crystallite_Fp, & ! current plastic def grad (end of converged time step)
crystallite_subFp0,& ! plastic def grad at start of crystallite inc crystallite_invFp, & ! inverse of current plastic def grad (end of converged time step)
crystallite_F0, & ! def grad at start of FE inc crystallite_Fp0, & ! plastic def grad at start of FE inc
crystallite_partionedF, & ! def grad to be reached at end of homog inc crystallite_partionedFp0,& ! plastic def grad at start of homog inc
crystallite_partionedF0, & ! def grad at start of homog inc crystallite_subFp0,& ! plastic def grad at start of crystallite inc
crystallite_subF, & ! def grad to be reached at end of crystallite inc crystallite_F0, & ! def grad at start of FE inc
crystallite_subF0, & ! def grad at start of crystallite inc crystallite_partionedF, & ! def grad to be reached at end of homog inc
crystallite_Lp, & ! current plastic velocitiy grad (end of converged time step) crystallite_partionedF0, & ! def grad at start of homog inc
crystallite_Lp0, & ! plastic velocitiy grad at start of FE inc crystallite_subF, & ! def grad to be reached at end of crystallite inc
crystallite_partionedLp0,& ! plastic velocity grad at start of homog inc crystallite_subF0, & ! def grad at start of crystallite inc
crystallite_subLp0,& ! plastic velocity grad at start of crystallite inc crystallite_Lp, & ! current plastic velocitiy grad (end of converged time step)
crystallite_P, & ! 1st Piola-Kirchhoff stress per grain crystallite_Lp0, & ! plastic velocitiy grad at start of FE inc
crystallite_R, & ! crystal orientation (rotation matrix current -> lattice conf) crystallite_partionedLp0,& ! plastic velocity grad at start of homog inc
crystallite_misorientation ! misorientation between two neighboring ips (only calculated for single grain IPs) crystallite_subLp0,& ! plastic velocity grad at start of crystallite inc
real(pReal), dimension (:,:,:,:,:,:,:), allocatable :: crystallite_dPdF, & ! individual dPdF per grain crystallite_P, & ! 1st Piola-Kirchhoff stress per grain
crystallite_fallbackdPdF ! dPdF fallback for non-converged grains (elastic prediction) crystallite_R, & ! crystal orientation (rotation matrix current -> lattice conf)
real(pReal) crystallite_statedamper ! damping for state update crystallite_misorientation ! misorientation between two neighboring ips (only calculated for single grain IPs)
real(pReal), dimension (:,:,:,:,:,:,:), allocatable :: &
logical, dimension (:,:,:), allocatable :: crystallite_localConstitution, & ! indicates this grain to have purely local constitutive law crystallite_dPdF, & ! individual dPdF per grain
crystallite_requested, & ! flag to request crystallite calculation crystallite_fallbackdPdF ! dPdF fallback for non-converged grains (elastic prediction)
crystallite_onTrack, & ! flag to indicate ongoing calculation real(pReal) &
crystallite_converged, & ! convergence flag crystallite_statedamper ! damping for state update
crystallite_stateConverged, & ! flag indicating convergence of state logical, dimension (:,:,:), allocatable :: &
crystallite_temperatureConverged, & ! flag indicating convergence of temperature crystallite_localConstitution, & ! indicates this grain to have purely local constitutive law
crystallite_todo ! requested and ontrack but not converged crystallite_requested, & ! flag to request crystallite calculation
crystallite_onTrack, & ! flag to indicate ongoing calculation
crystallite_converged, & ! convergence flag
crystallite_stateConverged, & ! flag indicating convergence of state
crystallite_temperatureConverged, & ! flag indicating convergence of temperature
crystallite_todo ! requested and ontrack but not converged
CONTAINS CONTAINS