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

3940 lines
210 KiB
Fortran
Raw Normal View History

doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
removed empty line remaining from old ID string
2016-02-29 18:56:06 +05:30
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
doxygen comments
2013-02-22 04:38:36 +05:30
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
removed empty line remaining from old ID string
2016-02-29 18:56:06 +05:30
!> @author Christoph Kords, Max-Planck-Institut für Eisenforschung GmbH
!> @author Chen Zhang, Michigan State University
doxygen comments
2013-02-22 04:38:36 +05:30
!> @brief crystallite state integration functions and reporting of results
!--------------------------------------------------------------------------------------------------
* now able to choose method for state integration (integrator and integratorStiffness in numerics.config); standard is "Fixed Point Iteration", which is basically the same as before; others available are "Explicit Euler", "AdaptiveEuler", "Classical Runge-Kutta" and "Runge-Kutta Cash-Karp" * now remembering stiffness similar to how we do it for Lp etc.; avoids undefined stiffness values for nonconverged stiffness calculation * non-local stuff: * changed non-local kinetics (Gilman2002) * enforce zero shearrate for overall carrrier density below relevant density * enforce zero density for those states that become negative and were below relevant density before * dislocation velocity is not limited by V^(1/3) / dt anymore
2010-10-01 17:48:49 +05:30
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
module crystallite
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
use prec, only: &
pReal, &
pInt
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
implicit none
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
private
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
character(len=64), dimension(:,:), allocatable, private :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_output !< name of each post result output
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
integer(pInt), public, protected :: &
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
crystallite_maxSizePostResults !< description not available
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
integer(pInt), dimension(:), allocatable, public, protected :: &
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
crystallite_sizePostResults !< description not available
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
integer(pInt), dimension(:,:), allocatable, private :: &
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
crystallite_sizePostResult !< description not available
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
real(pReal), dimension(:,:,:), allocatable, public :: &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
crystallite_dt !< requested time increment of each grain
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
real(pReal), dimension(:,:,:), allocatable, private :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_subdt, & !< substepped time increment of each grain
crystallite_subFrac, & !< already calculated fraction of increment
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
crystallite_subStep !< size of next integration step
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
real(pReal), dimension(:,:,:,:), allocatable, public :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_Tstar_v, & !< current 2nd Piola-Kirchhoff stress vector (end of converged time step)
crystallite_Tstar0_v, & !< 2nd Piola-Kirchhoff stress vector at start of FE inc
crystallite_partionedTstar0_v !< 2nd Piola-Kirchhoff stress vector at start of homog inc
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
real(pReal), dimension(:,:,:,:), allocatable, private :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_subTstar0_v, & !< 2nd Piola-Kirchhoff stress vector at start of crystallite inc
crystallite_orientation, & !< orientation as quaternion
crystallite_orientation0, & !< initial orientation as quaternion
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
crystallite_rotation !< grain rotation away from initial orientation as axis-angle (in degrees) in crystal reference frame
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
real(pReal), dimension(:,:,:,:,:), allocatable, public :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_Fp, & !< current plastic def grad (end of converged time step)
crystallite_Fp0, & !< plastic def grad at start of FE inc
crystallite_partionedFp0,& !< plastic def grad at start of homog inc
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
crystallite_Fi, & !< current intermediate def grad (end of converged time step)
crystallite_Fi0, & !< intermediate def grad at start of FE inc
crystallite_partionedFi0,& !< intermediate def grad at start of homog inc
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_F0, & !< def grad at start of FE inc
crystallite_partionedF, & !< def grad to be reached at end of homog inc
crystallite_partionedF0, & !< def grad at start of homog inc
crystallite_Lp, & !< current plastic velocitiy grad (end of converged time step)
crystallite_Lp0, & !< plastic velocitiy grad at start of FE inc
crystallite_partionedLp0,& !< plastic velocity grad at start of homog inc
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
crystallite_Li, & !< current intermediate velocitiy grad (end of converged time step)
crystallite_Li0, & !< intermediate velocitiy grad at start of FE inc
crystallite_partionedLi0,& !< intermediate velocity grad at start of homog inc
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
crystallite_Fe, & !< current "elastic" def grad (end of converged time step)
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_P !< 1st Piola-Kirchhoff stress per grain
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
real(pReal), dimension(:,:,:,:,:), allocatable, private :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_subFe0,& !< "elastic" def grad at start of crystallite inc
crystallite_invFp, & !< inverse of current plastic def grad (end of converged time step)
crystallite_subFp0,& !< plastic def grad at start of crystallite inc
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
crystallite_invFi, & !< inverse of current intermediate def grad (end of converged time step)
crystallite_subFi0,& !< intermediate def grad at start of crystallite inc
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_subF, & !< def grad to be reached at end of crystallite inc
crystallite_subF0, & !< def grad at start of crystallite inc
crystallite_subLp0,& !< plastic velocity grad at start of crystallite inc
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
crystallite_subLi0,& !< intermediate velocity grad at start of crystallite inc
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_disorientation !< disorientation between two neighboring ips (only calculated for single grain IPs)
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
real(pReal), dimension(:,:,:,:,:,:,:), allocatable, public :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_dPdF, & !< current individual dPdF per grain (end of converged time step)
crystallite_dPdF0, & !< individual dPdF per grain at start of FE inc
crystallite_partioneddPdF0 !< individual dPdF per grain at start of homog inc
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
real(pReal), dimension(:,:,:,:,:,:,:), allocatable, private :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_fallbackdPdF !< dPdF fallback for non-converged grains (elastic prediction)
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
logical, dimension(:,:,:), allocatable, public :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_requested !< flag to request crystallite calculation
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
logical, dimension(:,:,:), allocatable, public, protected :: &
reorganized calculation modes for CPFEM, now having better readable and cleaner structure
2013-03-01 17:18:29 +05:30
crystallite_converged, & !< convergence flag
crystallite_localPlasticity !< indicates this grain to have purely local constitutive law
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
logical, dimension(:,:,:), allocatable, private :: &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_todo !< flag to indicate need for further computation
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
logical, dimension(:,:), allocatable, private :: &
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
crystallite_clearToWindForward, & !< description not available
crystallite_clearToCutback, & !< description not available
crystallite_syncSubFrac, & !< description not available
crystallite_syncSubFracCompleted, & !< description not available
crystallite_neighborEnforcedCutback !< description not available
doxygen comments
2013-02-22 04:38:36 +05:30
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
enum, bind(c)
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
enumerator :: undefined_ID, &
phase_ID, &
texture_ID, &
volume_ID, &
grainrotationx_ID, &
grainrotationy_ID, &
grainrotationz_ID, &
orientation_ID, &
grainrotation_ID, &
eulerangles_ID, &
defgrad_ID, &
fe_ID, &
fp_ID, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
fi_ID, &
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
lp_ID, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
li_ID, &
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
e_ID, &
ee_ID, &
p_ID, &
s_ID, &
elasmatrix_ID, &
neighboringip_ID, &
neighboringelement_ID
end enum
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
integer(kind(undefined_ID)),dimension(:,:), allocatable, private :: &
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
crystallite_outputID !< ID of each post result output
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
public :: &
crystallite_init, &
crystallite_stressAndItsTangent, &
crystallite_orientations, &
added funtions to get averged properties at integration points.
2014-09-10 14:07:12 +05:30
crystallite_push33ToRef, &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_postResults
private :: &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
crystallite_integrateStateFPI, &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_integrateStateEuler, &
crystallite_integrateStateAdaptiveEuler, &
crystallite_integrateStateRK4, &
crystallite_integrateStateRKCK45, &
crystallite_integrateStress, &
crystallite_stateJump
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
contains
major restructuring of code. homogenization as well as constitutive are now free to choose. the runtime got somewhat longer (25% on simple tests) compared to a hardcoded isostrain homogenization. this might be a point of further optimization at a later stage... please use homogenization_isostrain.f90 as starting point / example for future developments of homog-schemes. the homogenization scheme now can additionally output certain results. hence, the userdata structure at each integration point now looks like this: - sizeHomogPostResults - block of that size containing homogPostResults then for each grain: - sizeGrainPostResults - block of that size containing crystallitePostResults, which consist of: + phaseID + volFrac + Eulers (3) + any constitutive post results requested
2009-05-07 21:57:36 +05:30
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief allocates and initialize per grain variables
!--------------------------------------------------------------------------------------------------
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
subroutine crystallite_init
doxygen comments
2013-02-22 04:38:36 +05:30
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
use debug, only: &
debug_info, &
debug_reset, &
debug_level, &
debug_crystallite, &
debug_levelBasic
further improvements on implementing the plain mode
2013-04-16 22:37:27 +05:30
use numerics, only: &
bugfixes (did not compile)
2016-07-14 18:59:53 +05:30
worldrank, &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
usePingPong
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
use math, only: &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
math_I3, &
math_EulerToR, &
math_inv33, &
math_transpose33, &
math_mul33xx33, &
math_mul33x33
use FEsolving, only: &
FEsolving_execElem, &
FEsolving_execIP
use mesh, only: &
mesh_element, &
mesh_NcpElems, &
mesh_maxNips, &
mesh_maxNipNeighbors
use IO, only: &
added possibility for multi-level inclusion of files in *.config and loadcase files. include subfiles by stating {path/to/include}
2013-06-27 00:49:00 +05:30
IO_read, &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
IO_timeStamp, &
IO_open_jobFile_stat, &
IO_open_file, &
IO_lc, &
IO_getTag, &
IO_isBlank, &
IO_stringPos, &
IO_stringValue, &
IO_write_jobFile, &
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
IO_error, &
IO_EOF
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
use material
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
use constitutive, only: &
initialise Fi correctly for initial field values away from equilibrium
2015-07-24 20:17:18 +05:30
constitutive_initialFi, &
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
constitutive_microstructure ! derived (shortcut) quantities of given state
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
implicit none
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
integer(pInt), parameter :: &
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
FILEUNIT = 200_pInt
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
integer(pInt), allocatable, dimension(:) :: chunkPos
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
integer(pInt) :: &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
c, & !< counter in integration point component loop
i, & !< counter in integration point loop
e, & !< counter in element loop
o, & !< counter in output loop
r, & !< counter in crystallite loop
cMax, & !< maximum number of integration point components
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
iMax, & !< maximum number of integration points
eMax, & !< maximum number of elements
nMax, & !< maximum number of ip neighbors
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
myNcomponents, & !< number of components at current IP
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
section = 0_pInt, &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
mySize
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
character(len=65536) :: &
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
tag = '', &
line= ''
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
some simplifications
2016-06-30 02:57:22 +05:30
write(6,'(/,a)') ' <<<+- crystallite init -+>>>'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
made code standard conform to Fortran 2008 (ignoring warning concerning comments beyond character 132). Basically, changing "x" format specifier to "Nx" ("1x") plus removing $ format specifier added compiler switches for gfortran and ifort to check for standard conformity old gnu compilers <4.4 are not longer supported because they don't provide the c binding for fftw
2012-02-01 00:48:55 +05:30
#include "compilation_info.f90"
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
cMax = homogenization_maxNgrains
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
iMax = mesh_maxNips
eMax = mesh_NcpElems
nMax = mesh_maxNipNeighbors
more work on the new state
2014-05-27 20:16:03 +05:30
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
allocate(crystallite_Tstar0_v(6,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_partionedTstar0_v(6,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subTstar0_v(6,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Tstar_v(6,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_P(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_F0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_partionedF0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_partionedF(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subF0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subF(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Fp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_partionedFp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subFp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Fp(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_invFp(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Fi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_partionedFi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subFi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Fi(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_invFi(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Fe(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subFe0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Lp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_partionedLp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subLp0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Lp(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Li0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_partionedLi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subLi0(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_Li(3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_dPdF(3,3,3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_dPdF0(3,3,3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_partioneddPdF0(3,3,3,3,cMax,iMax,eMax),source=0.0_pReal)
allocate(crystallite_fallbackdPdF(3,3,3,3,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_dt(cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subdt(cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subFrac(cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_subStep(cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_orientation(4,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_orientation0(4,cMax,iMax,eMax), source=0.0_pReal)
allocate(crystallite_rotation(4,cMax,iMax,eMax), source=0.0_pReal)
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
if (any(plasticState%nonLocal)) &
allocate(crystallite_disorientation(4,nMax,cMax,iMax,eMax),source=0.0_pReal)
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
allocate(crystallite_localPlasticity(cMax,iMax,eMax), source=.true.)
allocate(crystallite_requested(cMax,iMax,eMax), source=.false.)
allocate(crystallite_todo(cMax,iMax,eMax), source=.false.)
allocate(crystallite_converged(cMax,iMax,eMax), source=.true.)
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
allocate(crystallite_clearToWindForward(iMax,eMax), source=.true.)
allocate(crystallite_syncSubFrac(iMax,eMax), source=.false.)
allocate(crystallite_syncSubFracCompleted(iMax,eMax), source=.false.)
allocate(crystallite_clearToCutback(iMax,eMax), source=.true.)
allocate(crystallite_neighborEnforcedCutback(iMax,eMax), source=.false.)
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
allocate(crystallite_output(maxval(crystallite_Noutput), &
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
material_Ncrystallite)) ; crystallite_output = ''
allocate(crystallite_outputID(maxval(crystallite_Noutput), &
material_Ncrystallite), source=undefined_ID)
allocate(crystallite_sizePostResults(material_Ncrystallite),source=0_pInt)
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
allocate(crystallite_sizePostResult(maxval(crystallite_Noutput), &
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
material_Ncrystallite), source=0_pInt)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
if (.not. IO_open_jobFile_stat(FILEUNIT,material_localFileExt)) & ! no local material configuration present...
call IO_open_file(FILEUNIT,material_configFile) ! ...open material.config file
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
do while (trim(line) /= IO_EOF .and. IO_lc(IO_getTag(line,'<','>')) /= material_partCrystallite) ! wind forward to <crystallite>
line = IO_read(FILEUNIT)
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
do while (trim(line) /= IO_EOF) ! read through sections of crystallite part
line = IO_read(FILEUNIT)
doxygen comments
2013-02-22 04:38:36 +05:30
if (IO_isBlank(line)) cycle ! skip empty lines
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
if (IO_getTag(line,'<','>') /= '') then ! stop at next part
line = IO_read(FILEUNIT, .true.) ! reset IO_read
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
exit
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
endif
doxygen comments
2013-02-22 04:38:36 +05:30
if (IO_getTag(line,'[',']') /= '') then ! next section
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
section = section + 1_pInt
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
o = 0_pInt ! reset output counter
added missing lp output to crystallite
2013-12-20 16:43:12 +05:30
cycle ! skip to next line
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
endif
if (section > 0_pInt) then
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
chunkPos = IO_stringPos(line)
tag = IO_lc(IO_stringValue(line,chunkPos,1_pInt)) ! extract key
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
select case(tag)
case ('(output)')
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
o = o + 1_pInt
crystallite_output(o,section) = IO_lc(IO_stringValue(line,chunkPos,2_pInt))
outputName: select case(crystallite_output(o,section))
case ('phase') outputName
crystallite_outputID(o,section) = phase_ID
case ('texture') outputName
crystallite_outputID(o,section) = texture_ID
case ('volume') outputName
crystallite_outputID(o,section) = volume_ID
case ('grainrotationx') outputName
crystallite_outputID(o,section) = grainrotationx_ID
case ('grainrotationy') outputName
crystallite_outputID(o,section) = grainrotationy_ID
case ('grainrotationz') outputName
crystallite_outputID(o,section) = grainrotationx_ID
case ('orientation') outputName
crystallite_outputID(o,section) = orientation_ID
case ('grainrotation') outputName
crystallite_outputID(o,section) = grainrotation_ID
case ('eulerangles') outputName
crystallite_outputID(o,section) = eulerangles_ID
case ('defgrad','f') outputName
crystallite_outputID(o,section) = defgrad_ID
case ('fe') outputName
crystallite_outputID(o,section) = fe_ID
case ('fp') outputName
crystallite_outputID(o,section) = fp_ID
case ('fi') outputName
crystallite_outputID(o,section) = fi_ID
case ('lp') outputName
crystallite_outputID(o,section) = lp_ID
case ('li') outputName
crystallite_outputID(o,section) = li_ID
case ('e') outputName
crystallite_outputID(o,section) = e_ID
case ('ee') outputName
crystallite_outputID(o,section) = ee_ID
case ('p','firstpiola','1stpiola') outputName
crystallite_outputID(o,section) = p_ID
case ('s','tstar','secondpiola','2ndpiola') outputName
crystallite_outputID(o,section) = s_ID
case ('elasmatrix') outputName
crystallite_outputID(o,section) = elasmatrix_ID
case ('neighboringip') outputName
crystallite_outputID(o,section) = neighboringip_ID
case ('neighboringelement') outputName
crystallite_outputID(o,section) = neighboringelement_ID
case default outputName
behavior of IO_stringPos was unsafe in some situations, also took the chance to rename the variables used in its context to a more meaningful name. functions in the core module are not used, including kdTree
2015-08-28 13:08:48 +05:30
call IO_error(105_pInt,ext_msg=IO_stringValue(line,chunkPos,2_pInt)//' (Crystallite)')
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
end select outputName
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
end select
endif
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
close(FILEUNIT)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
do r = 1_pInt,material_Ncrystallite
do o = 1_pInt,crystallite_Noutput(r)
select case(crystallite_outputID(o,r))
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
case(phase_ID,texture_ID,volume_ID,grainrotationx_ID,grainrotationy_ID,grainrotationz_ID)
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
mySize = 1_pInt
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
case(orientation_ID,grainrotation_ID)
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
mySize = 4_pInt
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case(eulerangles_ID)
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
mySize = 3_pInt
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
case(defgrad_ID,fe_ID,fp_ID,fi_ID,lp_ID,li_ID,e_ID,ee_ID,p_ID,s_ID)
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
mySize = 9_pInt
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case(elasmatrix_ID)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
mySize = 36_pInt
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case(neighboringip_ID,neighboringelement_ID)
added crystallite output "neighboringelement" and "neighboringip" some polishing in crystallite_postResults
2013-05-08 17:32:30 +05:30
mySize = mesh_maxNipNeighbors
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
case default
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
mySize = 0_pInt
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
end select
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_sizePostResult(o,r) = mySize
crystallite_sizePostResults(r) = crystallite_sizePostResults(r) + mySize
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
enddo
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_maxSizePostResults = &
maxval(crystallite_sizePostResults(microstructure_crystallite),microstructure_active)
Tstar_v is now restored at different stages of cutbacking; we need this because preguess of state relies on consistent Tstar_v
2009-06-16 14:33:30 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!--------------------------------------------------------------------------------------------------
reworked crystallite part to allow for flexible user output --> new "crystallite" part in config file --> new "crystallite" option for microstructures --> new output file "...job.outputCrystallite" to be used in conjunction with marc_addUserOutput for meaningful naming of User Defined Vars.
2010-02-25 23:09:11 +05:30
! write description file for crystallite output
multi physics output now working for all solvers
2015-03-25 21:32:30 +05:30
if (worldrank == 0_pInt) then
call IO_write_jobFile(FILEUNIT,'outputCrystallite')
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
do r = 1_pInt,material_Ncrystallite
if (any(microstructure_crystallite(mesh_element(4,:)) == r)) then
write(FILEUNIT,'(/,a,/)') '['//trim(crystallite_name(r))//']'
do o = 1_pInt,crystallite_Noutput(r)
write(FILEUNIT,'(a,i4)') trim(crystallite_output(o,r))//char(9),crystallite_sizePostResult(o,r)
write output information only for active crystallites. removed unused variables. fixed some real == 0 comparisons
2015-04-21 17:53:00 +05:30
enddo
endif
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
multi physics output now working for all solvers
2015-03-25 21:32:30 +05:30
close(FILEUNIT)
add pheno+ module in
2015-10-14 00:22:01 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!--------------------------------------------------------------------------------------------------
! initialize
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO PRIVATE(myNcomponents)
do e = FEsolving_execElem(1),FEsolving_execElem(2)
myNcomponents = homogenization_Ngrains(mesh_element(3,e))
forall (i = FEsolving_execIP(1,e):FEsolving_execIP(2,e), c = 1_pInt:myNcomponents)
crystallite_Fp0(1:3,1:3,c,i,e) = math_EulerToR(material_EulerAngles(1:3,c,i,e)) ! plastic def gradient reflects init orientation
crystallite_Fi0(1:3,1:3,c,i,e) = constitutive_initialFi(c,i,e)
crystallite_F0(1:3,1:3,c,i,e) = math_I3
crystallite_localPlasticity(c,i,e) = phase_localPlasticity(material_phase(c,i,e))
crystallite_Fe(1:3,1:3,c,i,e) = math_inv33(math_mul33x33(crystallite_Fi0(1:3,1:3,c,i,e), &
crystallite_Fp0(1:3,1:3,c,i,e))) ! assuming that euler angles are given in internal strain free configuration
crystallite_Fp(1:3,1:3,c,i,e) = crystallite_Fp0(1:3,1:3,c,i,e)
crystallite_Fi(1:3,1:3,c,i,e) = crystallite_Fi0(1:3,1:3,c,i,e)
crystallite_requested(c,i,e) = .true.
more work on the new state
2014-05-27 20:16:03 +05:30
endforall
enddo
!$OMP END PARALLEL DO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
if(any(.not. crystallite_localPlasticity) .and. .not. usePingPong) call IO_error(601_pInt) ! exit if nonlocal but no ping-pong
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
crystallite_partionedFp0 = crystallite_Fp0
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
crystallite_partionedFi0 = crystallite_Fi0
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_partionedF0 = crystallite_F0
crystallite_partionedF = crystallite_F0
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
call crystallite_orientations()
crystallite_orientation0 = crystallite_orientation ! store initial orientations for calculation of grain rotations
homogenization_RGC.f90 >> just switching-off one of the debugging statement. crystallite.f90 >> optimizing the perturbation algorithm for local tangent.
2009-12-22 17:58:02 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO PRIVATE(myNcomponents)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
myNcomponents = homogenization_Ngrains(mesh_element(3,e))
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
do c = 1_pInt,myNcomponents
call constitutive_microstructure(crystallite_orientation, & ! pass orientation to constitutive module
crystallite_Fe(1:3,1:3,c,i,e), &
crystallite_Fp(1:3,1:3,c,i,e), &
c,i,e) ! update dependent state variables to be consistent with basic states
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
enddo
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
enddo
enddo
!$OMP END PARALLEL DO
fixed two severe bugs in new state, now a little bit faster (399 vs. 378 sec) and more memory efficicient (251312 vs. 236832 kbytes) for Phenopowerlaw 16x16x16 example (short load only)
2014-06-17 00:49:38 +05:30
removed old inaccurate analytic jacobian with exact jacobian. seems to work as well as perturbed jacobian and better than the old analytic jacobian for some simple tests.
2014-08-08 02:38:34 +05:30
call crystallite_stressAndItsTangent(.true.) ! request elastic answers
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
crystallite_fallbackdPdF = crystallite_dPdF ! use initial elastic stiffness as fallback
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!--------------------------------------------------------------------------------------------------
! debug output
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Fe: ', shape(crystallite_Fe)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Fp: ', shape(crystallite_Fp)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Fi: ', shape(crystallite_Fi)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Lp: ', shape(crystallite_Lp)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Li: ', shape(crystallite_Li)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_F0: ', shape(crystallite_F0)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Fp0: ', shape(crystallite_Fp0)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Fi0: ', shape(crystallite_Fi0)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Lp0: ', shape(crystallite_Lp0)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Li0: ', shape(crystallite_Li0)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_partionedF: ', shape(crystallite_partionedF)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_partionedF0: ', shape(crystallite_partionedF0)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_partionedFp0: ', shape(crystallite_partionedFp0)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_partionedFi0: ', shape(crystallite_partionedFi0)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_partionedLp0: ', shape(crystallite_partionedLp0)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_partionedLi0: ', shape(crystallite_partionedLi0)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subF: ', shape(crystallite_subF)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subF0: ', shape(crystallite_subF0)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subFe0: ', shape(crystallite_subFe0)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subFp0: ', shape(crystallite_subFp0)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subFi0: ', shape(crystallite_subFi0)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subLp0: ', shape(crystallite_subLp0)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subLi0: ', shape(crystallite_subLi0)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a35,1x,7(i8,1x))') 'crystallite_P: ', shape(crystallite_P)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Tstar_v: ', shape(crystallite_Tstar_v)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_Tstar0_v: ', shape(crystallite_Tstar0_v)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_partionedTstar0_v: ', shape(crystallite_partionedTstar0_v)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subTstar0_v: ', shape(crystallite_subTstar0_v)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_dPdF: ', shape(crystallite_dPdF)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_dPdF0: ', shape(crystallite_dPdF0)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_partioneddPdF0: ', shape(crystallite_partioneddPdF0)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_fallbackdPdF: ', shape(crystallite_fallbackdPdF)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_orientation: ', shape(crystallite_orientation)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_orientation0: ', shape(crystallite_orientation0)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_rotation: ', shape(crystallite_rotation)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_disorientation: ', shape(crystallite_disorientation)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_dt: ', shape(crystallite_dt)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subdt: ', shape(crystallite_subdt)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subFrac: ', shape(crystallite_subFrac)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_subStep: ', shape(crystallite_subStep)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_localPlasticity: ', shape(crystallite_localPlasticity)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_requested: ', shape(crystallite_requested)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_todo: ', shape(crystallite_todo)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_converged: ', shape(crystallite_converged)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_sizePostResults: ', shape(crystallite_sizePostResults)
write(6,'(a35,1x,7(i8,1x))') 'crystallite_sizePostResult: ', shape(crystallite_sizePostResult)
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
write(6,'(/,a35,1x,i10)') 'Number of nonlocal grains: ',count(.not. crystallite_localPlasticity)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
flush(6)
endif
* checked and corrected parallelization of code. compiles now successfully, but simply aborts computation with first parallel directive without any comment :-((( * also put a call to constitutive_microstructure at the start of each crystallite_integration subroutine like it was before. need that for nonlocal model in case of crystallite cutback
2010-11-03 22:52:48 +05:30
some minor improvement on precision detection: checking only once (in prec and no longer in math and crystallite), added one more 4/8 switch for LAPACK, as there is no single precision FFTW, stopping compilation for spectral method if FLOAT=4 new function in IO to print integers without leading zeros, implemented it at some places in the new spectral solver (reporting still needs some serious polishing) updated preprocessing for documentation to handle precision correctly
2012-08-31 01:56:28 +05:30
call debug_info
call debug_reset
* checked and corrected parallelization of code. compiles now successfully, but simply aborts computation with first parallel directive without any comment :-((( * also put a call to constitutive_microstructure at the start of each crystallite_integration subroutine like it was before. need that for nonlocal model in case of crystallite cutback
2010-11-03 22:52:48 +05:30
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
end subroutine crystallite_init
major restructuring of code. homogenization as well as constitutive are now free to choose. the runtime got somewhat longer (25% on simple tests) compared to a hardcoded isostrain homogenization. this might be a point of further optimization at a later stage... please use homogenization_isostrain.f90 as starting point / example for future developments of homog-schemes. the homogenization scheme now can additionally output certain results. hence, the userdata structure at each integration point now looks like this: - sizeHomogPostResults - block of that size containing homogPostResults then for each grain: - sizeGrainPostResults - block of that size containing crystallitePostResults, which consist of: + phaseID + volFrac + Eulers (3) + any constitutive post results requested
2009-05-07 21:57:36 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief calculate stress (P) and tangent (dPdF) for crystallites
!--------------------------------------------------------------------------------------------------
removed old inaccurate analytic jacobian with exact jacobian. seems to work as well as perturbed jacobian and better than the old analytic jacobian for some simple tests.
2014-08-08 02:38:34 +05:30
subroutine crystallite_stressAndItsTangent(updateJaco)
write output information only for active crystallites. removed unused variables. fixed some real == 0 comparisons
2015-04-21 17:53:00 +05:30
use prec, only: &
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
tol_math_check, &
dNeq
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
use numerics, only: &
subStepMinCryst, &
subStepSizeCryst, &
stepIncreaseCryst, &
pert_Fg, &
pert_method, &
nCryst, &
numerics_integrator, &
numerics_integrationMode, &
removed numerical perturbation calculation
2016-07-25 23:37:12 +05:30
numerics_timeSyncing
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
use debug, only: &
debug_level, &
debug_crystallite, &
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
debug_e, &
debug_i, &
debug_g, &
debug_CrystalliteLoopDistribution
use IO, only: &
call IO_error if inversion error in analytic jacobian calculation
2014-08-08 02:46:37 +05:30
IO_warning, &
IO_error
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
use math, only: &
math_inv33, &
math_identity2nd, &
math_transpose33, &
math_mul33x33, &
math_mul66x6, &
math_Mandel6to33, &
math_Mandel33to6, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
math_Plain3333to99, &
math_Plain99to3333, &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
math_I3, &
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
math_mul3333xx3333, &
removed old inaccurate analytic jacobian with exact jacobian. seems to work as well as perturbed jacobian and better than the old analytic jacobian for some simple tests.
2014-08-08 02:38:34 +05:30
math_mul33xx33, &
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
math_invert, &
math_det33
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
use FEsolving, only: &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
FEsolving_execElem, &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
FEsolving_execIP
use mesh, only: &
mesh_element, &
mesh_NcpElems, &
mesh_maxNips, &
mesh_ipNeighborhood, &
FE_NipNeighbors, &
FE_geomtype, &
FE_cellType
use material, only: &
homogenization_Ngrains, &
fixed small allocation flaws for new state
2014-05-12 18:30:37 +05:30
plasticState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
sourceState, &
phase_Nsources, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt, &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
homogenization_maxNgrains
use constitutive, only: &
removed old inaccurate analytic jacobian with exact jacobian. seems to work as well as perturbed jacobian and better than the old analytic jacobian for some simple tests.
2014-08-08 02:38:34 +05:30
constitutive_TandItsTangent, &
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
constitutive_LpAndItsTangent, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
constitutive_LiAndItsTangent
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
implicit none
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
logical, intent(in) :: &
removed old inaccurate analytic jacobian with exact jacobian. seems to work as well as perturbed jacobian and better than the old analytic jacobian for some simple tests.
2014-08-08 02:38:34 +05:30
updateJaco !< whether to update the Jacobian (stiffness) or not
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
real(pReal) :: &
myPert, & ! perturbation with correct sign
formerSubStep, &
subFracIntermediate
real(pReal), dimension(3,3) :: &
invFp, & ! inverse of the plastic deformation gradient
Fe_guess, & ! guess for elastic deformation gradient
Tstar ! 2nd Piola-Kirchhoff stress tensor
integer(pInt) :: &
NiterationCrystallite, & ! number of iterations in crystallite loop
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
c, & !< counter in integration point component loop
i, & !< counter in integration point loop
e, & !< counter in element loop
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
k, &
l, &
n, startIP, endIP, &
neighboring_e, &
neighboring_i, &
o, &
p, &
perturbation , & ! loop counter for forward,backward perturbation mode
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
myNcomponents, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySource
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! local variables used for calculating analytic Jacobian
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
real(pReal), dimension(3,3) :: temp_33
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
real(pReal), dimension(3,3,3,3) :: dSdFe, &
dSdF, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
dSdFi, &
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
dLidS, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
dLidFi, &
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
dLpdS, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
dLpdFi, &
dFidS, &
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
dFpinvdF, &
rhs_3333, &
lhs_3333, &
temp_3333
damage def grad updated in stress integration loop and not as a dot state
2014-11-03 16:13:36 +05:30
real(pReal), dimension(9,9):: temp_99
removed old inaccurate analytic jacobian with exact jacobian. seems to work as well as perturbed jacobian and better than the old analytic jacobian for some simple tests.
2014-08-08 02:38:34 +05:30
logical :: error
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
fixed selective debugging logic flaw in crystallite_stressAndItsTangent
2014-05-19 22:13:32 +05:30
if (iand(debug_level(debug_crystallite),debug_levelSelective) /= 0_pInt &
.and. FEsolving_execElem(1) <= debug_e &
.and. debug_e <= FEsolving_execElem(2)) then
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
write(6,'(/,a,i8,1x,a,i8,a,1x,i2,1x,i3)') '<< CRYST >> boundary values at el ip ipc ', &
debug now reporting elFE in addition to elCP
2014-08-27 21:24:11 +05:30
debug_e,'(',mesh_element(1,debug_e), ')',debug_i, debug_g
added pheno+ module modify crystallite microstructure call to pass orientations
2015-10-15 00:06:19 +05:30
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> F ', &
math_transpose33(crystallite_partionedF(1:3,1:3,debug_g,debug_i,debug_e))
more work on the new state
2014-05-27 20:16:03 +05:30
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> F0 ', &
math_transpose33(crystallite_partionedF0(1:3,1:3,debug_g,debug_i,debug_e))
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> Fp0', &
math_transpose33(crystallite_partionedFp0(1:3,1:3,debug_g,debug_i,debug_e))
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> Fi0', &
math_transpose33(crystallite_partionedFi0(1:3,1:3,debug_g,debug_i,debug_e))
more work on the new state
2014-05-27 20:16:03 +05:30
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> Lp0', &
math_transpose33(crystallite_partionedLp0(1:3,1:3,debug_g,debug_i,debug_e))
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> Li0', &
math_transpose33(crystallite_partionedLi0(1:3,1:3,debug_g,debug_i,debug_e))
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
endif
!--------------------------------------------------------------------------------------------------
! initialize to starting condition
crystallite_subStep = 0.0_pReal
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO PRIVATE(myNcomponents)
more work on the new state
2014-05-27 20:16:03 +05:30
elementLooping1: do e = FEsolving_execElem(1),FEsolving_execElem(2)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
myNcomponents = homogenization_Ngrains(mesh_element(3,e))
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e); do c = 1_pInt,myNcomponents
if (crystallite_requested(c,i,e)) then
plasticState (phaseAt(c,i,e))%subState0( :,phasememberAt(c,i,e)) = &
plasticState (phaseAt(c,i,e))%partionedState0(:,phasememberAt(c,i,e))
do mySource = 1_pInt, phase_Nsources(phaseAt(c,i,e))
sourceState(phaseAt(c,i,e))%p(mySource)%subState0( :,phasememberAt(c,i,e)) = &
sourceState(phaseAt(c,i,e))%p(mySource)%partionedState0(:,phasememberAt(c,i,e))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
enddo
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_subFp0(1:3,1:3,c,i,e) = crystallite_partionedFp0(1:3,1:3,c,i,e) ! ...plastic def grad
crystallite_subLp0(1:3,1:3,c,i,e) = crystallite_partionedLp0(1:3,1:3,c,i,e) ! ...plastic velocity grad
crystallite_subFi0(1:3,1:3,c,i,e) = crystallite_partionedFi0(1:3,1:3,c,i,e) ! ...intermediate def grad
crystallite_subLi0(1:3,1:3,c,i,e) = crystallite_partionedLi0(1:3,1:3,c,i,e) ! ...intermediate velocity grad
crystallite_dPdF0(1:3,1:3,1:3,1:3,c,i,e) = crystallite_partioneddPdF0(1:3,1:3,1:3,1:3,c,i,e) ! ...stiffness
crystallite_subF0(1:3,1:3,c,i,e) = crystallite_partionedF0(1:3,1:3,c,i,e) ! ...def grad
crystallite_subTstar0_v(1:6,c,i,e) = crystallite_partionedTstar0_v(1:6,c,i,e) !...2nd PK stress
crystallite_subFe0(1:3,1:3,c,i,e) = math_mul33x33(math_mul33x33(crystallite_subF0(1:3,1:3,c,i,e), &
math_inv33(crystallite_subFp0(1:3,1:3,c,i,e))), &
math_inv33(crystallite_subFi0(1:3,1:3,c,i,e)))! only needed later on for stiffness calculation
crystallite_subFrac(c,i,e) = 0.0_pReal
crystallite_subStep(c,i,e) = 1.0_pReal/subStepSizeCryst
crystallite_todo(c,i,e) = .true.
crystallite_converged(c,i,e) = .false. ! pretend failed step of twice the required size
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
endif
enddo; enddo
more work on the new state
2014-05-27 20:16:03 +05:30
enddo elementLooping1
!$OMP END PARALLEL DO
singleRun: if (FEsolving_execELem(1) == FEsolving_execElem(2) .and. &
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
FEsolving_execIP(1,FEsolving_execELem(1))==FEsolving_execIP(2,FEsolving_execELem(1))) then
startIP = FEsolving_execIP(1,FEsolving_execELem(1))
endIP = startIP
more work on the new state
2014-05-27 20:16:03 +05:30
else singleRun
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
startIP = 1_pInt
endIP = mesh_maxNips
more work on the new state
2014-05-27 20:16:03 +05:30
endif singleRun
homogenization_RGC.f90 >> just switching-off one of the debugging statement. crystallite.f90 >> optimizing the perturbation algorithm for local tangent.
2009-12-22 17:58:02 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
NiterationCrystallite = 0_pInt
numerics_integrationMode = 1_pInt
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
cutbackLooping: do while (any(crystallite_todo(:,startIP:endIP,FEsolving_execELem(1):FEsolving_execElem(2))))
improved debug statements
2015-08-05 02:56:22 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) &
write(6,'(a,i6)') '<< CRYST >> crystallite iteration ',NiterationCrystallite
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
timeSyncing1: if (any(.not. crystallite_localPlasticity) .and. numerics_timeSyncing) then
fixed two severe bugs in new state, now a little bit faster (399 vs. 378 sec) and more memory efficicient (251312 vs. 236832 kbytes) for Phenopowerlaw 16x16x16 example (short load only)
2014-06-17 00:49:38 +05:30
Introduced an alternative cutback scheme for the nonlocal model, that allows to keep the results of most of the ips that immediately converged, and only do cutbacks in regions where some ips are in big trouble. Only works for nonlocal model and state integrator 2.
2012-11-28 00:06:55 +05:30
! Time synchronization can only be used for nonlocal calculations, and only there it makes sense.
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
! The idea is that in nonlocal calculations often the vast majority of the ips
! converges in one iteration whereas a small fraction of ips has to do a lot of cutbacks.
Introduced an alternative cutback scheme for the nonlocal model, that allows to keep the results of most of the ips that immediately converged, and only do cutbacks in regions where some ips are in big trouble. Only works for nonlocal model and state integrator 2.
2012-11-28 00:06:55 +05:30
! Hence, we try to minimize the computational effort by just doing a lot of cutbacks
! in the vicinity of the "bad" ips and leave the easily converged volume more or less as it is.
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
! However, some synchronization of the time step has to be done at the border between "bad" ips
! and the ones that immediately converged.
Introduced an alternative cutback scheme for the nonlocal model, that allows to keep the results of most of the ips that immediately converged, and only do cutbacks in regions where some ips are in big trouble. Only works for nonlocal model and state integrator 2.
2012-11-28 00:06:55 +05:30
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
if (any(crystallite_syncSubFrac)) then
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! Just did a time synchronization.
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
! If all synchronizers converged, then do nothing else than winding them forward.
! If any of the synchronizers did not converge, something went completely wrong
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! and its not clear how to fix this, so all nonlocals become terminally ill.
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
if (any(crystallite_syncSubFrac .and. .not. crystallite_converged(1,:,:))) then
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) then
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
more work on the new state
2014-05-27 20:16:03 +05:30
if (crystallite_syncSubFrac(i,e) .and. .not. crystallite_converged(1,i,e)) &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i8,1x,i2)') '<< CRYST >> time synchronization: failed at el,ip ',e,i
enddo
enddo
endif
crystallite_syncSubFrac = .false.
where(.not. crystallite_localPlasticity)
crystallite_substep = 0.0_pReal
crystallite_todo = .false.
endwhere
else
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
crystallite_clearToWindForward(i,e) = crystallite_localPlasticity(1,i,e) .or. crystallite_syncSubFrac(i,e)
crystallite_clearToCutback(i,e) = crystallite_localPlasticity(1,i,e)
enddo
enddo
!$OMP END PARALLEL DO
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i6)') '<< CRYST >> time synchronization: wind forward'
endif
Introduced an alternative cutback scheme for the nonlocal model, that allows to keep the results of most of the ips that immediately converged, and only do cutbacks in regions where some ips are in big trouble. Only works for nonlocal model and state integrator 2.
2012-11-28 00:06:55 +05:30
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
elseif (any(crystallite_syncSubFracCompleted)) then
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! Just completed a time synchronization.
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
! Make sure that the ips that synchronized their time step start non-converged
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
if (crystallite_syncSubFracCompleted(i,e)) crystallite_converged(1,i,e) = .false.
crystallite_syncSubFracCompleted(i,e) = .false.
crystallite_clearToWindForward(i,e) = crystallite_localPlasticity(1,i,e)
crystallite_clearToCutback(i,e) = crystallite_localPlasticity(1,i,e) .or. .not. crystallite_converged(1,i,e)
enddo
enddo
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i6)') '<< CRYST >> time synchronization: done, proceed with cutback'
else
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! Normal calculation.
! If all converged and are at the end of the time increment, then just do a final wind forward.
! If all converged, but not all reached the end of the time increment, then we only wind
! those forward that are still on their way, all others have to wait.
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
! If some did not converge and all are still at the start of the time increment,
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! then all non-convergers force their converged neighbors to also do a cutback.
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
! In case that some ips have already wound forward to an intermediate time (subfrac),
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! then all those ips that converged in the first iteration, but now have a non-converged neighbor
! have to synchronize their time step to the same intermediate time. If such a synchronization
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
! takes place, all other ips have to wait and only the synchronizers do a cutback. In the next
! iteration those will do a wind forward while all others still wait.
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
crystallite_clearToWindForward(i,e) = crystallite_localPlasticity(1,i,e)
crystallite_clearToCutback(i,e) = crystallite_localPlasticity(1,i,e)
enddo
enddo
!$OMP END PARALLEL DO
if (all(crystallite_localPlasticity .or. crystallite_converged)) then
if (all(crystallite_localPlasticity .or. crystallite_subStep + crystallite_subFrac >= 1.0_pReal)) then
crystallite_clearToWindForward = .true. ! final wind forward
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i6)') '<< CRYST >> final wind forward'
else
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
crystallite_clearToWindForward(i,e) = crystallite_localPlasticity(1,i,e) .or. crystallite_subStep(1,i,e) < 1.0_pReal
enddo
enddo
!$OMP END PARALLEL DO
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i6)') '<< CRYST >> wind forward'
endif
else
subFracIntermediate = maxval(crystallite_subFrac, mask=.not.crystallite_localPlasticity)
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
if (dNeq(subFracIntermediate,0.0_pReal)) then
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
crystallite_neighborEnforcedCutback = .false. ! look for ips that require a cutback because of a nonconverged neighbor
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP PARALLEL
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP DO PRIVATE(neighboring_e,neighboring_i)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
if (.not. crystallite_localPlasticity(1,i,e) .and. crystallite_converged(1,i,e)) then
do n = 1_pInt,FE_NipNeighbors(FE_celltype(FE_geomtype(mesh_element(2,e))))
neighboring_e = mesh_ipNeighborhood(1,n,i,e)
neighboring_i = mesh_ipNeighborhood(2,n,i,e)
if (neighboring_e > 0_pInt .and. neighboring_i > 0_pInt) then
if (.not. crystallite_localPlasticity(1,neighboring_i,neighboring_e) &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
.and. .not. crystallite_converged(1,neighboring_i,neighboring_e)) then
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
crystallite_neighborEnforcedCutback(i,e) = .true.
Introduced an alternative cutback scheme for the nonlocal model, that allows to keep the results of most of the ips that immediately converged, and only do cutbacks in regions where some ips are in big trouble. Only works for nonlocal model and state integrator 2.
2012-11-28 00:06:55 +05:30
#ifndef _OPENMP
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) &
write(6,'(a12,i5,1x,i2,a,i5,1x,i2)') '<< CRYST >> ', neighboring_e,neighboring_i, &
Introduced an alternative cutback scheme for the nonlocal model, that allows to keep the results of most of the ips that immediately converged, and only do cutbacks in regions where some ips are in big trouble. Only works for nonlocal model and state integrator 2.
2012-11-28 00:06:55 +05:30
' enforced cutback at ',e,i
#endif
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
exit
endif
endif
enddo
endif
enddo
enddo
!$OMP END DO
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP DO
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
if(crystallite_neighborEnforcedCutback(i,e)) crystallite_converged(1,i,e) = .false.
enddo
enddo
!$OMP END DO
!$OMP END PARALLEL
else
crystallite_syncSubFrac = .false. ! look for ips that have to do a time synchronization because of a nonconverged neighbor
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP PARALLEL
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP DO PRIVATE(neighboring_e,neighboring_i)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
using dEq, dNeq, cEq, dEq
2016-05-29 14:15:03 +05:30
if (.not. crystallite_localPlasticity(1,i,e) .and. dNeq(crystallite_subFrac(1,i,e),0.0_pReal)) then
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
do n = 1_pInt,FE_NipNeighbors(FE_celltype(FE_geomtype(mesh_element(2,e))))
neighboring_e = mesh_ipNeighborhood(1,n,i,e)
neighboring_i = mesh_ipNeighborhood(2,n,i,e)
if (neighboring_e > 0_pInt .and. neighboring_i > 0_pInt) then
if (.not. crystallite_localPlasticity(1,neighboring_i,neighboring_e) &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
.and. .not. crystallite_converged(1,neighboring_i,neighboring_e)) then
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_syncSubFrac(i,e) = .true.
Introduced an alternative cutback scheme for the nonlocal model, that allows to keep the results of most of the ips that immediately converged, and only do cutbacks in regions where some ips are in big trouble. Only works for nonlocal model and state integrator 2.
2012-11-28 00:06:55 +05:30
#ifndef _OPENMP
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) &
write(6,'(a12,i5,1x,i2,a,i5,1x,i2)') '<< CRYST >> ',neighboring_e,neighboring_i, &
' enforced time synchronization at ',e,i
Introduced an alternative cutback scheme for the nonlocal model, that allows to keep the results of most of the ips that immediately converged, and only do cutbacks in regions where some ips are in big trouble. Only works for nonlocal model and state integrator 2.
2012-11-28 00:06:55 +05:30
#endif
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
exit
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
endif
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
endif
enddo
endif
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
enddo
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
enddo
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP END DO
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP DO
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
if(crystallite_syncSubFrac(i,e)) crystallite_converged(1,i,e) = .false.
enddo
enddo
!$OMP END DO
!$OMP END PARALLEL
endif
where(.not. crystallite_localPlasticity .and. crystallite_subStep < 1.0_pReal) &
crystallite_converged = .false.
if (any(crystallite_syncSubFrac)) then ! have to do syncing now, so all wait except for the synchronizers which do a cutback
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
crystallite_clearToWindForward(i,e) = crystallite_localPlasticity(1,i,e)
crystallite_clearToCutback(i,e) = crystallite_localPlasticity(1,i,e) .or. crystallite_syncSubFrac(i,e)
enddo
enddo
!$OMP END PARALLEL DO
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i6)') '<< CRYST >> time synchronization: cutback'
else
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
if(.not. crystallite_converged(1,i,e)) crystallite_clearToCutback(i,e) = .true.
enddo
enddo
!$OMP END PARALLEL DO
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i6)') '<< CRYST >> cutback'
endif
endif
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! Make sure that all cutbackers start with the same substep
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
where(.not. crystallite_localPlasticity .and. .not. crystallite_converged) &
crystallite_subStep = minval(crystallite_subStep, mask=.not. crystallite_localPlasticity &
.and. .not. crystallite_converged)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! Those that do neither wind forward nor cutback are not to do
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
elementLooping2: do e = FEsolving_execElem(1),FEsolving_execElem(2)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
if(.not. crystallite_clearToWindForward(i,e) .and. .not. crystallite_clearToCutback(i,e)) &
crystallite_todo(1,i,e) = .false.
enddo
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
enddo elementLooping2
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP END PARALLEL DO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
endif timeSyncing1
improved debug statements
2015-08-05 02:56:22 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
!$OMP PARALLEL DO PRIVATE(myNcomponents,formerSubStep)
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
elementLooping3: do e = FEsolving_execElem(1),FEsolving_execElem(2)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
myNcomponents = homogenization_Ngrains(mesh_element(3,e))
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e) ! iterate over IPs of this element to be processed
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
do c = 1,myNcomponents
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! --- wind forward ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
if (crystallite_converged(c,i,e) .and. crystallite_clearToWindForward(i,e)) then
formerSubStep = crystallite_subStep(c,i,e)
crystallite_subFrac(c,i,e) = crystallite_subFrac(c,i,e) + crystallite_subStep(c,i,e)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP FLUSH(crystallite_subFrac)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_subStep(c,i,e) = min(1.0_pReal - crystallite_subFrac(c,i,e), &
stepIncreaseCryst * crystallite_subStep(c,i,e))
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP FLUSH(crystallite_subStep)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
if (crystallite_subStep(c,i,e) > 0.0_pReal) then
crystallite_subF0(1:3,1:3,c,i,e) = crystallite_subF(1:3,1:3,c,i,e) ! ...def grad
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP FLUSH(crystallite_subF0)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_subLp0(1:3,1:3,c,i,e) = crystallite_Lp(1:3,1:3,c,i,e) ! ...plastic velocity gradient
crystallite_subLi0(1:3,1:3,c,i,e) = crystallite_Li(1:3,1:3,c,i,e) ! ...intermediate velocity gradient
crystallite_subFp0(1:3,1:3,c,i,e) = crystallite_Fp(1:3,1:3,c,i,e) ! ...plastic def grad
crystallite_subFi0(1:3,1:3,c,i,e) = crystallite_Fi(1:3,1:3,c,i,e) ! ...intermediate def grad
crystallite_subFe0(1:3,1:3,c,i,e) = math_mul33x33(math_mul33x33(crystallite_subF (1:3,1:3,c,i,e), &
crystallite_invFp(1:3,1:3,c,i,e)), &
crystallite_invFi(1:3,1:3,c,i,e)) ! only needed later on for stiffness calculation
more work on the new state
2014-05-27 20:16:03 +05:30
!if abbrevation, make c and p private in omp
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
plasticState (phaseAt(c,i,e))%subState0(:,phasememberAt(c,i,e)) = &
plasticState (phaseAt(c,i,e))%state( :,phasememberAt(c,i,e))
do mySource = 1_pInt, phase_Nsources(phaseAt(c,i,e))
sourceState(phaseAt(c,i,e))%p(mySource)%subState0(:,phasememberAt(c,i,e)) = &
sourceState(phaseAt(c,i,e))%p(mySource)%state( :,phasememberAt(c,i,e))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
enddo
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_subTstar0_v(1:6,c,i,e) = crystallite_Tstar_v(1:6,c,i,e) ! ...2nd PK stress
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
if (crystallite_syncSubFrac(i,e)) then ! if we just did a synchronization of states, then we wind forward without any further time integration
crystallite_syncSubFracCompleted(i,e) = .true.
crystallite_syncSubFrac(i,e) = .false.
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_todo(c,i,e) = .false.
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
else
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_todo(c,i,e) = .true.
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
endif
!$OMP FLUSH(crystallite_todo)
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#ifndef _OPENMP
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
if (iand(debug_level(debug_crystallite),debug_levelBasic) /= 0_pInt &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
.and. ((e == debug_e .and. i == debug_i .and. c == debug_g) &
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) &
write(6,'(a,f12.8,a,f12.8,a,i8,1x,i2,1x,i3,/)') '<< CRYST >> winding forward from ', &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_subFrac(c,i,e)-formerSubStep,' to current crystallite_subfrac ', &
crystallite_subFrac(c,i,e),' in crystallite_stressAndItsTangent at el ip ipc ',e,i,c
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#endif
last commit also solves problem with infinite loop in case of a cutback in homogenization corrected indentation of a comment
2013-08-02 13:29:55 +05:30
else ! this crystallite just converged for the entire timestep
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_todo(c,i,e) = .false. ! so done here
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP FLUSH(crystallite_todo)
remnoved some unused fuctions from use statements
2013-08-02 11:48:41 +05:30
if (iand(debug_level(debug_crystallite),debug_levelBasic) /= 0_pInt &
.and. formerSubStep > 0.0_pReal) then
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP CRITICAL (distributionCrystallite)
debug_CrystalliteLoopDistribution(min(nCryst+1_pInt,NiterationCrystallite)) = &
debug_CrystalliteLoopDistribution(min(nCryst+1_pInt,NiterationCrystallite)) + 1_pInt
!$OMP END CRITICAL (distributionCrystallite)
endif
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! --- cutback ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
elseif (.not. crystallite_converged(c,i,e) .and. crystallite_clearToCutback(i,e)) then
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
if (crystallite_syncSubFrac(i,e)) then ! synchronize time
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_subStep(c,i,e) = subFracIntermediate
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
else
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_subStep(c,i,e) = subStepSizeCryst * crystallite_subStep(c,i,e) ! cut step in half and restore...
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
endif
!$OMP FLUSH(crystallite_subStep)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_Fp(1:3,1:3,c,i,e) = crystallite_subFp0(1:3,1:3,c,i,e) ! ...plastic def grad
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP FLUSH(crystallite_Fp)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_invFp(1:3,1:3,c,i,e) = math_inv33(crystallite_Fp(1:3,1:3,c,i,e))
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP FLUSH(crystallite_invFp)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_Fi(1:3,1:3,c,i,e) = crystallite_subFi0(1:3,1:3,c,i,e) ! ...intermediate def grad
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
!$OMP FLUSH(crystallite_Fi)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_invFi(1:3,1:3,c,i,e) = math_inv33(crystallite_Fi(1:3,1:3,c,i,e))
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
!$OMP FLUSH(crystallite_invFi)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_Lp(1:3,1:3,c,i,e) = crystallite_subLp0(1:3,1:3,c,i,e) ! ...plastic velocity grad
crystallite_Li(1:3,1:3,c,i,e) = crystallite_subLi0(1:3,1:3,c,i,e) ! ...intermediate velocity grad
plasticState (phaseAt(c,i,e))%state( :,phasememberAt(c,i,e)) = &
plasticState (phaseAt(c,i,e))%subState0(:,phasememberAt(c,i,e))
do mySource = 1_pInt, phase_Nsources(phaseAt(c,i,e))
sourceState(phaseAt(c,i,e))%p(mySource)%state( :,phasememberAt(c,i,e)) = &
sourceState(phaseAt(c,i,e))%p(mySource)%subState0(:,phasememberAt(c,i,e))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
enddo
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_Tstar_v(1:6,c,i,e) = crystallite_subTstar0_v(1:6,c,i,e) ! ...2nd PK stress
more work on the new state
2014-05-27 20:16:03 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! cant restore dotState here, since not yet calculated in first cutback after initialization
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_todo(c,i,e) = crystallite_subStep(c,i,e) > subStepMinCryst ! still on track or already done (beyond repair)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP FLUSH(crystallite_todo)
polishing
2012-11-22 15:28:36 +05:30
#ifndef _OPENMP
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
if (iand(debug_level(debug_crystallite),debug_levelBasic) /= 0_pInt) then
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
if (crystallite_todo(c,i,e)) then
fixed small bug in newstate
2014-07-10 14:17:00 +05:30
write(6,'(a,f12.8,a,i8,1x,i2,1x,i3,/)') '<< CRYST >> cutback step in crystallite_stressAndItsTangent &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
&with new crystallite_subStep: ',&
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_subStep(c,i,e),' at el ip ipc ',e,i,c
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
else
fixed small bug in newstate
2014-07-10 14:17:00 +05:30
write(6,'(a,i8,1x,i2,1x,i3,/)') '<< CRYST >> reached minimum step size &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
&in crystallite_stressAndItsTangent at el ip ipc ',e,i,c
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
endif
endif
polishing
2012-11-22 15:28:36 +05:30
#endif
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! --- prepare for integration ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
if (crystallite_todo(c,i,e) .and. (crystallite_clearToWindForward(i,e) .or. crystallite_clearToCutback(i,e))) then
crystallite_subF(1:3,1:3,c,i,e) = crystallite_subF0(1:3,1:3,c,i,e) &
+ crystallite_subStep(c,i,e) &
* (crystallite_partionedF(1:3,1:3,c,i,e) &
- crystallite_partionedF0(1:3,1:3,c,i,e))
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP FLUSH(crystallite_subF)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
crystallite_Fe(1:3,1:3,c,i,e) = math_mul33x33(math_mul33x33(crystallite_subF (1:3,1:3,c,i,e), &
crystallite_invFp(1:3,1:3,c,i,e)), &
crystallite_invFi(1:3,1:3,c,i,e))
crystallite_subdt(c,i,e) = crystallite_subStep(c,i,e) * crystallite_dt(c,i,e)
crystallite_converged(c,i,e) = .false. ! start out non-converged
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
enddo ! grains
enddo ! IPs
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
enddo elementLooping3
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
!$OMP END PARALLEL DO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
timeSyncing2: if(numerics_timeSyncing) then
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
if (any(.not. crystallite_localPlasticity .and. .not. crystallite_todo .and. .not. crystallite_converged &
.and. crystallite_subStep <= subStepMinCryst)) then ! no way of rescuing a nonlocal ip that violated the lower time step limit, ...
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) then
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
elementLooping4: do e = FEsolving_execElem(1),FEsolving_execElem(2)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
myNcomponents = homogenization_Ngrains(mesh_element(3,e))
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
do c = 1,myNcomponents
if (.not. crystallite_localPlasticity(c,i,e) .and. .not. crystallite_todo(c,i,e) &
.and. .not. crystallite_converged(c,i,e) .and. crystallite_subStep(c,i,e) <= subStepMinCryst) &
write(6,'(a,i8,1x,i2,1x,i3)') '<< CRYST >> nonlocal violated minimum subStep at el ip ipc ',e,i,c
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
enddo
enddo
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
enddo elementLooping4
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
endif
where(.not. crystallite_localPlasticity)
crystallite_todo = .false. ! ... so let all nonlocal ips die peacefully
crystallite_subStep = 0.0_pReal
endwhere
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
endif timeSyncing2
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt) then
write(6,'(/,a,e12.5)') '<< CRYST >> min(subStep) ',minval(crystallite_subStep)
write(6,'(a,e12.5)') '<< CRYST >> max(subStep) ',maxval(crystallite_subStep)
write(6,'(a,e12.5)') '<< CRYST >> min(subFrac) ',minval(crystallite_subFrac)
write(6,'(a,e12.5,/)') '<< CRYST >> max(subFrac) ',maxval(crystallite_subFrac)
more work on the new state
2014-05-27 20:16:03 +05:30
flush(6)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
! --- integrate --- requires fully defined state array (basic + dependent state)
more work on the new state
2014-05-27 20:16:03 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
if (any(crystallite_todo)) then
select case(numerics_integrator(numerics_integrationMode))
case(1_pInt)
call crystallite_integrateStateFPI()
case(2_pInt)
call crystallite_integrateStateEuler()
case(3_pInt)
call crystallite_integrateStateAdaptiveEuler()
case(4_pInt)
call crystallite_integrateStateRK4()
case(5_pInt)
call crystallite_integrateStateRKCK45()
end select
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
where(.not. crystallite_converged .and. crystallite_subStep > subStepMinCryst) & ! do not try non-converged & fully cutbacked any further
crystallite_todo = .true.
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
NiterationCrystallite = NiterationCrystallite + 1_pInt
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
enddo cutbackLooping
* checked and corrected parallelization of code. compiles now successfully, but simply aborts computation with first parallel directive without any comment :-((( * also put a call to constitutive_microstructure at the start of each crystallite_integration subroutine like it was before. need that for nonlocal model in case of crystallite cutback
2010-11-03 22:52:48 +05:30
! --+>> CHECK FOR NON-CONVERGED CRYSTALLITES <<+--
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
elementLooping5: do e = FEsolving_execElem(1),FEsolving_execElem(2)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
myNcomponents = homogenization_Ngrains(mesh_element(3,e))
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e) ! iterate over IPs of this element to be processed
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
do c = 1,myNcomponents
if (.not. crystallite_converged(c,i,e)) then ! respond fully elastically (might be not required due to becoming terminally ill anyway)
more work on the new state
2014-05-27 20:16:03 +05:30
if(iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
write(6,'(a,i8,1x,a,i8,a,1x,i2,1x,i3,/)') '<< CRYST >> no convergence: respond fully elastic at el (elFE) ip ipc ', &
e,'(',mesh_element(1,e),')',i,c
invFp = math_inv33(crystallite_partionedFp0(1:3,1:3,c,i,e))
Fe_guess = math_mul33x33(math_mul33x33(crystallite_partionedF(1:3,1:3,c,i,e), invFp), &
math_inv33(crystallite_partionedFi0(1:3,1:3,c,i,e)))
call constitutive_TandItsTangent(Tstar,dSdFe,dSdFi,Fe_guess,crystallite_partionedFi0(1:3,1:3,c,i,e),c,i,e)
crystallite_P(1:3,1:3,c,i,e) = math_mul33x33(math_mul33x33(crystallite_partionedF(1:3,1:3,c,i,e), invFp), &
add pheno+ module in
2015-10-14 00:22:01 +05:30
math_mul33x33(Tstar,transpose(invFp)))
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
.and. ((e == debug_e .and. i == debug_i .and. c == debug_g) &
fixed bug in crystallite_FPI: stateDamper always has to be defined for each grain added some OMP FLUSH statements were necessary replaced openmp do by forall construct where possible; this is much safer and perhaps even as fast for small loops
2012-11-07 21:13:29 +05:30
.or. .not. iand(debug_level(debug_crystallite),debug_levelSelective) /= 0_pInt)) then
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
write(6,'(a,i8,1x,i2,1x,i3)') '<< CRYST >> central solution of cryst_StressAndTangent at el ip ipc ',e,i,c
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
write(6,'(/,a,/,3(12x,3(f12.4,1x)/))') '<< CRYST >> P / MPa', &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
math_transpose33(crystallite_P(1:3,1:3,c,i,e))*1.0e-6_pReal
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> Fp', &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
math_transpose33(crystallite_Fp(1:3,1:3,c,i,e))
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a,/,3(12x,3(f14.9,1x)/))') '<< CRYST >> Fi', &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
math_transpose33(crystallite_Fi(1:3,1:3,c,i,e))
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
write(6,'(a,/,3(12x,3(f14.9,1x)/),/)') '<< CRYST >> Lp', &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
math_transpose33(crystallite_Lp(1:3,1:3,c,i,e))
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a,/,3(12x,3(f14.9,1x)/),/)') '<< CRYST >> Li', &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
math_transpose33(crystallite_Li(1:3,1:3,c,i,e))
more work on the new state
2014-05-27 20:16:03 +05:30
flush(6)
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
endif
enddo
enddo
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
enddo elementLooping5
* checked and corrected parallelization of code. compiles now successfully, but simply aborts computation with first parallel directive without any comment :-((( * also put a call to constitutive_microstructure at the start of each crystallite_integration subroutine like it was before. need that for nonlocal model in case of crystallite cutback
2010-11-03 22:52:48 +05:30
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
* checked and corrected parallelization of code. compiles now successfully, but simply aborts computation with first parallel directive without any comment :-((( * also put a call to constitutive_microstructure at the start of each crystallite_integration subroutine like it was before. need that for nonlocal model in case of crystallite cutback
2010-11-03 22:52:48 +05:30
! --+>> STIFFNESS CALCULATION <<+--
Tstar_v is now restored at different stages of cutbacking; we need this because preguess of state relies on consistent Tstar_v
2009-06-16 14:33:30 +05:30
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
computeJacobian: if(updateJaco) then
removed numerical perturbation calculation
2016-07-25 23:37:12 +05:30
!$OMP PARALLEL DO PRIVATE(dSdF,dSdFe,dSdFi,dLpdS,dLpdFi,dFpinvdF,dLidS,dLidFi,dFidS,&
!$OMP rhs_3333,lhs_3333,temp_99,temp_33,temp_3333,myNcomponents,error)
elementLooping6: do e = FEsolving_execElem(1),FEsolving_execElem(2)
myNcomponents = homogenization_Ngrains(mesh_element(3,e))
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e) ! iterate over IPs of this element to be processed
do c = 1_pInt,myNcomponents
call constitutive_TandItsTangent(temp_33,dSdFe,dSdFi,crystallite_Fe(1:3,1:3,c,i,e), &
crystallite_Fi(1:3,1:3,c,i,e),c,i,e) ! call constitutive law to calculate elastic stress tangent
call constitutive_LiAndItsTangent(temp_33,dLidS,dLidFi,crystallite_Tstar_v(1:6,c,i,e), &
crystallite_Fi(1:3,1:3,c,i,e), &
c,i,e) ! call constitutive law to calculate Li tangent in lattice configuration
if (sum(abs(dLidS)) < tol_math_check) then
dFidS = 0.0_pReal
else
temp_33 = math_inv33(crystallite_subFi0(1:3,1:3,c,i,e))
lhs_3333 = 0.0_pReal; rhs_3333 = 0.0_pReal
do o=1_pInt,3_pInt; do p=1_pInt,3_pInt
lhs_3333(1:3,1:3,o,p) = lhs_3333(1:3,1:3,o,p) + &
crystallite_subdt(c,i,e)*math_mul33x33(temp_33,dLidFi(1:3,1:3,o,p))
lhs_3333(1:3,o,1:3,p) = lhs_3333(1:3,o,1:3,p) + &
crystallite_invFi(1:3,1:3,c,i,e)*crystallite_invFi(p,o,c,i,e)
rhs_3333(1:3,1:3,o,p) = rhs_3333(1:3,1:3,o,p) - &
crystallite_subdt(c,i,e)*math_mul33x33(temp_33,dLidS(1:3,1:3,o,p))
enddo; enddo
call math_invert(9_pInt,math_Plain3333to99(lhs_3333),temp_99,error)
if (error) then
call IO_warning(warning_ID=600_pInt,el=e,ip=i,g=c, &
ext_msg='inversion error in analytic tangent calculation')
dFidS = 0.0_pReal
else
dFidS = math_mul3333xx3333(math_Plain99to3333(temp_99),rhs_3333)
endif
dLidS = math_mul3333xx3333(dLidFi,dFidS) + dLidS
endif
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
removed numerical perturbation calculation
2016-07-25 23:37:12 +05:30
call constitutive_LpAndItsTangent(temp_33,dLpdS,dLpdFi,crystallite_Tstar_v(1:6,c,i,e), &
crystallite_Fi(1:3,1:3,c,i,e),c,i,e) ! call constitutive law to calculate Lp tangent in lattice configuration
dLpdS = math_mul3333xx3333(dLpdFi,dFidS) + dLpdS
temp_33 = math_transpose33(math_mul33x33(crystallite_invFp(1:3,1:3,c,i,e), &
crystallite_invFi(1:3,1:3,c,i,e)))
rhs_3333 = 0.0_pReal
forall(p=1_pInt:3_pInt, o=1_pInt:3_pInt) &
rhs_3333(p,o,1:3,1:3) = math_mul33x33(dSdFe(p,o,1:3,1:3),temp_33)
temp_3333 = 0.0_pReal
temp_33 = math_mul33x33(crystallite_subF(1:3,1:3,c,i,e), &
math_inv33(crystallite_subFp0(1:3,1:3,c,i,e)))
forall(p=1_pInt:3_pInt, o=1_pInt:3_pInt) &
temp_3333(1:3,1:3,p,o) = math_mul33x33(math_mul33x33(temp_33,dLpdS(1:3,1:3,p,o)), &
crystallite_invFi(1:3,1:3,c,i,e))
temp_33 = math_mul33x33(math_mul33x33(crystallite_subF(1:3,1:3,c,i,e), &
crystallite_invFp(1:3,1:3,c,i,e)), &
math_inv33(crystallite_subFi0(1:3,1:3,c,i,e)))
forall(p=1_pInt:3_pInt, o=1_pInt:3_pInt) &
temp_3333(1:3,1:3,p,o) = temp_3333(1:3,1:3,p,o) + math_mul33x33(temp_33,dLidS(1:3,1:3,p,o))
lhs_3333 = crystallite_subdt(c,i,e)*math_mul3333xx3333(dSdFe,temp_3333) + &
math_mul3333xx3333(dSdFi,dFidS)
call math_invert(9_pInt,math_identity2nd(9_pInt)+math_Plain3333to99(lhs_3333),temp_99,error)
if (error) then
call IO_warning(warning_ID=600_pInt,el=e,ip=i,g=c, &
ext_msg='inversion error in analytic tangent calculation')
dSdF = rhs_3333
else
dSdF = math_mul3333xx3333(math_Plain99to3333(temp_99),rhs_3333)
endif
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
removed numerical perturbation calculation
2016-07-25 23:37:12 +05:30
dFpinvdF = 0.0_pReal
temp_3333 = math_mul3333xx3333(dLpdS,dSdF)
forall(p=1_pInt:3_pInt, o=1_pInt:3_pInt) &
dFpinvdF(1:3,1:3,p,o) = -crystallite_subdt(c,i,e)* &
math_mul33x33(math_inv33(crystallite_subFp0(1:3,1:3,c,i,e)), &
math_mul33x33(temp_3333(1:3,1:3,p,o), &
crystallite_invFi(1:3,1:3,c,i,e)))
crystallite_dPdF(1:3,1:3,1:3,1:3,c,i,e) = 0.0_pReal
temp_33 = math_mul33x33(crystallite_invFp(1:3,1:3,c,i,e), &
math_mul33x33(math_Mandel6to33(crystallite_Tstar_v(1:6,c,i,e)), &
math_transpose33(crystallite_invFp(1:3,1:3,c,i,e))))
forall(p=1_pInt:3_pInt) &
crystallite_dPdF(p,1:3,p,1:3,c,i,e) = math_transpose33(temp_33)
temp_33 = math_mul33x33(math_Mandel6to33(crystallite_Tstar_v(1:6,c,i,e)), &
math_transpose33(crystallite_invFp(1:3,1:3,c,i,e)))
forall(p=1_pInt:3_pInt, o=1_pInt:3_pInt) &
crystallite_dPdF(1:3,1:3,p,o,c,i,e) = crystallite_dPdF(1:3,1:3,p,o,c,i,e) + &
math_mul33x33(math_mul33x33(crystallite_subF(1:3,1:3,c,i,e),dFpinvdF(1:3,1:3,p,o)),temp_33)
temp_33 = math_mul33x33(crystallite_subF(1:3,1:3,c,i,e), &
crystallite_invFp(1:3,1:3,c,i,e))
forall(p=1_pInt:3_pInt, o=1_pInt:3_pInt) &
crystallite_dPdF(1:3,1:3,p,o,c,i,e) = crystallite_dPdF(1:3,1:3,p,o,c,i,e) + &
math_mul33x33(math_mul33x33(temp_33,dSdF(1:3,1:3,p,o)), &
math_transpose33(crystallite_invFp(1:3,1:3,c,i,e)))
temp_33 = math_mul33x33(math_mul33x33(crystallite_subF(1:3,1:3,c,i,e), &
crystallite_invFp(1:3,1:3,c,i,e)), &
math_Mandel6to33(crystallite_Tstar_v(1:6,c,i,e)))
forall(p=1_pInt:3_pInt, o=1_pInt:3_pInt) &
crystallite_dPdF(1:3,1:3,p,o,c,i,e) = crystallite_dPdF(1:3,1:3,p,o,c,i,e) + &
math_mul33x33(temp_33,math_transpose33(dFpinvdF(1:3,1:3,p,o)))
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
removed numerical perturbation calculation
2016-07-25 23:37:12 +05:30
enddo; enddo
enddo elementLooping6
!$OMP END PARALLEL DO
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
endif computeJacobian
more work on the new state
2014-05-27 20:16:03 +05:30
!why not OMP?
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
end subroutine crystallite_stressAndItsTangent
major restructuring of code. homogenization as well as constitutive are now free to choose. the runtime got somewhat longer (25% on simple tests) compared to a hardcoded isostrain homogenization. this might be a point of further optimization at a later stage... please use homogenization_isostrain.f90 as starting point / example for future developments of homog-schemes. the homogenization scheme now can additionally output certain results. hence, the userdata structure at each integration point now looks like this: - sizeHomogPostResults - block of that size containing homogPostResults then for each grain: - sizeGrainPostResults - block of that size containing crystallitePostResults, which consist of: + phaseID + volFrac + Eulers (3) + any constitutive post results requested
2009-05-07 21:57:36 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!> @brief integrate stress, state with 4th order explicit Runge Kutta method
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
subroutine crystallite_integrateStateRK4()
improved NaN checks
2015-04-13 15:32:52 +05:30
use prec, only: &
prec_isNaN
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
use numerics, only: &
numerics_integrationMode
use debug, only: &
debug_level, &
debug_crystallite, &
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
corrected buggy previous commit
2015-04-21 20:03:38 +05:30
debug_e, &
debug_i, &
debug_g, &
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
debug_StateLoopDistribution
use FEsolving, only: &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
FEsolving_execElem, &
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
FEsolving_execIP
use mesh, only: &
mesh_element, &
write output information only for active crystallites. removed unused variables. fixed some real == 0 comparisons
2015-04-21 17:53:00 +05:30
mesh_NcpElems
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
use material, only: &
homogenization_Ngrains, &
fixed small allocation flaws for new state
2014-05-12 18:30:37 +05:30
plasticState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
sourceState, &
phase_Nsources, &
material_Nphase, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
use constitutive, only: &
more work on the new state
2014-05-27 20:16:03 +05:30
constitutive_collectDotState, &
moved mappings for new state layout to material
2014-06-23 00:28:29 +05:30
constitutive_microstructure
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
implicit none
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
real(pReal), dimension(4), parameter :: &
more work on the new state
2014-05-27 20:16:03 +05:30
TIMESTEPFRACTION = [0.5_pReal, 0.5_pReal, 1.0_pReal, 1.0_pReal] ! factor giving the fraction of the original timestep used for Runge Kutta Integration
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
real(pReal), dimension(4), parameter :: &
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
WEIGHT = [1.0_pReal, 2.0_pReal, 2.0_pReal, 1.0_pReal/6.0_pReal] ! weight of slope used for Runge Kutta integration (final weight divided by 6)
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
integer(pInt) :: e, & ! element index in element loop
doxygen comments
2013-02-22 04:38:36 +05:30
i, & ! integration point index in ip loop
g, & ! grain index in grain loop
more work on the new state
2014-05-27 20:16:03 +05:30
p, & ! phase loop
c, &
doxygen comments
2013-02-22 04:38:36 +05:30
n, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySource, &
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
mySizePlasticDotState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizeSourceDotState
doxygen comments
2013-02-22 04:38:36 +05:30
integer(pInt), dimension(2) :: eIter ! bounds for element iteration
integer(pInt), dimension(2,mesh_NcpElems) :: iIter, & ! bounds for ip iteration
gIter ! bounds for grain iteration
name conflict
2015-09-10 03:22:00 +05:30
logical :: NaN, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
singleRun ! flag indicating computation for single (g,i,e) triple
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
eIter = FEsolving_execElem(1:2)
do e = eIter(1),eIter(2)
iIter(1:2,e) = FEsolving_execIP(1:2,e)
gIter(1:2,e) = [ 1_pInt,homogenization_Ngrains(mesh_element(3,e))]
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
fixed out of range bug introduced with singleRun changes in rev. 2356
2013-04-30 17:44:07 +05:30
singleRun = (eIter(1) == eIter(2) .and. iIter(1,eIter(1)) == iIter(2,eIter(2)))
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
!--------------------------------------------------------------------------------------------------
! initialize dotState
if (.not. singleRun) then
add pheno+ module in
2015-10-14 00:22:01 +05:30
do p = 1_pInt, material_Nphase
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState(p)%RK4dotState = 0.0_pReal
add pheno+ module in
2015-10-14 00:22:01 +05:30
do mySource = 1_pInt, phase_Nsources(p)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
sourceState(p)%p(mySource)%RK4dotState = 0.0_pReal
enddo
enddo
more work on the new state
2014-05-27 20:16:03 +05:30
else
e = eIter(1)
i = iIter(1,e)
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
do g = gIter(1,e), gIter(2,e)
plasticState(phaseAt(g,i,e))%RK4dotState(:,phasememberAt(g,i,e)) = 0.0_pReal
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
do mySource = 1_pInt, phase_Nsources(phaseAt(g,i,e))
sourceState(phaseAt(g,i,e))%p(mySource)%RK4dotState(:,phasememberAt(g,i,e)) = 0.0_pReal
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
more work on the new state
2014-05-27 20:16:03 +05:30
enddo
endif
!--------------------------------------------------------------------------------------------------
! first Runge-Kutta step
!$OMP PARALLEL
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e)) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
call constitutive_collectDotState(crystallite_Tstar_v(1:6,g,i,e), &
constitutive dot state now takes Lp which is needed to the thermal dot state. thermal problems should be working now
2014-09-27 02:19:25 +05:30
crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
crystallite_Fp, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_subdt(g,i,e), crystallite_subFrac, g,i,e)
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
more work on the new state
2014-05-27 20:16:03 +05:30
name conflict
2015-09-10 03:22:00 +05:30
!$OMP DO PRIVATE(p,c,NaN)
more work on the new state
2014-05-27 20:16:03 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
c = phasememberAt(g,i,e)
p = phaseAt(g,i,e)
name conflict
2015-09-10 03:22:00 +05:30
NaN = any(prec_isNaN(plasticState(p)%dotState(:,c)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
name conflict
2015-09-10 03:22:00 +05:30
NaN = NaN .or. any(prec_isNaN(sourceState(p)%p(mySource)%dotState(:,c)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
name conflict
2015-09-10 03:22:00 +05:30
if (NaN) then ! NaN occured in any dotState
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP CRITICAL (checkTodo)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP END CRITICAL (checkTodo)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
else ! if broken local...
crystallite_todo(g,i,e) = .false. ! ... skip this one next time
doxygen comments
2013-02-22 04:38:36 +05:30
endif
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP END PARALLEL
more work on the new state
2014-05-27 20:16:03 +05:30
!--------------------------------------------------------------------------------------------------
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
! --- SECOND TO FOURTH RUNGE KUTTA STEP PLUS FINAL INTEGRATION ---
more work on the new state
2014-05-27 20:16:03 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
do n = 1_pInt,4_pInt
! --- state update ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP PARALLEL
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP DO PRIVATE(p,c)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
plasticState(p)%RK4dotState(:,c) = plasticState(p)%RK4dotState(:,c) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
+ weight(n)*plasticState(p)%dotState(:,c)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
sourceState(p)%p(mySource)%RK4dotState(:,c) = sourceState(p)%p(mySource)%RK4dotState(:,c) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
+ weight(n)*sourceState(p)%p(mySource)%dotState(:,c)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP ENDDO
more work on the new state
2014-05-27 20:16:03 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP DO PRIVATE(mySizePlasticDotState,mySizeSourceDotState,p,c)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState(p)%state (1:mySizePlasticDotState,c) = &
plasticState(p)%subState0(1:mySizePlasticDotState,c) &
+ plasticState(p)%dotState (1:mySizePlasticDotState,c) &
* crystallite_subdt(g,i,e) * timeStepFraction(n)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceState(p)%p(mySource)%state (1:mySizeSourceDotState,c) = &
sourceState(p)%p(mySource)%subState0(1:mySizeSourceDotState,c) &
+ sourceState(p)%p(mySource)%dotState (1:mySizeSourceDotState,c) &
* crystallite_subdt(g,i,e) * timeStepFraction(n)
enddo
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
new function stateJump, which takes care of immediate changes in the state (deltaState); this introduces discontinuities in the state evolution; therefore this is always and only once done after each integration step, so no evaluation of deltaState for intermediate steps of e.g. the Runge-Kutta integrator; otherwise integration becomes a pain without significant gain in accuracy deltaState now successfully tested for nonlocal model; was not correct for integrators 1,4,5 before
2012-06-06 20:41:30 +05:30
#ifndef _OPENMP
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
if (n == 4 &
.and. iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
.and. ((e == debug_e .and. i == debug_i .and. g == debug_g) &
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then ! final integration step
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
write(6,'(a,i8,1x,i2,1x,i3,/)') '<< CRYST >> updateState at el ip g ',e,i,g
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> dotState', plasticState(p)%dotState(1:mySizePlasticDotState,c)
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> new state', plasticState(p)%state(1:mySizePlasticDotState,c)
doxygen comments
2013-02-22 04:38:36 +05:30
endif
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
#endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP ENDDO
doxygen comments
2013-02-22 04:38:36 +05:30
! --- state jump ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_stateJump(g,i,e)
!$OMP FLUSH(crystallite_todo)
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- update dependent states ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e)) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
!***dirty way to pass orientation information
call constitutive_microstructure(crystallite_orientation, &
crystallite_Fe(1:3,1:3,g,i,e), &
recast power law and viscous dot state variables as derived quantities using analytical solutions of the evolution equation
2014-11-29 01:36:24 +05:30
crystallite_Fp(1:3,1:3,g,i,e), &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
g, i, e) ! update dependent state variables to be consistent with basic states
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- stress integration ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_integrateStress(g,i,e,timeStepFraction(n)) ! fraction of original times step
!$OMP FLUSH(crystallite_todo)
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif
enddo; enddo; enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP ENDDO
doxygen comments
2013-02-22 04:38:36 +05:30
! --- dot state and RK dot state---
add pheno+ module in
2015-10-14 00:22:01 +05:30
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
first3steps: if (n < 4) then
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e)) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
call constitutive_collectDotState(crystallite_Tstar_v(1:6,g,i,e), &
constitutive dot state now takes Lp which is needed to the thermal dot state. thermal problems should be working now
2014-09-27 02:19:25 +05:30
crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
crystallite_Fp, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
timeStepFraction(n)*crystallite_subdt(g,i,e), & ! fraction of original timestep
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_subFrac, g,i,e)
enddo; enddo; enddo
!$OMP ENDDO
more work on the new state
2014-05-27 20:16:03 +05:30
name conflict
2015-09-10 03:22:00 +05:30
!$OMP DO PRIVATE(p,c,NaN)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
name conflict
2015-09-10 03:22:00 +05:30
NaN = any(prec_isNaN(plasticState(p)%dotState(:,c)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
name conflict
2015-09-10 03:22:00 +05:30
NaN = NaN .or. any(prec_isNaN(sourceState(p)%p(mySource)%dotState(:,c)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
name conflict
2015-09-10 03:22:00 +05:30
if (NaN) then ! NaN occured in any dotState
more work on the new state
2014-05-27 20:16:03 +05:30
if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
else ! if broken local...
crystallite_todo(g,i,e) = .false. ! ... skip this one next time
endif
endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
endif first3steps
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP END PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- SET CONVERGENCE FLAG ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
name conflict
2015-09-10 03:22:00 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
doxygen comments
2013-02-22 04:38:36 +05:30
if (crystallite_todo(g,i,e)) then
name conflict
2015-09-10 03:22:00 +05:30
crystallite_converged(g,i,e) = .true. ! if still "to do" then converged per definitionem
doxygen comments
2013-02-22 04:38:36 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
!$OMP CRITICAL (distributionState)
debug_StateLoopDistribution(4,numerics_integrationMode) = &
debug_StateLoopDistribution(4,numerics_integrationMode) + 1_pInt
!$OMP END CRITICAL (distributionState)
endif
endif
enddo; enddo; enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- CHECK NONLOCAL CONVERGENCE ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
if (.not. singleRun) then ! if not requesting Integration of just a single IP
doxygen comments
2013-02-22 04:38:36 +05:30
if (any(.not. crystallite_converged .and. .not. crystallite_localPlasticity)) then ! any non-local not yet converged (or broken)...
crystallite_converged = crystallite_converged .and. crystallite_localPlasticity ! ...restart all non-local as not converged
endif
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
end subroutine crystallite_integrateStateRK4
* now able to choose method for state integration (integrator and integratorStiffness in numerics.config); standard is "Fixed Point Iteration", which is basically the same as before; others available are "Explicit Euler", "AdaptiveEuler", "Classical Runge-Kutta" and "Runge-Kutta Cash-Karp" * now remembering stiffness similar to how we do it for Lp etc.; avoids undefined stiffness values for nonconverged stiffness calculation * non-local stuff: * changed non-local kinetics (Gilman2002) * enforce zero shearrate for overall carrrier density below relevant density * enforce zero density for those states that become negative and were below relevant density before * dislocation velocity is not limited by V^(1/3) / dt anymore
2010-10-01 17:48:49 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!> @brief integrate stress, state with 5th order Runge-Kutta Cash-Karp method with
doxygen comments
2013-02-22 04:38:36 +05:30
!> adaptive step size (use 5th order solution to advance = "local extrapolation")
!--------------------------------------------------------------------------------------------------
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
subroutine crystallite_integrateStateRKCK45()
improved NaN checks
2015-04-13 15:32:52 +05:30
use prec, only: &
prec_isNaN
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
use debug, only: &
debug_level, &
debug_crystallite, &
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
corrected buggy previous commit
2015-04-21 20:03:38 +05:30
debug_e, &
debug_i, &
debug_g, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
debug_StateLoopDistribution
use numerics, only: &
rTol_crystalliteState, &
numerics_integrationMode
use FEsolving, only: &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
FEsolving_execElem, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
FEsolving_execIP
use mesh, only: &
mesh_element, &
mesh_NcpElems, &
mesh_maxNips
use material, only: &
homogenization_Ngrains, &
more work on the new state
2014-05-27 20:16:03 +05:30
plasticState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
sourceState, &
phase_Nsources, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
homogenization_maxNgrains
use constitutive, only: &
more work on the new state
2014-05-27 20:16:03 +05:30
constitutive_collectDotState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
constitutive_plasticity_maxSizeDotState, &
constitutive_source_maxSizeDotState, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
constitutive_microstructure
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
implicit none
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
real(pReal), dimension(5,5), parameter :: &
A = reshape([&
.2_pReal, .075_pReal, .3_pReal, -11.0_pReal/54.0_pReal, 1631.0_pReal/55296.0_pReal, &
.0_pReal, .225_pReal, -.9_pReal, 2.5_pReal, 175.0_pReal/512.0_pReal, &
.0_pReal, .0_pReal, 1.2_pReal, -70.0_pReal/27.0_pReal, 575.0_pReal/13824.0_pReal, &
.0_pReal, .0_pReal, .0_pReal, 35.0_pReal/27.0_pReal, 44275.0_pReal/110592.0_pReal, &
.0_pReal, .0_pReal, .0_pReal, .0_pReal, 253.0_pReal/4096.0_pReal], &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
[5,5], order=[2,1]) !< coefficients in Butcher tableau (used for preliminary integration in stages 2 to 6)
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
real(pReal), dimension(6), parameter :: &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
B = &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
[37.0_pReal/378.0_pReal, .0_pReal, 250.0_pReal/621.0_pReal, &
125.0_pReal/594.0_pReal, .0_pReal, 512.0_pReal/1771.0_pReal], & !< coefficients in Butcher tableau (used for final integration and error estimate)
DB = B - &
more work on the new state
2014-05-27 20:16:03 +05:30
[2825.0_pReal/27648.0_pReal, .0_pReal, 18575.0_pReal/48384.0_pReal,&
13525.0_pReal/55296.0_pReal, 277.0_pReal/14336.0_pReal, 0.25_pReal] !< coefficients in Butcher tableau (used for final integration and error estimate)
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
real(pReal), dimension(5), parameter :: &
C = [0.2_pReal, 0.3_pReal, 0.6_pReal, 1.0_pReal, 0.875_pReal] !< coefficients in Butcher tableau (fractions of original time step in stages 2 to 6)
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
integer(pInt) :: &
e, & ! element index in element loop
i, & ! integration point index in ip loop
g, & ! grain index in grain loop
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
stage, & ! stage index in integration stage loop
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
s, & ! state index
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
n, &
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
p, &
cc, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySource, &
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
mySizePlasticDotState, & ! size of dot States
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizeSourceDotState
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt), dimension(2) :: &
eIter ! bounds for element iteration
integer(pInt), dimension(2,mesh_NcpElems) :: &
iIter, & ! bounds for ip iteration
gIter ! bounds for grain iteration
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
real(pReal), dimension(constitutive_plasticity_maxSizeDotState, &
homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: &
plasticStateResiduum, & ! residuum from evolution in microstructure
relPlasticStateResiduum ! relative residuum from evolution in microstructure
real(pReal), dimension(constitutive_source_maxSizeDotState, &
maxval(phase_Nsources), &
homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: &
sourceStateResiduum, & ! residuum from evolution in microstructure
relSourceStateResiduum ! relative residuum from evolution in microstructure
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
logical :: &
name conflict
2015-09-10 03:22:00 +05:30
NaN, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
singleRun ! flag indicating computation for single (g,i,e) triple
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
eIter = FEsolving_execElem(1:2)
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt) &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
write(6,'(a,1x,i1)') '<< CRYST >> Runge--Kutta step',1
more work on the new state
2014-05-27 20:16:03 +05:30
! --- LOOP ITERATOR FOR ELEMENT, GRAIN, IP ---
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
do e = eIter(1),eIter(2)
iIter(1:2,e) = FEsolving_execIP(1:2,e)
gIter(1:2,e) = [ 1_pInt,homogenization_Ngrains(mesh_element(3,e))]
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
fixed out of range bug introduced with singleRun changes in rev. 2356
2013-04-30 17:44:07 +05:30
singleRun = (eIter(1) == eIter(2) .and. iIter(1,eIter(1)) == iIter(2,eIter(2)))
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- FIRST RUNGE KUTTA STEP ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP PARALLEL
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e)) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
call constitutive_collectDotState(crystallite_Tstar_v(1:6,g,i,e), &
constitutive dot state now takes Lp which is needed to the thermal dot state. thermal problems should be working now
2014-09-27 02:19:25 +05:30
crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
crystallite_Fp, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_subdt(g,i,e), crystallite_subFrac, g,i,e)
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
name conflict
2015-09-10 03:22:00 +05:30
!$OMP DO PRIVATE(p,cc,NaN)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
cc = phasememberAt(g,i,e)
p = phaseAt(g,i,e)
name conflict
2015-09-10 03:22:00 +05:30
NaN = any(prec_isNaN(plasticState(p)%dotState(:,cc)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
name conflict
2015-09-10 03:22:00 +05:30
NaN = NaN .or. any(prec_isNaN(sourceState(p)%p(mySource)%dotState(:,cc)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
name conflict
2015-09-10 03:22:00 +05:30
if (NaN) then ! NaN occured in any dotState
more work on the new state
2014-05-27 20:16:03 +05:30
if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
else ! if broken local...
crystallite_todo(g,i,e) = .false. ! ... skip this one next time
endif
endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
enddo; enddo; enddo
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP ENDDO
!$OMP END PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- SECOND TO SIXTH RUNGE KUTTA STEP ---
more work on the new state
2014-05-27 20:16:03 +05:30
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
do stage = 1_pInt,5_pInt
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- state update ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP PARALLEL
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
!$OMP DO PRIVATE(p,cc)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
cc = phasememberAt(g,i,e)
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
plasticState(p)%RKCK45dotState(stage,:,cc) = plasticState(p)%dotState(:,cc) ! store Runge-Kutta dotState
add pheno+ module in
2015-10-14 00:22:01 +05:30
do mySource = 1_pInt, phase_Nsources(p)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
sourceState(p)%p(mySource)%RKCK45dotState(stage,:,cc) = sourceState(p)%p(mySource)%dotState(:,cc)
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
!$OMP DO PRIVATE(p,cc,n)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
cc = phasememberAt(g,i,e)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
plasticState(p)%dotState(:,cc) = A(1,stage) * plasticState(p)%RKCK45dotState(1,:,cc)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
sourceState(p)%p(mySource)%dotState(:,cc) = A(1,stage) * sourceState(p)%p(mySource)%RKCK45dotState(1,:,cc)
enddo
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
do n = 2_pInt, stage
plasticState(p)%dotState(:,cc) = &
plasticState(p)%dotState(:,cc) + A(n,stage) * plasticState(p)%RKCK45dotState(n,:,cc)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
sourceState(p)%p(mySource)%dotState(:,cc) = &
sourceState(p)%p(mySource)%dotState(:,cc) + A(n,stage) * sourceState(p)%p(mySource)%RKCK45dotState(n,:,cc)
enddo
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP DO PRIVATE(mySizePlasticDotState,mySizeSourceDotState,p,cc)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
cc = phasememberAt(g,i,e)
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState (p)%state (1:mySizePlasticDotState, cc) = &
plasticState (p)%subState0(1:mySizePlasticDotState, cc) &
+ plasticState (p)%dotState (1:mySizePlasticDotState, cc) &
* crystallite_subdt(g,i,e)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceState(p)%p(mySource)%state (1:mySizeSourceDotState,cc) = &
sourceState(p)%p(mySource)%subState0(1:mySizeSourceDotState,cc) &
+ sourceState(p)%p(mySource)%dotState (1:mySizeSourceDotState,cc) &
* crystallite_subdt(g,i,e)
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- state jump ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
name conflict
2015-09-10 03:22:00 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_stateJump(g,i,e)
!$OMP FLUSH(crystallite_todo)
name conflict
2015-09-10 03:22:00 +05:30
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP CRITICAL (checkTodo)
name conflict
2015-09-10 03:22:00 +05:30
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP END CRITICAL (checkTodo)
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- update dependent states ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e)) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
!***dirty way to pass orientations to constitutive_microstructure
call constitutive_microstructure(crystallite_orientation, &
crystallite_Fe(1:3,1:3,g,i,e), &
recast power law and viscous dot state variables as derived quantities using analytical solutions of the evolution equation
2014-11-29 01:36:24 +05:30
crystallite_Fp(1:3,1:3,g,i,e), &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
g, i, e) ! update dependent state variables to be consistent with basic states
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- stress integration ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
crystallite_todo(g,i,e) = crystallite_integrateStress(g,i,e,C(stage)) ! fraction of original time step
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP FLUSH(crystallite_todo)
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif
enddo; enddo; enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP ENDDO
doxygen comments
2013-02-22 04:38:36 +05:30
! --- dot state and RK dot state---
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#ifndef _OPENMP
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt) &
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
write(6,'(a,1x,i1)') '<< CRYST >> Runge--Kutta step',stage+1_pInt
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#endif
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e)) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
call constitutive_collectDotState(crystallite_Tstar_v(1:6,g,i,e), &
constitutive dot state now takes Lp which is needed to the thermal dot state. thermal problems should be working now
2014-09-27 02:19:25 +05:30
crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
crystallite_Fp, &
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
C(stage)*crystallite_subdt(g,i,e), & ! fraction of original timestep
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_subFrac, g,i,e)
enddo; enddo; enddo
!$OMP ENDDO
name conflict
2015-09-10 03:22:00 +05:30
!$OMP DO PRIVATE(p,cc,NaN)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
cc = phasememberAt(g,i,e)
name conflict
2015-09-10 03:22:00 +05:30
NaN = any(prec_isNaN(plasticState(p)%dotState(:,cc)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
name conflict
2015-09-10 03:22:00 +05:30
NaN = NaN .or. any(prec_isNaN(sourceState(p)%p(mySource)%dotState(:,cc)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
name conflict
2015-09-10 03:22:00 +05:30
if (NaN) then ! NaN occured in any dotState
doxygen comments
2013-02-22 04:38:36 +05:30
if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
else ! if broken local...
crystallite_todo(g,i,e) = .false. ! ... skip this one next time
endif
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
!$OMP END PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
enddo
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
!--------------------------------------------------------------------------------------------------
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
! --- STATE UPDATE WITH ERROR ESTIMATE FOR STATE ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
relPlasticStateResiduum = 0.0_pReal
relSourceStateResiduum = 0.0_pReal
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP PARALLEL
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
!$OMP DO PRIVATE(p,cc)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
cc = phasememberAt(g,i,e)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState(p)%RKCK45dotState(6,:,cc) = plasticState (p)%dotState(:,cc) ! store Runge-Kutta dotState
do mySource = 1_pInt, phase_Nsources(p)
sourceState(p)%p(mySource)%RKCK45dotState(6,:,cc) = sourceState(p)%p(mySource)%dotState(:,cc) ! store Runge-Kutta dotState
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
add pheno+ module in
2015-10-14 00:22:01 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP DO PRIVATE(mySizePlasticDotState,mySizeSourceDotState,p,cc)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
cc = phasememberAt(g,i,e)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
! --- absolute residuum in state ---
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
plasticStateResiduum(1:mySizePlasticDotState,g,i,e) = &
matmul(transpose(plasticState(p)%RKCK45dotState(1:6,1:mySizePlasticDotState,cc)),DB) &
* crystallite_subdt(g,i,e)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceStateResiduum(1:mySizeSourceDotState,mySource,g,i,e) = &
matmul(transpose(sourceState(p)%p(mySource)%RKCK45dotState(1:6,1:mySizeSourceDotState,cc)),DB) &
* crystallite_subdt(g,i,e)
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
more work on the new state
2014-05-27 20:16:03 +05:30
! --- dot state ---
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState(p)%dotState(:,cc) = &
matmul(transpose(plasticState(p)%RKCK45dotState(1:6,1:mySizePlasticDotState,cc)), B)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceState(p)%p(mySource)%dotState(:,cc) = &
add pheno+ module in
2015-10-14 00:22:01 +05:30
matmul(transpose(sourceState(p)%p(mySource)%RKCK45dotState(1:6,1:mySizeSourceDotState,cc)),B)
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
add pheno+ module in
2015-10-14 00:22:01 +05:30
! --- state and update ---
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP DO PRIVATE(mySizePlasticDotState,mySizeSourceDotState,p,cc)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
cc = phasememberAt(g,i,e)
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState(p)%state (1:mySizePlasticDotState,cc) = &
plasticState(p)%subState0(1:mySizePlasticDotState,cc) &
+ plasticState(p)%dotState (1:mySizePlasticDotState,cc) &
* crystallite_subdt(g,i,e)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceState(p)%p(mySource)%state (1:mySizeSourceDotState,cc) = &
sourceState(p)%p(mySource)%subState0(1:mySizeSourceDotState,cc) &
+ sourceState(p)%p(mySource)%dotState (1:mySizeSourceDotState,cc)&
* crystallite_subdt(g,i,e)
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
add pheno+ module in
2015-10-14 00:22:01 +05:30
! --- relative residui and state convergence ---
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP DO PRIVATE(mySizePlasticDotState,mySizeSourceDotState,p,cc,s)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
cc = phasememberAt(g,i,e)
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
forall (s = 1_pInt:mySizePlasticDotState, abs(plasticState(p)%state(s,cc)) > 0.0_pReal) &
relPlasticStateResiduum(s,g,i,e) = &
plasticStateResiduum(s,g,i,e) / plasticState(p)%state(s,cc)
add pheno+ module in
2015-10-14 00:22:01 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
forall (s = 1_pInt:mySizeSourceDotState,abs(sourceState(p)%p(mySource)%state(s,cc)) > 0.0_pReal) &
relSourceStateResiduum(s,mySource,g,i,e) = &
sourceStateResiduum(s,mySource,g,i,e) / sourceState(p)%p(mySource)%state(s,cc)
enddo
!$OMP FLUSH(relPlasticStateResiduum)
!$OMP FLUSH(relSourceStateResiduum)
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
! @Martin: do we need flushing? why..?
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
crystallite_todo(g,i,e) = all(abs(relPlasticStateResiduum(1:mySizePlasticDotState,g,i,e)) < &
rTol_crystalliteState .or. &
abs(plasticStateResiduum(1:mySizePlasticDotState,g,i,e)) < &
plasticState(p)%aTolState(1:mySizePlasticDotState))
add pheno+ module in
2015-10-14 00:22:01 +05:30
do mySource = 1_pInt, phase_Nsources(p)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
crystallite_todo(g,i,e) = crystallite_todo(g,i,e) .and. &
all(abs(relSourceStateResiduum(1:mySizeSourceDotState,mySource,g,i,e)) < &
rTol_crystalliteState .or. &
abs(sourceStateResiduum(1:mySizeSourceDotState,mySource,g,i,e)) < &
sourceState(p)%p(mySource)%aTolState(1:mySizeSourceDotState))
enddo
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
#ifndef _OPENMP
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt&
.and. ((e == debug_e .and. i == debug_i .and. g == debug_g)&
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
write(6,'(a,i8,1x,i3,1x,i3,/)') '<< CRYST >> updateState at el ip ipc ',e,i,g
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
write(6,'(a,/,(12x,12(f12.1,1x)),/)') '<< CRYST >> absolute residuum tolerance', &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticStateResiduum(1:mySizePlasticDotState,g,i,e) / plasticState(p)%aTolState(1:mySizePlasticDotState)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
write(6,'(a,/,(12x,12(f12.1,1x)),/)') '<< CRYST >> relative residuum tolerance', &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
relPlasticStateResiduum(1:mySizePlasticDotState,g,i,e) / rTol_crystalliteState
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> dotState', &
plasticState(p)%dotState(1:mySizePlasticDotState,cc)
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> new state', &
plasticState(p)%state(1:mySizePlasticDotState,cc)
endif
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
Depending on which state integrator one uses for the stiffness calculation, the initial state has to be chosen accordingly: e.g. for FPI choose last converged state, but for explicit RK choose converged state from start of increment (in case of explicit euler no state integration at all, but only stress integration). For this purpose we also need to remember "Fe" which now follows the cutbacking procedure as it is used for "Fp".
2011-11-04 18:14:50 +05:30
enddo; enddo; enddo
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- STATE JUMP ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_stateJump(g,i,e)
!$OMP FLUSH(crystallite_todo)
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif
Depending on which state integrator one uses for the stiffness calculation, the initial state has to be chosen accordingly: e.g. for FPI choose last converged state, but for explicit RK choose converged state from start of increment (in case of explicit euler no state integration at all, but only stress integration). For this purpose we also need to remember "Fe" which now follows the cutbacking procedure as it is used for "Fp".
2011-11-04 18:14:50 +05:30
enddo; enddo; enddo
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
!--------------------------------------------------------------------------------------------------
! --- UPDATE DEPENDENT STATES IF RESIDUUM BELOW TOLERANCE ---
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e)) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
!***dirty way to pass orientations to constitutive_microstructure
call constitutive_microstructure(crystallite_orientation, &
crystallite_Fe(1:3,1:3,g,i,e), &
recast power law and viscous dot state variables as derived quantities using analytical solutions of the evolution equation
2014-11-29 01:36:24 +05:30
crystallite_Fp(1:3,1:3,g,i,e), &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
g, i, e) ! update dependent state variables to be consistent with basic states
* now able to choose method for state integration (integrator and integratorStiffness in numerics.config); standard is "Fixed Point Iteration", which is basically the same as before; others available are "Explicit Euler", "AdaptiveEuler", "Classical Runge-Kutta" and "Runge-Kutta Cash-Karp" * now remembering stiffness similar to how we do it for Lp etc.; avoids undefined stiffness values for nonconverged stiffness calculation * non-local stuff: * changed non-local kinetics (Gilman2002) * enforce zero shearrate for overall carrrier density below relevant density * enforce zero density for those states that become negative and were below relevant density before * dislocation velocity is not limited by V^(1/3) / dt anymore
2010-10-01 17:48:49 +05:30
enddo; enddo; enddo
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
!--------------------------------------------------------------------------------------------------
! --- FINAL STRESS INTEGRATION STEP IF RESIDUUM BELOW TOLERANCE ---
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_integrateStress(g,i,e)
!$OMP FLUSH(crystallite_todo)
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
!--------------------------------------------------------------------------------------------------
! --- SET CONVERGENCE FLAG ---
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
changes to make newstate aware of damage variables
2014-06-11 22:02:09 +05:30
crystallite_converged(g,i,e) = .true. ! if still "to do" then converged per definition
doxygen comments
2013-02-22 04:38:36 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
!$OMP CRITICAL (distributionState)
debug_StateLoopDistribution(6,numerics_integrationMode) = &
debug_StateLoopDistribution(6,numerics_integrationMode) + 1_pInt
!$OMP END CRITICAL (distributionState)
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP END PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- nonlocal convergence check ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
write(6,'(a,i8,a,i2,/)') '<< CRYST >> ', count(crystallite_converged(:,:,:)), ' grains converged' ! if not requesting Integration of just a single IP
more work on the new state
2014-05-27 20:16:03 +05:30
if ((.not. singleRun) .and. any(.not. crystallite_converged .and. .not. crystallite_localPlasticity)) & ! any non-local not yet converged (or broken)...
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
crystallite_converged = crystallite_converged .and. crystallite_localPlasticity ! ...restart all non-local as not converged
add pheno+ module in
2015-10-14 00:22:01 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
end subroutine crystallite_integrateStateRKCK45
* now able to choose method for state integration (integrator and integratorStiffness in numerics.config); standard is "Fixed Point Iteration", which is basically the same as before; others available are "Explicit Euler", "AdaptiveEuler", "Classical Runge-Kutta" and "Runge-Kutta Cash-Karp" * now remembering stiffness similar to how we do it for Lp etc.; avoids undefined stiffness values for nonconverged stiffness calculation * non-local stuff: * changed non-local kinetics (Gilman2002) * enforce zero shearrate for overall carrrier density below relevant density * enforce zero density for those states that become negative and were below relevant density before * dislocation velocity is not limited by V^(1/3) / dt anymore
2010-10-01 17:48:49 +05:30
instantaneous jumps in the state by constitutive_deltaState are now incorporated for all state integrators. still they (should) not influence the result, since all constitutive laws simply return zero for the deltaState
2012-05-17 20:55:21 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
!> @brief integrate stress, state with 1st order Euler method with adaptive step size
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
subroutine crystallite_integrateStateAdaptiveEuler()
improved NaN checks
2015-04-13 15:32:52 +05:30
use prec, only: &
prec_isNaN
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
use debug, only: &
debug_level, &
debug_crystallite, &
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
corrected buggy previous commit
2015-04-21 20:03:38 +05:30
debug_e, &
debug_i, &
debug_g, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
debug_StateLoopDistribution
use numerics, only: &
rTol_crystalliteState, &
numerics_integrationMode
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
use FEsolving, only: &
FEsolving_execElem, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
FEsolving_execIP
use mesh, only: &
mesh_element, &
mesh_NcpElems, &
mesh_maxNips
use material, only: &
homogenization_Ngrains, &
more work on the new state
2014-05-27 20:16:03 +05:30
plasticState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
sourceState, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
phase_Nsources, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
homogenization_maxNgrains
use constitutive, only: &
more work on the new state
2014-05-27 20:16:03 +05:30
constitutive_collectDotState, &
constitutive_microstructure, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
constitutive_plasticity_maxSizeDotState, &
constitutive_source_maxSizeDotState
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
implicit none
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt) :: &
e, & ! element index in element loop
i, & ! integration point index in ip loop
g, & ! grain index in grain loop
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
s, & ! state index
p, &
c, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySource, &
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
mySizePlasticDotState, & ! size of dot states
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizeSourceDotState
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt), dimension(2) :: &
eIter ! bounds for element iteration
integer(pInt), dimension(2,mesh_NcpElems) :: &
iIter, & ! bounds for ip iteration
gIter ! bounds for grain iteration
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
real(pReal), dimension(constitutive_plasticity_maxSizeDotState, &
homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: &
plasticStateResiduum, & ! residuum from evolution in micrstructure
relPlasticStateResiduum ! relative residuum from evolution in microstructure
real(pReal), dimension(constitutive_source_maxSizeDotState,&
maxval(phase_Nsources), &
homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: &
sourceStateResiduum, & ! residuum from evolution in micrstructure
relSourceStateResiduum ! relative residuum from evolution in microstructure
more work on the new state
2014-05-27 20:16:03 +05:30
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
logical :: &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
converged, &
name conflict
2015-09-10 03:22:00 +05:30
NaN, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
singleRun ! flag indicating computation for single (g,i,e) triple
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- LOOP ITERATOR FOR ELEMENT, GRAIN, IP ---
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
eIter = FEsolving_execElem(1:2)
do e = eIter(1),eIter(2)
iIter(1:2,e) = FEsolving_execIP(1:2,e)
gIter(1:2,e) = [ 1_pInt,homogenization_Ngrains(mesh_element(3,e))]
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
fixed out of range bug introduced with singleRun changes in rev. 2356
2013-04-30 17:44:07 +05:30
singleRun = (eIter(1) == eIter(2) .and. iIter(1,eIter(1)) == iIter(2,eIter(2)))
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticStateResiduum = 0.0_pReal
relPlasticStateResiduum = 0.0_pReal
sourceStateResiduum = 0.0_pReal
relSourceStateResiduum = 0.0_pReal
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
integrationMode: if (numerics_integrationMode == 1_pInt) then
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP PARALLEL
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
! --- DOT STATE (EULER INTEGRATION) ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e)) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
call constitutive_collectDotState(crystallite_Tstar_v(1:6,g,i,e), &
constitutive dot state now takes Lp which is needed to the thermal dot state. thermal problems should be working now
2014-09-27 02:19:25 +05:30
crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
crystallite_Fp, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_subdt(g,i,e), crystallite_subFrac, g,i,e)
instantaneous jumps in the state by constitutive_deltaState are now incorporated for all state integrators. still they (should) not influence the result, since all constitutive laws simply return zero for the deltaState
2012-05-17 20:55:21 +05:30
enddo; enddo; enddo
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP ENDDO
name conflict
2015-09-10 03:22:00 +05:30
!$OMP DO PRIVATE(p,c,NaN)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
more work on the new state
2014-05-27 20:16:03 +05:30
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
name conflict
2015-09-10 03:22:00 +05:30
NaN = any(prec_isNaN(plasticState(p)%dotState(:,c)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
name conflict
2015-09-10 03:22:00 +05:30
NaN = NaN .or. any(prec_isNaN(sourceState(p)%p(mySource)%dotState(:,c)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
name conflict
2015-09-10 03:22:00 +05:30
if (NaN) then ! NaN occured in any dotState
more work on the new state
2014-05-27 20:16:03 +05:30
if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
else ! if broken local...
crystallite_todo(g,i,e) = .false. ! ... skip this one next time
endif
endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
more work on the new state
2014-05-27 20:16:03 +05:30
enddo; enddo; enddo
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- STATE UPDATE (EULER INTEGRATION) ---
add pheno+ module in
2015-10-14 00:22:01 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP DO PRIVATE(mySizePlasticDotState,mySizeSourceDotState,p,c)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticStateResiduum(1:mySizePlasticDotState,g,i,e) = &
- 0.5_pReal &
* plasticState(p)%dotstate(1:mySizePlasticDotState,c) &
* crystallite_subdt(g,i,e) ! contribution to absolute residuum in state
plasticState(p)%state (1:mySizePlasticDotState,c) = &
plasticState(p)%state (1:mySizePlasticDotState,c) &
+ plasticState(p)%dotstate(1:mySizePlasticDotState,c) &
* crystallite_subdt(g,i,e)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceStateResiduum(1:mySizeSourceDotState,mySource,g,i,e) = &
- 0.5_pReal &
* sourceState(p)%p(mySource)%dotstate(1:mySizeSourceDotState,c) &
* crystallite_subdt(g,i,e) ! contribution to absolute residuum in state
sourceState(p)%p(mySource)%state (1:mySizeSourceDotState,c) = &
sourceState(p)%p(mySource)%state (1:mySizeSourceDotState,c) &
+ sourceState(p)%p(mySource)%dotstate(1:mySizeSourceDotState,c) &
* crystallite_subdt(g,i,e)
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP ENDDO
doxygen comments
2013-02-22 04:38:36 +05:30
! --- STATE JUMP ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_stateJump(g,i,e)
!$OMP FLUSH(crystallite_todo)
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- UPDATE DEPENDENT STATES (EULER INTEGRATION) ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
if (crystallite_todo(g,i,e)) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
!***dirty way to pass orientations to constitutive_microstructure
call constitutive_microstructure(crystallite_orientation, &
crystallite_Fe(1:3,1:3,g,i,e), &
recast power law and viscous dot state variables as derived quantities using analytical solutions of the evolution equation
2014-11-29 01:36:24 +05:30
crystallite_Fp(1:3,1:3,g,i,e), &
name conflict
2015-09-10 03:22:00 +05:30
g, i, e) ! update dependent state variables to be consistent with basic states
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP END PARALLEL
more work on the new state
2014-05-27 20:16:03 +05:30
endif integrationMode
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- STRESS INTEGRATION (EULER INTEGRATION) ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP PARALLEL DO
name conflict
2015-09-10 03:22:00 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_integrateStress(g,i,e)
!$OMP FLUSH(crystallite_todo)
name conflict
2015-09-10 03:22:00 +05:30
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP CRITICAL (checkTodo)
name conflict
2015-09-10 03:22:00 +05:30
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP END CRITICAL (checkTodo)
endif
endif
enddo; enddo; enddo
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP END PARALLEL DO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
if (numerics_integrationMode == 1_pInt) then
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!$OMP PARALLEL
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
! --- DOT STATE (HEUN METHOD) ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
if (crystallite_todo(g,i,e)) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
call constitutive_collectDotState(crystallite_Tstar_v(1:6,g,i,e), &
constitutive dot state now takes Lp which is needed to the thermal dot state. thermal problems should be working now
2014-09-27 02:19:25 +05:30
crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
crystallite_Fp, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_subdt(g,i,e), crystallite_subFrac, g,i,e)
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
name conflict
2015-09-10 03:22:00 +05:30
!$OMP DO PRIVATE(p,c,NaN)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
name conflict
2015-09-10 03:22:00 +05:30
NaN = any(prec_isNaN(plasticState(p)%dotState(:,c)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
name conflict
2015-09-10 03:22:00 +05:30
NaN = NaN .or. any(prec_isNaN(sourceState(p)%p(mySource)%dotState(:,c)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
name conflict
2015-09-10 03:22:00 +05:30
if (NaN) then ! NaN occured in any dotState
more work on the new state
2014-05-27 20:16:03 +05:30
if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
else ! if broken local...
crystallite_todo(g,i,e) = .false. ! ... skip this one next time
endif
endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
! --- ERROR ESTIMATE FOR STATE (HEUN METHOD) ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP SINGLE
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
relPlasticStateResiduum = 0.0_pReal
relSourceStateResiduum = 0.0_pReal
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP END SINGLE
more work on the new state
2014-05-27 20:16:03 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP DO PRIVATE(mySizePlasticDotState,mySizeSourceDotState,converged,p,c,s)
more work on the new state
2014-05-27 20:16:03 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
doxygen comments
2013-02-22 04:38:36 +05:30
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
more work on the new state
2014-05-27 20:16:03 +05:30
! --- contribution of heun step to absolute residui ---
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
plasticStateResiduum(1:mySizePlasticDotState,g,i,e) = &
plasticStateResiduum(1:mySizePlasticDotState,g,i,e) &
+ 0.5_pReal * plasticState(p)%dotState(:,c) &
* crystallite_subdt(g,i,e) ! contribution to absolute residuum in state
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceStateResiduum(1:mySizeSourceDotState,mySource,g,i,e) = &
sourceStateResiduum(1:mySizeSourceDotState,mySource,g,i,e) &
+ 0.5_pReal * sourceState(p)%p(mySource)%dotState(:,c) &
* crystallite_subdt(g,i,e) ! contribution to absolute residuum in state
enddo
!$OMP FLUSH(plasticStateResiduum)
!$OMP FLUSH(sourceStateResiduum)
add pheno+ module in
2015-10-14 00:22:01 +05:30
! --- relative residui ---
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
forall (s = 1_pInt:mySizePlasticDotState, abs(plasticState(p)%dotState(s,c)) > 0.0_pReal) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
relPlasticStateResiduum(s,g,i,e) = &
plasticStateResiduum(s,g,i,e) / plasticState(p)%dotState(s,c)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
forall (s = 1_pInt:mySizeSourceDotState,abs(sourceState(p)%p(mySource)%dotState(s,c)) > 0.0_pReal) &
relSourceStateResiduum(s,mySource,g,i,e) = &
sourceStateResiduum(s,mySource,g,i,e) / sourceState(p)%p(mySource)%dotState(s,c)
enddo
!$OMP FLUSH(relPlasticStateResiduum)
!$OMP FLUSH(relSourceStateResiduum)
add pheno+ module in
2015-10-14 00:22:01 +05:30
#ifndef _OPENMP
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
.and. ((e == debug_e .and. i == debug_i .and. g == debug_g)&
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
write(6,'(a,i8,1x,i2,1x,i3,/)') '<< CRYST >> updateState at el ip g ',e,i,g
write(6,'(a,/,(12x,12(f12.1,1x)),/)') '<< CRYST >> absolute residuum tolerance', &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticStateResiduum(1:mySizePlasticDotState,g,i,e) / plasticState(p)%aTolState(1:mySizePlasticDotState)
more work on the new state
2014-05-27 20:16:03 +05:30
write(6,'(a,/,(12x,12(f12.1,1x)),/)') '<< CRYST >> relative residuum tolerance', &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
relPlasticStateResiduum(1:mySizePlasticDotState,g,i,e) / rTol_crystalliteState
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> dotState', plasticState(p)%dotState(1:mySizePlasticDotState,c) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
- 2.0_pReal * plasticStateResiduum(1:mySizePlasticDotState,g,i,e) / crystallite_subdt(g,i,e) ! calculate former dotstate from higher order solution and state residuum
general polishing; simplification of RKCK45 dotstate assembly for different stages.
2014-09-03 01:41:57 +05:30
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> new state', plasticState(p)%state(1:mySizePlasticDotState,c)
more work on the new state
2014-05-27 20:16:03 +05:30
endif
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
#endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- converged ? ---
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
converged = all(abs(relPlasticStateResiduum(1:mySizePlasticDotState,g,i,e)) < &
rTol_crystalliteState .or. &
abs(plasticStateResiduum(1:mySizePlasticDotState,g,i,e)) < &
plasticState(p)%aTolState(1:mySizePlasticDotState))
add pheno+ module in
2015-10-14 00:22:01 +05:30
do mySource = 1_pInt, phase_Nsources(p)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
converged = converged .and. &
all(abs(relSourceStateResiduum(1:mySizeSourceDotState,mySource,g,i,e)) < &
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
rTol_crystalliteState .or. &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
abs(sourceStateResiduum(1:mySizeSourceDotState,mySource,g,i,e)) < &
sourceState(p)%p(mySource)%aTolState(1:mySizeSourceDotState))
enddo
if (converged) then
more work on the new state
2014-05-27 20:16:03 +05:30
crystallite_converged(g,i,e) = .true. ! ... converged per definitionem
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
!$OMP CRITICAL (distributionState)
debug_StateLoopDistribution(2,numerics_integrationMode) = &
debug_StateLoopDistribution(2,numerics_integrationMode) + 1_pInt
!$OMP END CRITICAL (distributionState)
endif
endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP END PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
elseif (numerics_integrationMode > 1) then ! stiffness calculation
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP PARALLEL DO
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
crystallite_converged(g,i,e) = .true. ! ... converged per definitionem
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
!$OMP CRITICAL (distributionState)
debug_StateLoopDistribution(2,numerics_integrationMode) = &
debug_StateLoopDistribution(2,numerics_integrationMode) + 1_pInt
!$OMP END CRITICAL (distributionState)
endif
endif
enddo; enddo; enddo
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP END PARALLEL DO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- NONLOCAL CONVERGENCE CHECK ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt) &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i8,a,i2,/)') '<< CRYST >> ', count(crystallite_converged(:,:,:)), ' grains converged'
more work on the new state
2014-05-27 20:16:03 +05:30
if ((.not. singleRun) .and. any(.not. crystallite_converged .and. .not. crystallite_localPlasticity)) & ! any non-local not yet converged (or broken)...
debug now reporting elFE in addition to elCP
2014-08-27 21:24:11 +05:30
crystallite_converged = crystallite_converged .and. crystallite_localPlasticity ! ...restart all non-local as not converged
more work on the new state
2014-05-27 20:16:03 +05:30
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
end subroutine crystallite_integrateStateAdaptiveEuler
* now able to choose method for state integration (integrator and integratorStiffness in numerics.config); standard is "Fixed Point Iteration", which is basically the same as before; others available are "Explicit Euler", "AdaptiveEuler", "Classical Runge-Kutta" and "Runge-Kutta Cash-Karp" * now remembering stiffness similar to how we do it for Lp etc.; avoids undefined stiffness values for nonconverged stiffness calculation * non-local stuff: * changed non-local kinetics (Gilman2002) * enforce zero shearrate for overall carrrier density below relevant density * enforce zero density for those states that become negative and were below relevant density before * dislocation velocity is not limited by V^(1/3) / dt anymore
2010-10-01 17:48:49 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
!> @brief integrate stress, and state with 1st order explicit Euler method
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
subroutine crystallite_integrateStateEuler()
improved NaN checks
2015-04-13 15:32:52 +05:30
use prec, only: &
prec_isNaN
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
use debug, only: &
debug_level, &
debug_crystallite, &
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
corrected buggy previous commit
2015-04-21 20:03:38 +05:30
debug_e, &
debug_i, &
debug_g, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
debug_StateLoopDistribution
use numerics, only: &
numerics_integrationMode, &
numerics_timeSyncing
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
use FEsolving, only: &
FEsolving_execElem, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
FEsolving_execIP
use mesh, only: &
mesh_element, &
mesh_NcpElems
use material, only: &
more work on the new state
2014-05-27 20:16:03 +05:30
plasticState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
sourceState, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
phase_Nsources, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
homogenization_Ngrains
use constitutive, only: &
more work on the new state
2014-05-27 20:16:03 +05:30
constitutive_collectDotState, &
moved mappings for new state layout to material
2014-06-23 00:28:29 +05:30
constitutive_microstructure
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
implicit none
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt) :: &
e, & ! element index in element loop
i, & ! integration point index in ip loop
g, & ! grain index in grain loop
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
p, & ! phase loop
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
c, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySource, &
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
mySizePlasticDotState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizeSourceDotState
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt), dimension(2) :: &
eIter ! bounds for element iteration
integer(pInt), dimension(2,mesh_NcpElems) :: &
iIter, & ! bounds for ip iteration
gIter ! bounds for grain iteration
logical :: &
name conflict
2015-09-10 03:22:00 +05:30
NaN, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
singleRun ! flag indicating computation for single (g,i,e) triple
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
eIter = FEsolving_execElem(1:2)
do e = eIter(1),eIter(2)
iIter(1:2,e) = FEsolving_execIP(1:2,e)
gIter(1:2,e) = [ 1_pInt,homogenization_Ngrains(mesh_element(3,e))]
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
fixed out of range bug introduced with singleRun changes in rev. 2356
2013-04-30 17:44:07 +05:30
singleRun = (eIter(1) == eIter(2) .and. iIter(1,eIter(1)) == iIter(2,eIter(2)))
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
if (numerics_integrationMode == 1_pInt) then
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
! --- DOT STATE ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
call constitutive_collectDotState(crystallite_Tstar_v(1:6,g,i,e), &
constitutive dot state now takes Lp which is needed to the thermal dot state. thermal problems should be working now
2014-09-27 02:19:25 +05:30
crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
crystallite_Fp, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_subdt(g,i,e), crystallite_subFrac, g,i,e)
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
name conflict
2015-09-10 03:22:00 +05:30
!$OMP DO PRIVATE(p,c,NaN)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
c = phasememberAt(g,i,e)
p = phaseAt(g,i,e)
name conflict
2015-09-10 03:22:00 +05:30
NaN = any(prec_isNaN(plasticState(p)%dotState(:,c)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
name conflict
2015-09-10 03:22:00 +05:30
NaN = NaN .or. any(prec_isNaN(sourceState(p)%p(mySource)%dotState(:,c)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
name conflict
2015-09-10 03:22:00 +05:30
if (NaN) then ! NaN occured in any dotState
more work on the new state
2014-05-27 20:16:03 +05:30
if (.not. crystallite_localPlasticity(g,i,e) .and. .not. numerics_timeSyncing) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
else ! if broken local...
crystallite_todo(g,i,e) = .false. ! ... skip this one next time
endif
endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
! --- UPDATE STATE ---
add pheno+ module in
2015-10-14 00:22:01 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP DO PRIVATE(mySizePlasticDotState,mySizeSourceDotState,p,c)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState(p)%state( 1:mySizePlasticDotState,c) = &
plasticState(p)%state( 1:mySizePlasticDotState,c) &
+ plasticState(p)%dotState(1:mySizePlasticDotState,c) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
* crystallite_subdt(g,i,e)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceState(p)%p(mySource)%state( 1:mySizeSourceDotState,c) = &
sourceState(p)%p(mySource)%state( 1:mySizeSourceDotState,c) &
+ sourceState(p)%p(mySource)%dotState(1:mySizeSourceDotState,c) &
* crystallite_subdt(g,i,e)
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
#ifndef _OPENMP
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
.and. ((e == debug_e .and. i == debug_i .and. g == debug_g) &
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
write(6,'(a,i8,1x,i2,1x,i3,/)') '<< CRYST >> update state at el ip g ',e,i,g
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> dotState', plasticState(p)%dotState(1:mySizePlasticDotState,c)
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> new state', plasticState(p)%state (1:mySizePlasticDotState,c)
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
endif
#endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- STATE JUMP ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
name conflict
2015-09-10 03:22:00 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_stateJump(g,i,e)
!$OMP FLUSH(crystallite_todo)
name conflict
2015-09-10 03:22:00 +05:30
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e) & ! if broken non-local...
doxygen comments
2013-02-22 04:38:36 +05:30
.and. .not. numerics_timeSyncing) then
!$OMP CRITICAL (checkTodo)
name conflict
2015-09-10 03:22:00 +05:30
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP END CRITICAL (checkTodo)
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- UPDATE DEPENDENT STATES ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
!***dirty way to pass orientations to constitutive_microstructure
call constitutive_microstructure(crystallite_orientation, &
crystallite_Fe(1:3,1:3,g,i,e), &
recast power law and viscous dot state variables as derived quantities using analytical solutions of the evolution equation
2014-11-29 01:36:24 +05:30
crystallite_Fp(1:3,1:3,g,i,e), &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
g, i, e) ! update dependent state variables to be consistent with basic states
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
enddo; enddo; enddo
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP ENDDO
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP END PARALLEL
doxygen comments
2013-02-22 04:38:36 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP PARALLEL
doxygen comments
2013-02-22 04:38:36 +05:30
! --- STRESS INTEGRATION ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_integrateStress(g,i,e)
!$OMP FLUSH(crystallite_todo)
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e) & ! if broken non-local...
.and. .not. numerics_timeSyncing) then
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif
Depending on which state integrator one uses for the stiffness calculation, the initial state has to be chosen accordingly: e.g. for FPI choose last converged state, but for explicit RK choose converged state from start of increment (in case of explicit euler no state integration at all, but only stress integration). For this purpose we also need to remember "Fe" which now follows the cutbacking procedure as it is used for "Fp".
2011-11-04 18:14:50 +05:30
enddo; enddo; enddo
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- SET CONVERGENCE FLAG ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then
crystallite_converged(g,i,e) = .true. ! if still "to do" then converged per definitionem
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
!$OMP CRITICAL (distributionState)
debug_StateLoopDistribution(1,numerics_integrationMode) = &
debug_StateLoopDistribution(1,numerics_integrationMode) + 1_pInt
!$OMP END CRITICAL (distributionState)
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP END PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- CHECK NON-LOCAL CONVERGENCE ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
if (.not. singleRun) then ! if not requesting Integration of just a single IP
doxygen comments
2013-02-22 04:38:36 +05:30
if (any(.not. crystallite_converged .and. .not. crystallite_localPlasticity) & ! any non-local not yet converged (or broken)...
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
.and. .not. numerics_timeSyncing) &
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_converged = crystallite_converged .and. crystallite_localPlasticity ! ...restart all non-local as not converged
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
end subroutine crystallite_integrateStateEuler
* now able to choose method for state integration (integrator and integratorStiffness in numerics.config); standard is "Fixed Point Iteration", which is basically the same as before; others available are "Explicit Euler", "AdaptiveEuler", "Classical Runge-Kutta" and "Runge-Kutta Cash-Karp" * now remembering stiffness similar to how we do it for Lp etc.; avoids undefined stiffness values for nonconverged stiffness calculation * non-local stuff: * changed non-local kinetics (Gilman2002) * enforce zero shearrate for overall carrrier density below relevant density * enforce zero density for those states that become negative and were below relevant density before * dislocation velocity is not limited by V^(1/3) / dt anymore
2010-10-01 17:48:49 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!> @brief integrate stress, state with adaptive 1st order explicit Euler method
!> using Fixed Point Iteration to adapt the stepsize
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
subroutine crystallite_integrateStateFPI()
improved NaN checks
2015-04-13 15:32:52 +05:30
use prec, only: &
prec_isNaN
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
use debug, only: &
corrected buggy previous commit
2015-04-21 20:03:38 +05:30
debug_e, &
debug_i, &
debug_g, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
debug_level,&
debug_crystallite, &
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
debug_StateLoopDistribution
use numerics, only: &
nState, &
numerics_integrationMode, &
rTol_crystalliteState
use FEsolving, only: &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
FEsolving_execElem, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
FEsolving_execIP
use mesh, only: &
mesh_element, &
mesh_NcpElems
use material, only: &
more work on the new state
2014-05-27 20:16:03 +05:30
plasticState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
sourceState, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
phase_Nsources, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
homogenization_Ngrains
use constitutive, only: &
more work on the new state
2014-05-27 20:16:03 +05:30
constitutive_collectDotState, &
constitutive_microstructure, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
constitutive_plasticity_maxSizeDotState, &
constitutive_source_maxSizeDotState
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
implicit none
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
integer(pInt) :: &
NiterationState, & !< number of iterations in state loop
e, & !< element index in element loop
i, & !< integration point index in ip loop
g, & !< grain index in grain loop
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
p, &
c, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySource, &
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
mySizePlasticDotState, & ! size of dot states
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizeSourceDotState
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt), dimension(2) :: &
eIter ! bounds for element iteration
integer(pInt), dimension(2,mesh_NcpElems) :: &
iIter, & ! bounds for ip iteration
gIter ! bounds for grain iteration
real(pReal) :: &
dot_prod12, &
dot_prod22, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticStateDamper, & ! damper for integration of state
sourceStateDamper
real(pReal), dimension(constitutive_plasticity_maxSizeDotState) :: &
plasticStateResiduum, &
tempPlasticState
real(pReal), dimension(constitutive_source_maxSizeDotState, maxval(phase_Nsources)) :: &
sourceStateResiduum, & ! residuum from evolution in micrstructure
tempSourceState
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
logical :: &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
converged, &
name conflict
2015-09-10 03:22:00 +05:30
NaN, &
crystallite_integrateStateFPI: convergence check always ran about all e,i,g; now checking only those specified in FEsolving_execElem, FEsolving_execIP
2014-01-22 00:15:41 +05:30
singleRun, & ! flag indicating computation for single (g,i,e) triple
doneWithIntegration
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
simplified logic for single run, now not checking for extra arguments but simply checking if start and end elem/IP are the same
2013-04-26 18:53:36 +05:30
eIter = FEsolving_execElem(1:2)
do e = eIter(1),eIter(2)
iIter(1:2,e) = FEsolving_execIP(1:2,e)
gIter(1:2,e) = [ 1_pInt,homogenization_Ngrains(mesh_element(3,e))]
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
fixed out of range bug introduced with singleRun changes in rev. 2356
2013-04-30 17:44:07 +05:30
singleRun = (eIter(1) == eIter(2) .and. iIter(1,eIter(1)) == iIter(2,eIter(2)))
more work on the new state
2014-05-27 20:16:03 +05:30
!--------------------------------------------------------------------------------------------------
! initialize dotState
if (.not. singleRun) then
add pheno+ module in
2015-10-14 00:22:01 +05:30
forall(p = 1_pInt:size(plasticState))
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
plasticState(p)%previousDotState = 0.0_pReal
more work on the new state
2014-05-27 20:16:03 +05:30
plasticState(p)%previousDotState2 = 0.0_pReal
end forall
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do p = 1_pInt, size(sourceState); do mySource = 1_pInt, phase_Nsources(p)
sourceState(p)%p(mySource)%previousDotState = 0.0_pReal
sourceState(p)%p(mySource)%previousDotState2 = 0.0_pReal
enddo; enddo
more work on the new state
2014-05-27 20:16:03 +05:30
else
e = eIter(1)
i = iIter(1,e)
fixed small bug in newstate
2014-07-10 14:17:00 +05:30
do g = gIter(1,e), gIter(2,e)
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
add pheno+ module in
2015-10-14 00:22:01 +05:30
plasticState(p)%previousDotState (:,c) = 0.0_pReal
plasticState(p)%previousDotState2(:,c) = 0.0_pReal
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
add pheno+ module in
2015-10-14 00:22:01 +05:30
sourceState(p)%p(mySource)%previousDotState (:,c) = 0.0_pReal
sourceState(p)%p(mySource)%previousDotState2(:,c) = 0.0_pReal
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
enddo
more work on the new state
2014-05-27 20:16:03 +05:30
enddo
endif
doxygen comments
2013-02-22 04:38:36 +05:30
! --+>> PREGUESS FOR STATE <<+--
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
! --- DOT STATES ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
!$OMP PARALLEL
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e)) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
call constitutive_collectDotState(crystallite_Tstar_v(1:6,g,i,e), &
constitutive dot state now takes Lp which is needed to the thermal dot state. thermal problems should be working now
2014-09-27 02:19:25 +05:30
crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
crystallite_Fp, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_subdt(g,i,e), crystallite_subFrac, g,i,e)
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
remved bug in phenopower law state initialization and a minor change in Makefile
2014-07-07 19:51:58 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP ENDDO
name conflict
2015-09-10 03:22:00 +05:30
!$OMP DO PRIVATE(p,c,NaN)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
name conflict
2015-09-10 03:22:00 +05:30
NaN = any(prec_isNaN(plasticState(p)%dotState(:,c)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
name conflict
2015-09-10 03:22:00 +05:30
NaN = NaN .or. any(prec_isNaN(sourceState(p)%p(mySource)%dotState(:,c)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
name conflict
2015-09-10 03:22:00 +05:30
if (NaN) then ! NaN occured in any dotState
more work on the new state
2014-05-27 20:16:03 +05:30
if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken is a non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals done (and broken)
!$OMP END CRITICAL (checkTodo)
else ! broken one was local...
crystallite_todo(g,i,e) = .false. ! ... done (and broken)
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
more work on the new state
2014-05-27 20:16:03 +05:30
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
! --- UPDATE STATE ---
add pheno+ module in
2015-10-14 00:22:01 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP DO PRIVATE(mySizePlasticDotState,mySizeSourceDotState,p,c)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState(p)%state(1:mySizePlasticDotState,c) = &
plasticState(p)%subState0(1:mySizePlasticDotState,c) &
+ plasticState(p)%dotState (1:mySizePlasticDotState,c) &
* crystallite_subdt(g,i,e)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceState(p)%p(mySource)%state(1:mySizeSourceDotState,c) = &
sourceState(p)%p(mySource)%subState0(1:mySizeSourceDotState,c) &
+ sourceState(p)%p(mySource)%dotState (1:mySizeSourceDotState,c) &
* crystallite_subdt(g,i,e)
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo; enddo; enddo
!$OMP ENDDO
more work on the new state
2014-05-27 20:16:03 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP END PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --+>> STATE LOOP <<+--
disabled multiphysics output because homogenization output was not accessible anymore
2014-07-09 19:04:33 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
NiterationState = 0_pInt
crystallite_integrateStateFPI: convergence check always ran about all e,i,g; now checking only those specified in FEsolving_execElem, FEsolving_execIP
2014-01-22 00:15:41 +05:30
doneWithIntegration = .false.
crystalliteLooping: do while (.not. doneWithIntegration .and. NiterationState < nState)
doxygen comments
2013-02-22 04:38:36 +05:30
NiterationState = NiterationState + 1_pInt
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- UPDATE DEPENDENT STATES ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
!$OMP DO PRIVATE(p,c)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) &
add pheno+ module in
2015-10-14 00:22:01 +05:30
!***dirty way to pass orientations to constitutive_micrsotructure
call constitutive_microstructure(crystallite_orientation, &
crystallite_Fe(1:3,1:3,g,i,e), &
recast power law and viscous dot state variables as derived quantities using analytical solutions of the evolution equation
2014-11-29 01:36:24 +05:30
crystallite_Fp(1:3,1:3,g,i,e), &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
g, i, e) ! update dependent state variables to be consistent with basic states
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
add pheno+ module in
2015-10-14 00:22:01 +05:30
plasticState(p)%previousDotState2(:,c) = plasticState(p)%previousDotState(:,c)
plasticState(p)%previousDotState (:,c) = plasticState(p)%dotState(:,c)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
add pheno+ module in
2015-10-14 00:22:01 +05:30
sourceState(p)%p(mySource)%previousDotState2(:,c) = sourceState(p)%p(mySource)%previousDotState(:,c)
sourceState(p)%p(mySource)%previousDotState (:,c) = sourceState(p)%p(mySource)%dotState(:,c)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
enddo
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- STRESS INTEGRATION ---
disabled multiphysics output because homogenization output was not accessible anymore
2014-07-09 19:04:33 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then
crystallite_todo(g,i,e) = crystallite_integrateStress(g,i,e)
!$OMP FLUSH(crystallite_todo)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
if (.not. crystallite_todo(g,i,e) .and. .not. crystallite_localPlasticity(g,i,e)) then ! broken non-local...
!$OMP CRITICAL (checkTodo)
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ... then all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
more work on the new state
2014-05-27 20:16:03 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP SINGLE
!$OMP CRITICAL (write2out)
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt) &
doxygen comments
2013-02-22 04:38:36 +05:30
write(6,'(a,i8,a)') '<< CRYST >> ', count(crystallite_todo(:,:,:)),' grains todo after stress integration'
!$OMP END CRITICAL (write2out)
!$OMP END SINGLE
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
! --- DOT STATE ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
call constitutive_collectDotState(crystallite_Tstar_v(1:6,g,i,e), &
constitutive dot state now takes Lp which is needed to the thermal dot state. thermal problems should be working now
2014-09-27 02:19:25 +05:30
crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
crystallite_Fp, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_subdt(g,i,e), crystallite_subFrac, g,i,e)
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
disabled multiphysics output because homogenization output was not accessible anymore
2014-07-09 19:04:33 +05:30
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
!$OMP DO PRIVATE(p,c)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
name conflict
2015-09-10 03:22:00 +05:30
NaN = any(prec_isNaN(plasticState(p)%dotState(:,c)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
name conflict
2015-09-10 03:22:00 +05:30
NaN = NaN .or. any(prec_isNaN(sourceState(p)%p(mySource)%dotState(:,c)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
name conflict
2015-09-10 03:22:00 +05:30
if (NaN) then ! NaN occured in any dotState
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
crystallite_todo(g,i,e) = .false. ! ... skip me next time
if (.not. crystallite_localPlasticity(g,i,e)) then ! if me is non-local...
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP CRITICAL (checkTodo)
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
more work on the new state
2014-05-27 20:16:03 +05:30
!$OMP END CRITICAL (checkTodo)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
endif
endif
doxygen comments
2013-02-22 04:38:36 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
more work on the new state
2014-05-27 20:16:03 +05:30
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
! --- UPDATE STATE ---
disabled multiphysics output because homogenization output was not accessible anymore
2014-07-09 19:04:33 +05:30
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
!$OMP DO PRIVATE(dot_prod12,dot_prod22, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
!$OMP& mySizePlasticDotState,mySizeSourceDotState, &
!$OMP& plasticStateResiduum,sourceStateResiduum, &
!$OMP& plasticStatedamper,sourceStateDamper, &
!$OMP& tempPlasticState,tempSourceState,converged,p,c)
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
doxygen comments
2013-02-22 04:38:36 +05:30
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
p = phaseAt(g,i,e)
c = phasememberAt(g,i,e)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
dot_prod12 = dot_product( plasticState(p)%dotState (:,c) &
- plasticState(p)%previousDotState (:,c), &
plasticState(p)%previousDotState (:,c) &
- plasticState(p)%previousDotState2(:,c))
dot_prod22 = dot_product( plasticState(p)%previousDotState (:,c) &
- plasticState(p)%previousDotState2(:,c), &
plasticState(p)%previousDotState (:,c) &
- plasticState(p)%previousDotState2(:,c))
more work on the new state
2014-05-27 20:16:03 +05:30
if ( dot_prod22 > 0.0_pReal &
.and. ( dot_prod12 < 0.0_pReal &
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
.or. dot_product(plasticState(p)%dotState(:,c), &
plasticState(p)%previousDotState(:,c)) < 0.0_pReal) ) then
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticStateDamper = 0.75_pReal + 0.25_pReal * tanh(2.0_pReal + 4.0_pReal * dot_prod12 / dot_prod22)
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
else
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticStateDamper = 1.0_pReal
remved bug in phenopower law state initialization and a minor change in Makefile
2014-07-07 19:51:58 +05:30
endif
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
! --- get residui ---
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizePlasticDotState = plasticState(p)%sizeDotState
plasticStateResiduum(1:mySizePlasticDotState) = &
plasticState(p)%state(1:mySizePlasticDotState,c) &
- plasticState(p)%subState0(1:mySizePlasticDotState,c) &
- ( plasticState(p)%dotState(1:mySizePlasticDotState,c) * plasticStateDamper &
+ plasticState(p)%previousDotState(1:mySizePlasticDotState,c) &
* (1.0_pReal - plasticStateDamper)) * crystallite_subdt(g,i,e)
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
! --- correct state with residuum ---
tempPlasticState(1:mySizePlasticDotState) = &
plasticState(p)%state(1:mySizePlasticDotState,c) &
- plasticStateResiduum(1:mySizePlasticDotState) ! need to copy to local variable, since we cant flush a pointer in openmp
add pheno+ module in
2015-10-14 00:22:01 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
! --- store corrected dotState --- (cannot do this before state update, because not sure how to flush pointers in openmp)
added vacancy state integrators
2014-12-08 16:15:12 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState(p)%dotState(:,c) = plasticState(p)%dotState(:,c) * plasticStateDamper &
+ plasticState(p)%previousDotState(:,c) &
* (1.0_pReal - plasticStateDamper)
add pheno+ module in
2015-10-14 00:22:01 +05:30
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
dot_prod12 = dot_product( sourceState(p)%p(mySource)%dotState (:,c) &
- sourceState(p)%p(mySource)%previousDotState (:,c), &
sourceState(p)%p(mySource)%previousDotState (:,c) &
- sourceState(p)%p(mySource)%previousDotState2(:,c))
dot_prod22 = dot_product( sourceState(p)%p(mySource)%previousDotState (:,c) &
- sourceState(p)%p(mySource)%previousDotState2(:,c), &
sourceState(p)%p(mySource)%previousDotState (:,c) &
- sourceState(p)%p(mySource)%previousDotState2(:,c))
if ( dot_prod22 > 0.0_pReal &
.and. ( dot_prod12 < 0.0_pReal &
.or. dot_product(sourceState(p)%p(mySource)%dotState(:,c), &
sourceState(p)%p(mySource)%previousDotState(:,c)) < 0.0_pReal) ) then
sourceStateDamper = 0.75_pReal + 0.25_pReal * tanh(2.0_pReal + 4.0_pReal * dot_prod12 / dot_prod22)
else
sourceStateDamper = 1.0_pReal
endif
more work on the new state
2014-05-27 20:16:03 +05:30
! --- get residui ---
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceStateResiduum(1:mySizeSourceDotState,mySource) = &
sourceState(p)%p(mySource)%state(1:mySizeSourceDotState,c) &
- sourceState(p)%p(mySource)%subState0(1:mySizeSourceDotState,c) &
- ( sourceState(p)%p(mySource)%dotState(1:mySizeSourceDotState,c) * sourceStateDamper &
+ sourceState(p)%p(mySource)%previousDotState(1:mySizeSourceDotState,c) &
* (1.0_pReal - sourceStateDamper)) * crystallite_subdt(g,i,e)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
! --- correct state with residuum ---
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
tempSourceState(1:mySizeSourceDotState,mySource) = &
sourceState(p)%p(mySource)%state(1:mySizeSourceDotState,c) &
- sourceStateResiduum(1:mySizeSourceDotState,mySource) ! need to copy to local variable, since we cant flush a pointer in openmp
! --- store corrected dotState --- (cannot do this before state update, because not sure how to flush pointers in openmp)
sourceState(p)%p(mySource)%dotState(:,c) = &
sourceState(p)%p(mySource)%dotState(:,c) * sourceStateDamper &
+ sourceState(p)%p(mySource)%previousDotState(:,c) &
* (1.0_pReal - sourceStateDamper)
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
instantaneous jumps in the state by constitutive_deltaState are now incorporated for all state integrators. still they (should) not influence the result, since all constitutive laws simply return zero for the deltaState
2012-05-17 20:55:21 +05:30
#ifndef _OPENMP
increased debug threshold for some outputs (decreased verbosity level at "basic")
2014-05-15 18:31:54 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
doxygen comments
2013-02-22 04:38:36 +05:30
.and. ((e == debug_e .and. i == debug_i .and. g == debug_g) &
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i8,1x,i2,1x,i3,/)') '<< CRYST >> update state at el ip g ',e,i,g
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
write(6,'(a,f6.1,/)') '<< CRYST >> plasticstatedamper ',plasticStatedamper
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> plastic state residuum',plasticStateResiduum(1:mySizePlasticDotState)
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> new state',tempPlasticState(1:mySizePlasticDotState)
doxygen comments
2013-02-22 04:38:36 +05:30
endif
instantaneous jumps in the state by constitutive_deltaState are now incorporated for all state integrators. still they (should) not influence the result, since all constitutive laws simply return zero for the deltaState
2012-05-17 20:55:21 +05:30
#endif
more work on the new state
2014-05-27 20:16:03 +05:30
! --- converged ? ---
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
converged = all( abs(plasticStateResiduum(1:mySizePlasticDotState)) < &
plasticState(p)%aTolState(1:mySizePlasticDotState) &
.or. abs(plasticStateResiduum(1:mySizePlasticDotState)) < &
rTol_crystalliteState * abs(tempPlasticState(1:mySizePlasticDotState)))
add pheno+ module in
2015-10-14 00:22:01 +05:30
do mySource = 1_pInt, phase_Nsources(p)
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
converged = converged .and. &
all( abs(sourceStateResiduum(1:mySizeSourceDotState,mySource)) < &
sourceState(p)%p(mySource)%aTolState(1:mySizeSourceDotState) &
.or. abs(sourceStateResiduum(1:mySizeSourceDotState,mySource)) < &
add pheno+ module in
2015-10-14 00:22:01 +05:30
rTol_crystalliteState * abs(tempSourceState(1:mySizeSourceDotState,mySource)))
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
enddo
if (converged) then
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
crystallite_converged(g,i,e) = .true. ! ... converged per definition
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
!$OMP CRITICAL (distributionState)
debug_StateLoopDistribution(NiterationState,numerics_integrationMode) = &
debug_StateLoopDistribution(NiterationState,numerics_integrationMode) + 1_pInt
!$OMP END CRITICAL (distributionState)
endif
endif
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
plasticState(p)%state(1:mySizePlasticDotState,c) = &
tempPlasticState(1:mySizePlasticDotState)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDotState = sourceState(p)%p(mySource)%sizeDotState
sourceState(p)%p(mySource)%state(1:mySizeSourceDotState,c) = &
tempSourceState(1:mySizeSourceDotState,mySource)
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo
more work on the new state
2014-05-27 20:16:03 +05:30
endif
doxygen comments
2013-02-22 04:38:36 +05:30
enddo; enddo; enddo
!$OMP ENDDO
! --- STATE JUMP ---
disabled multiphysics output because homogenization output was not accessible anymore
2014-07-09 19:04:33 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP DO
do e = eIter(1),eIter(2); do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
!$OMP FLUSH(crystallite_todo)
if (crystallite_todo(g,i,e) .and. crystallite_converged(g,i,e)) then ! converged and still alive...
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
crystallite_todo(g,i,e) = crystallite_stateJump(g,i,e)
doxygen comments
2013-02-22 04:38:36 +05:30
!$OMP FLUSH(crystallite_todo)
if (.not. crystallite_todo(g,i,e)) then ! if state jump fails, then convergence is broken
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
crystallite_converged(g,i,e) = .false.
doxygen comments
2013-02-22 04:38:36 +05:30
if (.not. crystallite_localPlasticity(g,i,e)) then ! if broken non-local...
!$OMP CRITICAL (checkTodo)
crystallite_todo = crystallite_todo .and. crystallite_localPlasticity ! ...all non-locals skipped
!$OMP END CRITICAL (checkTodo)
endif
endif
endif
enddo; enddo; enddo
!$OMP ENDDO
!$OMP END PARALLEL
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
more work on the new state
2014-05-27 20:16:03 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt) &
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
write(6,'(a,i8,a,i2,/)') '<< CRYST >> ', count(crystallite_converged(:,:,:)), &
debug now reporting elFE in addition to elCP
2014-08-27 21:24:11 +05:30
' grains converged after state integration #', NiterationState
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- NON-LOCAL CONVERGENCE CHECK ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
if (.not. singleRun) then ! if not requesting Integration of just a single IP
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
if (any(.not. crystallite_converged .and. .not. crystallite_localPlasticity)) & ! any non-local not yet converged (or broken)...
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_converged = crystallite_converged .and. crystallite_localPlasticity ! ...restart all non-local as not converged
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt) then
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
write(6,'(a,i8,a)') '<< CRYST >> ', count(crystallite_converged(:,:,:)), &
' grains converged after non-local check'
write(6,'(a,i8,a,i2,/)') '<< CRYST >> ', count(crystallite_todo(:,:,:)), &
debug now reporting elFE in addition to elCP
2014-08-27 21:24:11 +05:30
' grains todo after state integration #', NiterationState
doxygen comments
2013-02-22 04:38:36 +05:30
endif
crystallite_integrateStateFPI: convergence check always ran about all e,i,g; now checking only those specified in FEsolving_execElem, FEsolving_execIP
2014-01-22 00:15:41 +05:30
! --- CHECK IF DONE WITH INTEGRATION ---
doneWithIntegration = .true.
elemLoop: do e = eIter(1),eIter(2)
do i = iIter(1,e),iIter(2,e); do g = gIter(1,e),gIter(2,e) ! iterate over elements, ips and grains
if (crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e)) then
doneWithIntegration = .false.
exit elemLoop
endif
enddo; enddo
enddo elemLoop
introduced plain mode (no ping pong) again and added test for MSC.MArc 2012 as prove that its working
2013-05-17 23:22:46 +05:30
enddo crystalliteLooping
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
end subroutine crystallite_integrateStateFPI
* now able to choose method for state integration (integrator and integratorStiffness in numerics.config); standard is "Fixed Point Iteration", which is basically the same as before; others available are "Explicit Euler", "AdaptiveEuler", "Classical Runge-Kutta" and "Runge-Kutta Cash-Karp" * now remembering stiffness similar to how we do it for Lp etc.; avoids undefined stiffness values for nonconverged stiffness calculation * non-local stuff: * changed non-local kinetics (Gilman2002) * enforce zero shearrate for overall carrrier density below relevant density * enforce zero density for those states that become negative and were below relevant density before * dislocation velocity is not limited by V^(1/3) / dt anymore
2010-10-01 17:48:49 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief calculates a jump in the state according to the current state and the current stress
removed delta state for J2 and phenopowerlaw when using new state
2014-06-17 12:24:49 +05:30
!> returns true, if state jump was successfull or not needed. false indicates NaN in delta state
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
logical function crystallite_stateJump(ipc,ip,el)
function statement is more clear
2015-09-10 18:31:33 +05:30
use prec, only: &
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
prec_isNaN, &
dNeq
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
use debug, only: &
corrected buggy previous commit
2015-04-21 20:03:38 +05:30
debug_level, &
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
debug_crystallite, &
debug_levelExtensive, &
corrected buggy previous commit
2015-04-21 20:03:38 +05:30
debug_levelSelective, &
debug_e, &
debug_i, &
debug_g
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
use material, only: &
more work on the new state
2014-05-27 20:16:03 +05:30
plasticState, &
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
sourceState, &
phase_Nsources, &
exchanged mappingConstitutive array for more descriptive "phaseAt and phasememberAt"
2016-01-15 05:49:44 +05:30
phaseAt, phasememberAt
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
use constitutive, only: &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
constitutive_collectDeltaState
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
implicit none
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt), intent(in):: &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
el, & ! element index
ip, & ! integration point index
ipc ! grain index
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt) :: &
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
c, &
p, &
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
mySource, &
mySizePlasticDeltaState, &
mySizeSourceDeltaState
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
c= phasememberAt(ipc,ip,el)
p = phaseAt(ipc,ip,el)
call constitutive_collectDeltaState(crystallite_Tstar_v(1:6,ipc,ip,el), crystallite_Fe(1:3,1:3,ipc,ip,el), ipc,ip,el)
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
mySizePlasticDeltaState = plasticState(p)%sizeDeltaState
function statement is more clear
2015-09-10 18:31:33 +05:30
if( any(prec_isNaN(plasticState(p)%deltaState(:,c)))) then ! NaN occured in deltaState
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
crystallite_stateJump = .false.
return
endif
plasticState(p)%state(1:mySizePlasticDeltaState,c) = plasticState(p)%state(1:mySizePlasticDeltaState,c) + &
plasticState(p)%deltaState(1:mySizePlasticDeltaState,c)
do mySource = 1_pInt, phase_Nsources(p)
mySizeSourceDeltaState = sourceState(p)%p(mySource)%sizeDeltaState
function statement is more clear
2015-09-10 18:31:33 +05:30
if( any(prec_isNaN(sourceState(p)%p(mySource)%deltaState(:,c)))) then ! NaN occured in deltaState
removed delta state for J2 and phenopowerlaw when using new state
2014-06-17 12:24:49 +05:30
crystallite_stateJump = .false.
return
endif
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
sourceState(p)%p(mySource)%state(1:mySizeSourceDeltaState,c) = &
sourceState(p)%p(mySource)%state(1:mySizeSourceDeltaState,c) + &
sourceState(p)%p(mySource)%deltaState(1:mySizeSourceDeltaState,c)
enddo
corrected linking: use PETSC MPI (when available) rather then system wide version. little polishing (e.g. debug output for new state)
2014-07-23 18:56:05 +05:30
new function stateJump, which takes care of immediate changes in the state (deltaState); this introduces discontinuities in the state evolution; therefore this is always and only once done after each integration step, so no evaluation of deltaState for intermediate steps of e.g. the Runge-Kutta integrator; otherwise integration becomes a pain without significant gain in accuracy deltaState now successfully tested for nonlocal model; was not correct for integrators 1,4,5 before
2012-06-06 20:41:30 +05:30
#ifndef _OPENMP
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
if (any(dNeq(plasticState(p)%deltaState(1:mySizePlasticDeltaState,c),0.0_pReal)) &
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
.and. iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
write(6,'(a,i8,1x,i2,1x,i3, /)') '<< CRYST >> update state at el ip ipc ',el,ip,ipc
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> deltaState', plasticState(p)%deltaState(1:mySizePlasticDeltaState,c)
write(6,'(a,/,(12x,12(e12.5,1x)),/)') '<< CRYST >> new state', plasticState(p)%state (1:mySizePlasticDeltaState,c)
removed delta state for J2 and phenopowerlaw when using new state
2014-06-17 12:24:49 +05:30
endif
changed up handling of delta states, and some bug fixes
2015-06-01 21:32:27 +05:30
#endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_stateJump = .true.
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
new function stateJump, which takes care of immediate changes in the state (deltaState); this introduces discontinuities in the state evolution; therefore this is always and only once done after each integration step, so no evaluation of deltaState for intermediate steps of e.g. the Runge-Kutta integrator; otherwise integration becomes a pain without significant gain in accuracy deltaState now successfully tested for nonlocal model; was not correct for integrators 1,4,5 before
2012-06-06 20:41:30 +05:30
end function crystallite_stateJump
named 99 representation according to other constitutive laws
2014-11-06 17:19:37 +05:30
added funtions to get averged properties at integration points.
2014-09-10 14:07:12 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief Map 2nd order tensor to reference config
!--------------------------------------------------------------------------------------------------
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
function crystallite_push33ToRef(ipc,ip,el, tensor33)
added funtions to get averged properties at integration points.
2014-09-10 14:07:12 +05:30
use math, only: &
corrections to crystallite_push33ToRef function
2015-08-03 16:37:19 +05:30
math_mul33x33, &
math_inv33, &
math_transpose33, &
math_EulerToR
use material, only: &
material_EulerAngles
added funtions to get averged properties at integration points.
2014-09-10 14:07:12 +05:30
implicit none
real(pReal), dimension(3,3) :: crystallite_push33ToRef
real(pReal), dimension(3,3), intent(in) :: tensor33
corrections to crystallite_push33ToRef function
2015-08-03 16:37:19 +05:30
real(pReal), dimension(3,3) :: T
added funtions to get averged properties at integration points.
2014-09-10 14:07:12 +05:30
integer(pInt), intent(in):: &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
el, & ! element index
ip, & ! integration point index
ipc ! grain index
added funtions to get averged properties at integration points.
2014-09-10 14:07:12 +05:30
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
T = math_mul33x33(math_EulerToR(material_EulerAngles(1:3,ipc,ip,el)), &
math_transpose33(math_inv33(crystallite_subF(1:3,1:3,ipc,ip,el))))
corrections to crystallite_push33ToRef function
2015-08-03 16:37:19 +05:30
crystallite_push33ToRef = math_mul33x33(math_transpose33(T),math_mul33x33(tensor33,T))
added funtions to get averged properties at integration points.
2014-09-10 14:07:12 +05:30
end function crystallite_push33ToRef
named 99 representation according to other constitutive laws
2014-11-06 17:19:37 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!> @brief calculation of stress (P) with time integration based on a residuum in Lp and
!> intermediate acceleration of the Newton-Raphson correction
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
logical function crystallite_integrateStress(&
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
ipc,& ! grain number
ip,& ! integration point number
el,& ! element number
doxygen comments
2013-02-22 04:38:36 +05:30
timeFraction &
)
write output information only for active crystallites. removed unused variables. fixed some real == 0 comparisons
2015-04-21 17:53:00 +05:30
use prec, only: pLongInt, &
function statement is more clear
2015-09-10 18:31:33 +05:30
tol_math_check, &
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
prec_isNaN, &
dEq
doxygen comments
2013-02-22 04:38:36 +05:30
use numerics, only: nStress, &
aTol_crystalliteStress, &
rTol_crystalliteStress, &
iJacoLpresiduum, &
numerics_integrationMode
use debug, only: debug_level, &
debug_crystallite, &
debug_levelBasic, &
debug_levelExtensive, &
debug_levelSelective, &
corrected buggy previous commit
2015-04-21 20:03:38 +05:30
debug_e, &
debug_i, &
debug_g, &
doxygen comments
2013-02-22 04:38:36 +05:30
debug_cumLpCalls, &
debug_cumLpTicks, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
debug_StressLoopLpDistribution, &
debug_StressLoopLiDistribution
doxygen comments
2013-02-22 04:38:36 +05:30
use constitutive, only: constitutive_LpAndItsTangent, &
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
constitutive_LiAndItsTangent, &
constitutive_TandItsTangent
doxygen comments
2013-02-22 04:38:36 +05:30
use math, only: math_mul33x33, &
math_mul33xx33, &
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
math_mul3333xx3333, &
doxygen comments
2013-02-22 04:38:36 +05:30
math_mul66x6, &
math_mul99x99, &
math_transpose33, &
math_inv33, &
math_invert, &
math_det33, &
math_I3, &
math_identity2nd, &
math_Mandel66to3333, &
math_Mandel6to33, &
math_Mandel33to6, &
math_Plain3333to99, &
math_Plain33to9, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
math_Plain9to33, &
math_Plain99to3333
corrected buggy previous commit
2015-04-21 20:03:38 +05:30
use mesh, only: mesh_element
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
implicit none
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
integer(pInt), intent(in):: el, & ! element index
ip, & ! integration point index
ipc ! grain index
doxygen comments
2013-02-22 04:38:36 +05:30
real(pReal), optional, intent(in) :: timeFraction ! fraction of timestep
named some loops and made BUTCHER TABLEAUs parameters in crystallite_integrateStateRKCK45
2013-04-29 16:47:30 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!*** local variables ***!
real(pReal), dimension(3,3):: Fg_new, & ! deformation gradient at end of timestep
Fp_current, & ! plastic deformation gradient at start of timestep
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
Fi_current, & ! intermediate deformation gradient at start of timestep
doxygen comments
2013-02-22 04:38:36 +05:30
Fp_new, & ! plastic deformation gradient at end of timestep
Fe_new, & ! elastic deformation gradient at end of timestep
invFp_new, & ! inverse of Fp_new
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
Fi_new, & ! gradient of intermediate deformation stages
invFi_new, &
doxygen comments
2013-02-22 04:38:36 +05:30
invFp_current, & ! inverse of Fp_current
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
invFi_current, & ! inverse of Fp_current
doxygen comments
2013-02-22 04:38:36 +05:30
Lpguess, & ! current guess for plastic velocity gradient
Lpguess_old, & ! known last good guess for plastic velocity gradient
Lp_constitutive, & ! plastic velocity gradient resulting from constitutive law
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
residuumLp, & ! current residuum of plastic velocity gradient
residuumLp_old, & ! last residuum of plastic velocity gradient
doxygen comments
2013-02-22 04:38:36 +05:30
deltaLp, & ! direction of next guess
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
Liguess, & ! current guess for intermediate velocity gradient
Liguess_old, & ! known last good guess for intermediate velocity gradient
Li_constitutive, & ! intermediate velocity gradient resulting from constitutive law
residuumLi, & ! current residuum of intermediate velocity gradient
residuumLi_old, & ! last residuum of intermediate velocity gradient
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
deltaLi, & ! direction of next guess
Tstar, & ! 2nd Piola-Kirchhoff Stress in plastic (lattice) configuration
A, &
doxygen comments
2013-02-22 04:38:36 +05:30
B, &
added intermediate configuration to crystal plasticity kinematics intended handle intermediate deformation stages consistently in a finite strain framework currently implemented for thermal strains, but will expand on this to add damage strains, phase transformation strains etc.
2014-10-20 21:13:28 +05:30
Fe, & ! elastic deformation gradient
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
temp_33
doxygen comments
2013-02-22 04:38:36 +05:30
real(pReal), dimension(6):: Tstar_v ! 2nd Piola-Kirchhoff Stress in Mandel-Notation
real(pReal), dimension(9):: work ! needed for matrix inversion by LAPACK
integer(pInt), dimension(9) :: ipiv ! needed for matrix inversion by LAPACK
need to keep track of temperature again since we can no longer get this from F_T
2015-03-18 23:33:18 +05:30
real(pReal), dimension(9,9) :: dRLp_dLp, & ! partial derivative of residuum (Jacobian for NEwton-Raphson scheme)
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
dRLp_dLp2, & ! working copy of dRdLp
dRLi_dLi ! partial derivative of residuumI (Jacobian for NEwton-Raphson scheme)
doxygen comments
2013-02-22 04:38:36 +05:30
real(pReal), dimension(3,3,3,3):: dT_dFe3333, & ! partial derivative of 2nd Piola-Kirchhoff stress
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
dT_dFi3333, &
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
dFe_dLp3333, & ! partial derivative of elastic deformation gradient
updated analytic jacobian calculation to correctly take into account intermediate configuration Fi. improved convergence of Li loop in stress integration
2015-01-29 19:28:25 +05:30
dFe_dLi3333, &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
dFi_dLi3333, &
dLp_dFi3333, &
dLi_dFi3333, &
dLp_dT3333, &
dLi_dT3333
gfortran complaint about implicit casting,floating point comparison, and unused imported variables. additionally changed use of math_invert33 to math_inv33 if det is not needed
2015-04-11 00:39:26 +05:30
real(pReal) detInvFi, & ! determinant of InvFi
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
steplengthLp0, &
steplengthLp, &
steplengthLi0, &
steplengthLi, &
doxygen comments
2013-02-22 04:38:36 +05:30
dt, & ! time increment
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
aTolLp, &
aTolLi
integer(pInt) NiterationStressLp, & ! number of stress integrations
NiterationStressLi, & ! number of inner stress integrations
doxygen comments
2013-02-22 04:38:36 +05:30
ierr, & ! error indicator for LAPACK
o, &
p, &
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
jacoCounterLp, &
jacoCounterLi ! counters to check for Jacobian update
doxygen comments
2013-02-22 04:38:36 +05:30
integer(pLongInt) tick, &
tock, &
tickrate, &
maxticks
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
made doxygen working for MSC.Marc again, small changes on the todo-statements for doxygen, they don't work on single lines of codes but only on module/variables
2013-06-11 22:05:04 +05:30
external :: &
dgesv
doxygen comments
2013-02-22 04:38:36 +05:30
!* be pessimistic
crystallite_integrateStress = .false.
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#ifndef _OPENMP
doxygen comments
2013-02-22 04:38:36 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &
some simplifications
2016-06-30 02:57:22 +05:30
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
write(6,'(a,i8,1x,i2,1x,i3)') '<< CRYST >> integrateStress at el ip ipc ',el,ip,ipc
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!* only integrate over fraction of timestep?
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
if (present(timeFraction)) then
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
dt = crystallite_subdt(ipc,ip,el) * timeFraction
Fg_new = crystallite_subF0(1:3,1:3,ipc,ip,el) &
+ (crystallite_subF(1:3,1:3,ipc,ip,el) - crystallite_subF0(1:3,1:3,ipc,ip,el)) * timeFraction
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
else
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
dt = crystallite_subdt(ipc,ip,el)
Fg_new = crystallite_subF(1:3,1:3,ipc,ip,el)
doxygen comments
2013-02-22 04:38:36 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!* feed local variables
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
Fp_current = crystallite_subFp0(1:3,1:3,ipc,ip,el) ! "Fp_current" is only used as temp var here...
Lpguess = crystallite_Lp (1:3,1:3,ipc,ip,el) ! ... and take it as first guess
Fi_current = crystallite_subFi0(1:3,1:3,ipc,ip,el) ! intermediate configuration, assume decomposition as F = Fe Fi Fp
Liguess = crystallite_Li (1:3,1:3,ipc,ip,el) ! ... and take it as first guess
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
Liguess_old = Liguess
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!* inversion of Fp_current...
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
invFp_current = math_inv33(Fp_current)
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
failedInversionFp: if (all(dEq(invFp_current,0.0_pReal))) then
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#ifndef _OPENMP
doxygen comments
2013-02-22 04:38:36 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
debug now reporting elFE in addition to elCP
2014-08-27 21:24:11 +05:30
write(6,'(a,i8,1x,a,i8,a,1x,i2,1x,i3)') '<< CRYST >> integrateStress failed on inversion of Fp_current at el (elFE) ip g ',&
fixed missing variable name change
2016-01-18 21:43:27 +05:30
el,'(',mesh_element(1,el),')',ip,ipc
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) > 0_pInt) &
write(6,'(/,a,/,3(12x,3(f12.7,1x)/))') '<< CRYST >> Fp_current',math_transpose33(Fp_current(1:3,1:3))
doxygen comments
2013-02-22 04:38:36 +05:30
endif
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#endif
doxygen comments
2013-02-22 04:38:36 +05:30
return
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
endif failedInversionFp
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
A = math_mul33x33(Fg_new,invFp_current) ! intermediate tensor needed later to calculate dFe_dLp
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
!* inversion of Fi_current...
using dEq, dNeq, cEq, dEq
2016-05-29 14:15:03 +05:30
invFi_current = math_inv33(Fi_current)
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
failedInversionFi: if (all(dEq(invFi_current,0.0_pReal))) then
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
#ifndef _OPENMP
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
write(6,'(a,i8,1x,a,i8,a,1x,i2,1x,i3)') '<< CRYST >> integrateStress failed on inversion of Fi_current at el (elFE) ip ipc ',&
el,'(',mesh_element(1,el),')',ip,ipc
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) > 0_pInt) &
write(6,'(/,a,/,3(12x,3(f12.7,1x)/))') '<< CRYST >> Fp_current',math_transpose33(Fi_current(1:3,1:3))
endif
#endif
return
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
endif failedInversionFi
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!* start LpLoop with normal step length
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
NiterationStressLi = 0_pInt
jacoCounterLi = 0_pInt
steplengthLi0 = 1.0_pReal
steplengthLi = steplengthLi0
residuumLi_old = 0.0_pReal
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
LiLoop: do
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
NiterationStressLi = NiterationStressLi + 1_pInt
IloopsExeced: if (NiterationStressLi > nStress) then
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#ifndef _OPENMP
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) &
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
write(6,'(a,i3,a,i8,1x,a,i8,a,1x,i2,1x,i3,/)') '<< CRYST >> integrateStress reached inelastic loop limit',nStress, &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
' at el (elFE) ip ipc ', el,mesh_element(1,el),ip,ipc
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#endif
doxygen comments
2013-02-22 04:38:36 +05:30
return
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
endif IloopsExeced
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
invFi_new = math_mul33x33(invFi_current,math_I3 - dt*Liguess)
Fi_new = math_inv33(invFi_new)
detInvFi = math_det33(invFi_new)
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
NiterationStressLp = 0_pInt
jacoCounterLp = 0_pInt
steplengthLp0 = 1.0_pReal
steplengthLp = steplengthLp0
residuumLp_old = 0.0_pReal
Lpguess_old = Lpguess
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
add pheno+ module in
2015-10-14 00:22:01 +05:30
LpLoop: do ! inner stress integration loop for consistency with Fi
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
NiterationStressLp = NiterationStressLp + 1_pInt
loopsExeced: if (NiterationStressLp > nStress) then
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
#ifndef _OPENMP
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) &
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
write(6,'(a,i3,a,i8,1x,a,i8,a,1x,i2,1x,i3,/)') '<< CRYST >> integrateStress reached loop limit',nStress, &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
' at el (elFE) ip ipc ', el,mesh_element(1,el),ip,ipc
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
#endif
return
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
endif loopsExeced
add pheno+ module in
2015-10-14 00:22:01 +05:30
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
!* calculate (elastic) 2nd Piola--Kirchhoff stress tensor and its tangent from constitutive law
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
B = math_I3 - dt*Lpguess
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
Fe = math_mul33x33(math_mul33x33(A,B), invFi_new) ! current elastic deformation tensor
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
call constitutive_TandItsTangent(Tstar, dT_dFe3333, dT_dFi3333, Fe, Fi_new, ipc, ip, el) ! call constitutive law to calculate 2nd Piola-Kirchhoff stress and its derivative in unloaded configuration
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
Tstar_v = math_Mandel33to6(Tstar)
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
!* calculate plastic velocity gradient and its tangent from constitutive law
some simplifications
2016-06-30 02:57:22 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) &
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
call system_clock(count=tick,count_rate=tickrate,count_max=maxticks)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
call constitutive_LpAndItsTangent(Lp_constitutive, dLp_dT3333, dLp_dFi3333, &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
Tstar_v, Fi_new, ipc, ip, el)
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
call system_clock(count=tock,count_rate=tickrate,count_max=maxticks)
!$OMP CRITICAL (debugTimingLpTangent)
debug_cumLpCalls = debug_cumLpCalls + 1_pInt
debug_cumLpTicks = debug_cumLpTicks + tock-tick
!$OMP FLUSH (debug_cumLpTicks)
if (tock < tick) debug_cumLpTicks = debug_cumLpTicks + maxticks
!$OMP END CRITICAL (debugTimingLpTangent)
endif
#ifndef _OPENMP
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
improved debug statements
2015-08-05 02:56:22 +05:30
write(6,'(a,i3,/)') '<< CRYST >> stress iteration ', NiterationStressLp
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> Lp_constitutive', math_transpose33(Lp_constitutive)
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> Lpguess', math_transpose33(Lpguess)
endif
#endif
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
!* update current residuum and check for convergence of loop
using norm2 function as L2 norm (vector, math_norm3) and Frobenius norm (tensor, math_norm33)
2016-01-09 21:31:30 +05:30
aTolLp = max(rTol_crystalliteStress * max(norm2(Lpguess),norm2(Lp_constitutive)), & ! absolute tolerance from largest acceptable relative error
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
aTol_crystalliteStress) ! minimum lower cutoff
residuumLp = Lpguess - Lp_constitutive
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
function statement is more clear
2015-09-10 18:31:33 +05:30
if (any(prec_isNaN(residuumLp))) then ! NaN in residuum...
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
#ifndef _OPENMP
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
write(6,'(a,i8,1x,a,i8,a,1x,i2,1x,i3,a,i3,a)') '<< CRYST >> integrateStress encountered NaN at el (elFE) ip ipc ', &
el,mesh_element(1,el),ip,ipc, &
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
' ; iteration ', NiterationStressLp,&
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
' >> returning..!'
#endif
return ! ...me = .false. to inform integrator about problem
using norm2 function as L2 norm (vector, math_norm3) and Frobenius norm (tensor, math_norm33)
2016-01-09 21:31:30 +05:30
elseif (norm2(residuumLp) < aTolLp) then ! converged if below absolute tolerance
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
exit LpLoop ! ...leave iteration loop
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
elseif ( NiterationStressLp == 1_pInt &
using norm2 function as L2 norm (vector, math_norm3) and Frobenius norm (tensor, math_norm33)
2016-01-09 21:31:30 +05:30
.or. norm2(residuumLp) < norm2(residuumLp_old)) then ! not converged, but improved norm of residuum (always proceed in first iteration)...
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
residuumLp_old = residuumLp ! ...remember old values and...
Lpguess_old = Lpguess
steplengthLp = steplengthLp0 ! ...proceed with normal step length (calculate new search direction)
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
else ! not converged and residuum not improved...
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
steplengthLp = 0.5_pReal * steplengthLp ! ...try with smaller step length in same direction
Lpguess = Lpguess_old + steplengthLp * deltaLp
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
cycle LpLoop
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
!* calculate Jacobian for correction term
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
if (mod(jacoCounterLp, iJacoLpresiduum) == 0_pInt) then
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
dFe_dLp3333 = 0.0_pReal
introduced simpler multiplication and forall loops matmul is ok for openmp, check in the web and run the state integration test. Example program testing for new state update for rkck dot state: program test real, dimension(6,10) :: dotState=reshape(& [1,1,1,1,1,1,1,1,1,1,& 2,2,2,2,2,2,2,2,2,2,& 3,3,3,3,3,3,3,3,3,3,& 4,4,4,4,4,4,4,4,4,4,& 5,5,5,5,5,5,5,5,5,5,& 6,6,6,6,6,6,6,6,6,6],[6,10]) real, dimension(10) :: residuum real, dimension(6) :: B=2.5 integer :: i residuum = B(1)*dotState(1,:)+& B(2)*dotState(2,:)+& B(3)*dotState(3,:)+& B(4)*dotState(4,:)+& B(5)*dotState(5,:)+& B(6)*dotState(6,:) do i =1,10 print*,residuum(i) enddo residuum = matmul(transpose(dotState),B) do i =1,10 print*,residuum(i) enddo end program test
2015-04-01 22:15:53 +05:30
forall(o=1_pInt:3_pInt,p=1_pInt:3_pInt) &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
dFe_dLp3333(o,1:3,p,1:3) = A(o,p)*math_transpose33(invFi_new) ! dFe_dLp(i,j,k,l) = -dt * A(i,k) invFi(l,j)
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
dFe_dLp3333 = - dt * dFe_dLp3333
dRLp_dLp = math_identity2nd(9_pInt) &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
- math_Plain3333to99(math_mul3333xx3333(math_mul3333xx3333(dLp_dT3333,dT_dFe3333),dFe_dLp3333))
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
dRLp_dLp2 = dRLp_dLp ! will be overwritten in first call to LAPACK routine
work = math_plain33to9(residuumLp)
call dgesv(9,1,dRLp_dLp2,9,ipiv,work,9,ierr) ! solve dRLp/dLp * delta Lp = -res for delta Lp
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
if (ierr /= 0_pInt) then
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
#ifndef _OPENMP
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
write(6,'(a,i8,1x,a,i8,a,1x,i2,1x,i3,a,i3)') '<< CRYST >> integrateStress failed on dR/dLp inversion at el ip ipc ', &
el,mesh_element(1,el),ip,ipc
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g)&
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
write(6,*)
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
write(6,'(a,/,9(12x,9(e15.3,1x)/))') '<< CRYST >> dR_dLp',transpose(dRLp_dLp)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
write(6,'(a,/,9(12x,9(e15.3,1x)/))') '<< CRYST >> dFe_dLp',transpose(math_Plain3333to99(dFe_dLp3333))
write(6,'(a,/,9(12x,9(e15.3,1x)/))') '<< CRYST >> dT_dFe_constitutive',transpose(math_Plain3333to99(dT_dFe3333))
need to keep track of temperature again since we can no longer get this from F_T
2015-03-18 23:33:18 +05:30
write(6,'(a,/,9(12x,9(e15.3,1x)/))') '<< CRYST >> dLp_dT_constitutive',transpose(math_Plain3333to99(dLp_dT3333))
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> A',math_transpose33(A)
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> B',math_transpose33(B)
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> Lp_constitutive',math_transpose33(Lp_constitutive)
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> Lpguess',math_transpose33(Lpguess)
endif
endif
#endif
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
return
endif
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
deltaLp = - math_plain9to33(work)
overhaul of kinematics from FeFp to FeFiFp decomposition
2014-11-01 00:33:08 +05:30
endif
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
jacoCounterLp = jacoCounterLp + 1_pInt ! increase counter for jaco update
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
Lpguess = Lpguess + steplengthLp * deltaLp
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
enddo LpLoop
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
bugfixes (did not compile)
2016-07-14 18:59:53 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
!$OMP CRITICAL (distributionStress)
debug_StressLoopLpDistribution(NiterationStressLp,numerics_integrationMode) = &
debug_StressLoopLpDistribution(NiterationStressLp,numerics_integrationMode) + 1_pInt
!$OMP END CRITICAL (distributionStress)
bugfixes (did not compile)
2016-07-14 18:59:53 +05:30
endif
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
!* calculate intermediate velocity gradient and its tangent from constitutive law
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
call constitutive_LiAndItsTangent(Li_constitutive, dLi_dT3333, dLi_dFi3333, &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
Tstar_v, Fi_new, ipc, ip, el)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
improved debug statements
2015-08-05 02:56:22 +05:30
#ifndef _OPENMP
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &
improved debug statements
2015-08-05 02:56:22 +05:30
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> Li_constitutive', math_transpose33(Li_constitutive)
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> Liguess', math_transpose33(Liguess)
endif
#endif
doxygen comments
2013-02-22 04:38:36 +05:30
!* update current residuum and check for convergence of loop
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
using norm2 function as L2 norm (vector, math_norm3) and Frobenius norm (tensor, math_norm33)
2016-01-09 21:31:30 +05:30
aTolLi = max(rTol_crystalliteStress * max(norm2(Liguess),norm2(Li_constitutive)), & ! absolute tolerance from largest acceptable relative error
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
aTol_crystalliteStress) ! minimum lower cutoff
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
residuumLi = Liguess - Li_constitutive
function statement is more clear
2015-09-10 18:31:33 +05:30
if (any(prec_isNaN(residuumLi))) then ! NaN in residuum...
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
return ! ...me = .false. to inform integrator about problem
using norm2 function as L2 norm (vector, math_norm3) and Frobenius norm (tensor, math_norm33)
2016-01-09 21:31:30 +05:30
elseif (norm2(residuumLi) < aTolLi) then ! converged if below absolute tolerance
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
exit LiLoop ! ...leave iteration loop
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
elseif ( NiterationStressLi == 1_pInt &
using norm2 function as L2 norm (vector, math_norm3) and Frobenius norm (tensor, math_norm33)
2016-01-09 21:31:30 +05:30
.or. norm2(residuumLi) < norm2(residuumLi_old)) then ! not converged, but improved norm of residuum (always proceed in first iteration)...
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
residuumLi_old = residuumLi ! ...remember old values and...
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
Liguess_old = Liguess
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
steplengthLi = steplengthLi0 ! ...proceed with normal step length (calculate new search direction)
else ! not converged and residuum not improved...
steplengthLi = 0.5_pReal * steplengthLi ! ...try with smaller step length in same direction
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
Liguess = Liguess_old + steplengthLi * deltaLi
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
cycle LiLoop
doxygen comments
2013-02-22 04:38:36 +05:30
endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
!* calculate Jacobian for correction term
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
if (mod(jacoCounterLi, iJacoLpresiduum) == 0_pInt) then
temp_33 = math_mul33x33(math_mul33x33(A,B),invFi_current)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
dFe_dLi3333 = 0.0_pReal
dFi_dLi3333 = 0.0_pReal
introduced simpler multiplication and forall loops matmul is ok for openmp, check in the web and run the state integration test. Example program testing for new state update for rkck dot state: program test real, dimension(6,10) :: dotState=reshape(& [1,1,1,1,1,1,1,1,1,1,& 2,2,2,2,2,2,2,2,2,2,& 3,3,3,3,3,3,3,3,3,3,& 4,4,4,4,4,4,4,4,4,4,& 5,5,5,5,5,5,5,5,5,5,& 6,6,6,6,6,6,6,6,6,6],[6,10]) real, dimension(10) :: residuum real, dimension(6) :: B=2.5 integer :: i residuum = B(1)*dotState(1,:)+& B(2)*dotState(2,:)+& B(3)*dotState(3,:)+& B(4)*dotState(4,:)+& B(5)*dotState(5,:)+& B(6)*dotState(6,:) do i =1,10 print*,residuum(i) enddo residuum = matmul(transpose(dotState),B) do i =1,10 print*,residuum(i) enddo end program test
2015-04-01 22:15:53 +05:30
forall(o=1_pInt:3_pInt,p=1_pInt:3_pInt)
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
dFe_dLi3333(1:3,o,1:3,p) = -dt*math_I3(o,p)*temp_33 ! dFe_dLp(i,j,k,l) = -dt * A(i,k) invFi(l,j)
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
dFi_dLi3333(1:3,o,1:3,p) = -dt*math_I3(o,p)*invFi_current
introduced simpler multiplication and forall loops matmul is ok for openmp, check in the web and run the state integration test. Example program testing for new state update for rkck dot state: program test real, dimension(6,10) :: dotState=reshape(& [1,1,1,1,1,1,1,1,1,1,& 2,2,2,2,2,2,2,2,2,2,& 3,3,3,3,3,3,3,3,3,3,& 4,4,4,4,4,4,4,4,4,4,& 5,5,5,5,5,5,5,5,5,5,& 6,6,6,6,6,6,6,6,6,6],[6,10]) real, dimension(10) :: residuum real, dimension(6) :: B=2.5 integer :: i residuum = B(1)*dotState(1,:)+& B(2)*dotState(2,:)+& B(3)*dotState(3,:)+& B(4)*dotState(4,:)+& B(5)*dotState(5,:)+& B(6)*dotState(6,:) do i =1,10 print*,residuum(i) enddo residuum = matmul(transpose(dotState),B) do i =1,10 print*,residuum(i) enddo end program test
2015-04-01 22:15:53 +05:30
end forall
forall(o=1_pInt:3_pInt,p=1_pInt:3_pInt) &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
dFi_dLi3333(1:3,1:3,o,p) = math_mul33x33(math_mul33x33(Fi_new,dFi_dLi3333(1:3,1:3,o,p)),Fi_new)
dRLi_dLi = math_identity2nd(9_pInt) &
- math_Plain3333to99(math_mul3333xx3333(dLi_dT3333, math_mul3333xx3333(dT_dFe3333, dFe_dLi3333) + &
math_mul3333xx3333(dT_dFi3333, dFi_dLi3333))) &
- math_Plain3333to99(math_mul3333xx3333(dLi_dFi3333, dFi_dLi3333))
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
work = math_plain33to9(residuumLi)
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
call dgesv(9,1,dRLi_dLi,9,ipiv,work,9,ierr) ! solve dRLi/dLp * delta Li = -res for delta Li
switched dNeq and dEq to relative tolerance, removed single precision (makes things complicated and was never used anyway)
2016-03-21 03:50:58 +05:30
if (ierr /= 0_pInt) then
improved debug statements
2015-08-05 02:56:22 +05:30
#ifndef _OPENMP
switched dNeq and dEq to relative tolerance, removed single precision (makes things complicated and was never used anyway)
2016-03-21 03:50:58 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
write(6,'(a,i8,1x,a,i8,a,1x,i2,1x,i3,a,i3)') '<< CRYST >> integrateStress failed on dR/dLi inversion at el ip ipc ', &
el,mesh_element(1,el),ip,ipc
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g)&
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
write(6,*)
write(6,'(a,/,9(12x,9(e15.3,1x)/))') '<< CRYST >> dR_dLi',transpose(dRLi_dLi)
write(6,'(a,/,9(12x,9(e15.3,1x)/))') '<< CRYST >> dFe_dLi',transpose(math_Plain3333to99(dFe_dLi3333))
write(6,'(a,/,9(12x,9(e15.3,1x)/))') '<< CRYST >> dT_dFi_constitutive',transpose(math_Plain3333to99(dT_dFi3333))
write(6,'(a,/,9(12x,9(e15.3,1x)/))') '<< CRYST >> dLi_dT_constitutive',transpose(math_Plain3333to99(dLi_dT3333))
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> Li_constitutive',math_transpose33(Li_constitutive)
write(6,'(a,/,3(12x,3(e20.7,1x)/))') '<< CRYST >> Liguess',math_transpose33(Liguess)
improved debug statements
2015-08-05 02:56:22 +05:30
endif
endif
switched dNeq and dEq to relative tolerance, removed single precision (makes things complicated and was never used anyway)
2016-03-21 03:50:58 +05:30
#endif
return
endif
improved debug statements
2015-08-05 02:56:22 +05:30
switched order of Lp-Li nesting in stress integration loop for better convergence. temperature is integrated during stress integration so it need not be a dot state
2014-11-12 22:10:50 +05:30
deltaLi = - math_plain9to33(work)
doxygen comments
2013-02-22 04:38:36 +05:30
endif
comparison for zero should be abs: a == 0.0_pReal becomes abs(a) <= tiny(a) a /= 0.0_pReal becomes abs(a) > tiny(a) remove unused variables
2015-04-11 13:55:23 +05:30
jacoCounterLi = jacoCounterLi + 1_pInt ! increase counter for jaco update
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
cleaned up stress integrations and some documentation
2014-11-13 18:23:20 +05:30
Liguess = Liguess + steplengthLi * deltaLi
add pheno+ module in
2015-10-14 00:22:01 +05:30
enddo LiLoop
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
bugfixes (did not compile)
2016-07-14 18:59:53 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
!$OMP CRITICAL (distributionStress)
debug_StressLoopLiDistribution(NiterationStressLi,numerics_integrationMode) = &
debug_StressLoopLiDistribution(NiterationStressLi,numerics_integrationMode) + 1_pInt
!$OMP END CRITICAL (distributionStress)
bugfixes (did not compile)
2016-07-14 18:59:53 +05:30
endif
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!* calculate new plastic and elastic deformation gradient
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
invFp_new = math_mul33x33(invFp_current,B)
gfortran complaint about implicit casting,floating point comparison, and unused imported variables. additionally changed use of math_invert33 to math_inv33 if det is not needed
2015-04-11 00:39:26 +05:30
invFp_new = invFp_new / math_det33(invFp_new)**(1.0_pReal/3.0_pReal) ! regularize by det
Fp_new = math_inv33(invFp_new)
using dEq, dNeq, cEq, dEq
2016-05-29 14:15:03 +05:30
failedInversionInvFp: if (all(dEq(Fp_new,0.0_pReal))) then
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#ifndef _OPENMP
doxygen comments
2013-02-22 04:38:36 +05:30
if (iand(debug_level(debug_crystallite), debug_levelBasic) /= 0_pInt) then
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
write(6,'(a,i8,1x,a,i8,a,1x,i2,1x,i3,a,i3)') '<< CRYST >> integrateStress failed on invFp_new inversion at el ip ipc ',&
el,mesh_element(1,el),ip,ipc, ' ; iteration ', NiterationStressLp
doxygen comments
2013-02-22 04:38:36 +05:30
if (iand(debug_level(debug_crystallite), debug_levelExtensive) /= 0_pInt &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) &
write(6,'(/,a,/,3(12x,3(f12.7,1x)/))') '<< CRYST >> invFp_new',math_transpose33(invFp_new)
doxygen comments
2013-02-22 04:38:36 +05:30
endif
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#endif
doxygen comments
2013-02-22 04:38:36 +05:30
return
using dEq, dNeq, cEq, dEq
2016-05-29 14:15:03 +05:30
endif failedInversionInvFp
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
Fe_new = math_mul33x33(math_mul33x33(Fg_new,invFp_new),invFi_new) ! calc resulting Fe
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
in crystallite_integrateStress: pass full 2nd PK stress to LpAndItsTangent instead of only the deviatoric part; otherwise constitutive laws that depend on the hydrostatic pressure do not work; constitutive laws that require a deviatoric stress need to calculate it internally (as is e.g. already done in the J2 model)
2014-01-16 16:06:40 +05:30
!* calculate 1st Piola-Kirchhoff stress
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
crystallite_P(1:3,1:3,ipc,ip,el) = math_mul33x33(math_mul33x33(Fg_new,invFp_new), &
added intermediate configuration to crystal plasticity kinematics intended handle intermediate deformation stages consistently in a finite strain framework currently implemented for thermal strains, but will expand on this to add damage strains, phase transformation strains etc.
2014-10-20 21:13:28 +05:30
math_mul33x33(math_Mandel6to33(Tstar_v), &
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
math_transpose33(invFp_new)))
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!* store local values in global variables
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
crystallite_Lp(1:3,1:3,ipc,ip,el) = Lpguess
crystallite_Li(1:3,1:3,ipc,ip,el) = Liguess
crystallite_Tstar_v(1:6,ipc,ip,el) = Tstar_v
crystallite_Fp(1:3,1:3,ipc,ip,el) = Fp_new
crystallite_Fi(1:3,1:3,ipc,ip,el) = Fi_new
crystallite_Fe(1:3,1:3,ipc,ip,el) = Fe_new
crystallite_invFp(1:3,1:3,ipc,ip,el) = invFp_new
crystallite_invFi(1:3,1:3,ipc,ip,el) = invFi_new
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!* set return flag to true
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_integrateStress = .true.
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#ifndef _OPENMP
doxygen comments
2013-02-22 04:38:36 +05:30
if (iand(debug_level(debug_crystallite),debug_levelExtensive) /= 0_pInt &
renamed g -> c/ipc
2016-01-17 20:20:33 +05:30
.and. ((el == debug_e .and. ip == debug_i .and. ipc == debug_g) &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
.or. .not. iand(debug_level(debug_crystallite), debug_levelSelective) /= 0_pInt)) then
fixed missing variable name change
2016-01-18 21:43:27 +05:30
write(6,'(a,/,3(12x,3(f12.7,1x)/))') '<< CRYST >> P / MPa',math_transpose33(crystallite_P(1:3,1:3,ipc,ip,el))*1.0e-6_pReal
doxygen comments
2013-02-22 04:38:36 +05:30
write(6,'(a,/,3(12x,3(f12.7,1x)/))') '<< CRYST >> Cauchy / MPa', &
fixed missing variable name change
2016-01-18 21:43:27 +05:30
math_mul33x33(crystallite_P(1:3,1:3,ipc,ip,el), math_transpose33(Fg_new)) * 1.0e-6_pReal / math_det33(Fg_new)
doxygen comments
2013-02-22 04:38:36 +05:30
write(6,'(a,/,3(12x,3(f12.7,1x)/))') '<< CRYST >> Fe Lp Fe^-1', &
fixed missing variable name change
2016-01-18 21:43:27 +05:30
math_transpose33(math_mul33x33(Fe_new, math_mul33x33(crystallite_Lp(1:3,1:3,ipc,ip,el), math_inv33(Fe_new)))) ! transpose to get correct print out order
write(6,'(a,/,3(12x,3(f12.7,1x)/))') '<< CRYST >> Fp',math_transpose33(crystallite_Fp(1:3,1:3,ipc,ip,el))
write(6,'(a,/,3(12x,3(f12.7,1x)/))') '<< CRYST >> Fi',math_transpose33(crystallite_Fi(1:3,1:3,ipc,ip,el))
doxygen comments
2013-02-22 04:38:36 +05:30
endif
* Introduced preprocessor directives in order to suppress compilation of most write statements when using openmp. This tremendously improves efficiency of parallelization. * Also added some more openmp directives to increase percentage of parallelized code. * "implicit none" was missing in two subroutines of homogenization and constitutive.
2011-03-29 12:57:19 +05:30
#endif
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
end function crystallite_integrateStress
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief calculates orientations and disorientations (in case of single grain ips)
!--------------------------------------------------------------------------------------------------
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
subroutine crystallite_orientations
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
use math, only: &
adjusted function for polar decomposition to actual need (no return of U)
2016-01-13 03:09:31 +05:30
math_rotationalPart33, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
math_RtoQ, &
math_qConj
use FEsolving, only: &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
FEsolving_execElem, &
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
FEsolving_execIP
use material, only: &
material_phase, &
homogenization_Ngrains, &
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
plasticState
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
use mesh, only: &
mesh_element, &
mesh_ipNeighborhood, &
FE_NipNeighbors, &
FE_geomtype, &
FE_celltype
moved quaternion disorientation to lattice because it requires the knowledge of the lattice structure.
2014-02-28 18:58:27 +05:30
use lattice, only: &
moved reading in of lattice type and elastic constants to lattice module removed structure type for hex, fcc, bcc, now defining slip/twin systems for each phase found in material.config constitutive modules will only be initialized if needed homogenizedC function is only needed for models incorporating twinning in a physical way (titanmod and dislotwin)
2014-03-09 02:20:31 +05:30
lattice_qDisorientation, &
lattice_structure
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
use plastic_nonlocal, only: &
plastic_nonlocal_updateCompatibility
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
implicit none
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt) &
more rename g -> c/ipc, wrong ipc iteration for crystallite_integrateStateRK4 and single run fixed
2016-01-17 23:26:24 +05:30
c, & !< counter in integration point component loop
i, & !< counter in integration point loop
e, & !< counter in element loop
n, & !< counter in neighbor loop
neighboring_e, & !< neighbor element
neighboring_i, & !< neighbor integration point
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
myPhase, & ! phase
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
neighboringPhase
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
real(pReal), dimension(4) :: &
orientation
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- CALCULATE ORIENTATION AND LATTICE ROTATION ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
!$OMP PARALLEL DO PRIVATE(orientation)
bugfix, misplaced if statement caused failing update of orienation
2016-04-25 23:43:59 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
do c = 1_pInt,homogenization_Ngrains(mesh_element(3,e))
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
! somehow this subroutine is not threadsafe, so need critical statement here; not clear, what exactly the problem is
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
!$OMP CRITICAL (polarDecomp)
bugfix, misplaced if statement caused failing update of orienation
2016-04-25 23:43:59 +05:30
orientation = math_RtoQ(transpose(math_rotationalPart33(crystallite_Fe(1:3,1:3,c,i,e))))
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
!$OMP END CRITICAL (polarDecomp)
bugfix, misplaced if statement caused failing update of orienation
2016-04-25 23:43:59 +05:30
crystallite_rotation(1:4,c,i,e) = lattice_qDisorientation(crystallite_orientation0(1:4,c,i,e), &! active rotation from initial
orientation) ! to current orientation (with no symmetry)
crystallite_orientation(1:4,c,i,e) = orientation
enddo; enddo; enddo
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
!$OMP END PARALLEL DO
doxygen comments
2013-02-22 04:38:36 +05:30
! --- UPDATE SOME ADDITIONAL VARIABLES THAT ARE NEEDED FOR NONLOCAL MATERIAL ---
fixed bug introduced with lattice_structure change nonlocal, but with DEBUG=ON OPTIMIZATION=OFF there is an FPE. Division by zero? Marked in the code forgot to commit dislotwin last time, now seems to work
2014-03-12 05:25:40 +05:30
! --- we use crystallite_orientation from above, so need a separate loop
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
bugfix, misplaced if statement caused failing update of orienation
2016-04-25 23:43:59 +05:30
nonlocalPresent: if (any(plasticState%nonLocal)) then
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
!$OMP PARALLEL DO PRIVATE(myPhase,neighboring_e,neighboring_i,neighboringPhase)
doxygen comments
2013-02-22 04:38:36 +05:30
do e = FEsolving_execElem(1),FEsolving_execElem(2)
do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e)
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
myPhase = material_phase(1,i,e) ! get my phase (non-local models make no sense with more than one grain per material point)
if (plasticState(myPhase)%nonLocal) then ! if nonlocal model
doxygen comments
2013-02-22 04:38:36 +05:30
! --- calculate disorientation between me and my neighbor ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
do n = 1_pInt,FE_NipNeighbors(FE_celltype(FE_geomtype(mesh_element(2,e)))) ! loop through my neighbors
doxygen comments
2013-02-22 04:38:36 +05:30
neighboring_e = mesh_ipNeighborhood(1,n,i,e)
neighboring_i = mesh_ipNeighborhood(2,n,i,e)
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
if (neighboring_e > 0 .and. neighboring_i > 0) then ! if neighbor exists
neighboringPhase = material_phase(1,neighboring_i,neighboring_e) ! get my neighbor's phase
if (plasticState(neighboringPhase)%nonLocal) then ! neighbor got also nonlocal plasticity
if (lattice_structure(myPhase) == lattice_structure(neighboringPhase)) then ! if my neighbor has same crystal structure like me
doxygen comments
2013-02-22 04:38:36 +05:30
crystallite_disorientation(:,n,1,i,e) = &
moved quaternion disorientation to lattice because it requires the knowledge of the lattice structure.
2014-02-28 18:58:27 +05:30
lattice_qDisorientation( crystallite_orientation(1:4,1,i,e), &
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
crystallite_orientation(1:4,1,neighboring_i,neighboring_e), &
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
lattice_structure(myPhase)) ! calculate disorientation for given symmetry
else ! for neighbor with different phase
crystallite_disorientation(:,n,1,i,e) = [0.0_pReal, 1.0_pReal, 0.0_pReal, 0.0_pReal]! 180 degree rotation about 100 axis
doxygen comments
2013-02-22 04:38:36 +05:30
endif
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
else ! for neighbor with local plasticity
crystallite_disorientation(:,n,1,i,e) = [-1.0_pReal, 0.0_pReal, 0.0_pReal, 0.0_pReal]! homomorphic identity
doxygen comments
2013-02-22 04:38:36 +05:30
endif
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
else ! no existing neighbor
crystallite_disorientation(:,n,1,i,e) = [-1.0_pReal, 0.0_pReal, 0.0_pReal, 0.0_pReal] ! homomorphic identity
doxygen comments
2013-02-22 04:38:36 +05:30
endif
enddo
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
! --- calculate compatibility and transmissivity between me and my neighbor ---
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
changed constitutive_* prefix for plasticity laws to plastic_* to be consistent with novel thermal_, damage_, vacancy_, etc. laws.
2014-12-08 21:25:30 +05:30
call plastic_nonlocal_updateCompatibility(crystallite_orientation,i,e)
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
endif
adjusted function for polar decomposition to actual need (no return of U)
2016-01-13 03:09:31 +05:30
enddo; enddo
no allocation for disorientation for local models only
2016-04-12 00:30:43 +05:30
!$OMP END PARALLEL DO
endif nonlocalPresent
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
end subroutine crystallite_orientations
new subroutine crystallite_orientations: calculates the orientation matrix and the euler angles and - in case of single grain ips - the misorientation for each neighboring ip. The calculation of the misorientation is now done once in crystallite init and at the end of every FE increment. This saves a lot of time compared to doing it in dotState for every crystallite subinc.
2009-12-18 21:16:33 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
!--------------------------------------------------------------------------------------------------
!> @brief return results of particular grain
!--------------------------------------------------------------------------------------------------
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
function crystallite_postResults(ipc, ip, el)
added crystallite output "neighboringelement" and "neighboringip" some polishing in crystallite_postResults
2013-05-08 17:32:30 +05:30
use math, only: &
math_qToEuler, &
grainrotation output now uses corrected rotation math
2013-06-07 15:05:00 +05:30
math_qToEulerAxisAngle, &
added crystallite output "neighboringelement" and "neighboringip" some polishing in crystallite_postResults
2013-05-08 17:32:30 +05:30
math_mul33x33, &
math_transpose33, &
math_det33, &
math_I3, &
inDeg, &
math_Mandel6to33, &
math_qMul, &
math_qConj
use mesh, only: &
mesh_element, &
mesh_ipVolume, &
mesh_maxNipNeighbors, &
mesh_ipNeighborhood, &
FE_NipNeighbors, &
FE_geomtype, &
FE_celltype
use material, only: &
no need to allocate a large array for constitutive(thermal,damage)_sizePostResults (changes apply only to new state)
2014-06-30 20:17:30 +05:30
plasticState, &
major restructuring of multi field handling in DAMASK and added some example config files for multi field simulations. please report bugs
2015-05-28 22:32:23 +05:30
sourceState, &
added crystallite output "neighboringelement" and "neighboringip" some polishing in crystallite_postResults
2013-05-08 17:32:30 +05:30
microstructure_crystallite, &
crystallite_Noutput, &
material_phase, &
material_texture, &
homogenization_Ngrains
use constitutive, only: &
Heavy bug fixing: Butcher tableau multiplication in RK45 integration scheme, state updating of adaptive Euler, wrong assignment to evolution rate instead of state in fixed-point iterator. Exchanged possibly non thread-safe matmul in RKCK45, simplified RK45 integration step 1--3 vs 4 handling. (Thanks to Pratheek, Luv, and Chen for their help!)
2014-09-03 01:16:52 +05:30
constitutive_homogenizedC, &
constitutive_postResults
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
major restructuring of code. homogenization as well as constitutive are now free to choose. the runtime got somewhat longer (25% on simple tests) compared to a hardcoded isostrain homogenization. this might be a point of further optimization at a later stage... please use homogenization_isostrain.f90 as starting point / example for future developments of homog-schemes. the homogenization scheme now can additionally output certain results. hence, the userdata structure at each integration point now looks like this: - sizeHomogPostResults - block of that size containing homogPostResults then for each grain: - sizeGrainPostResults - block of that size containing crystallitePostResults, which consist of: + phaseID + volFrac + Eulers (3) + any constitutive post results requested
2009-05-07 21:57:36 +05:30
implicit none
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
integer(pInt), intent(in):: &
el, & !< element index
ip, & !< integration point index
ipc !< grain index
major restructuring of code. homogenization as well as constitutive are now free to choose. the runtime got somewhat longer (25% on simple tests) compared to a hardcoded isostrain homogenization. this might be a point of further optimization at a later stage... please use homogenization_isostrain.f90 as starting point / example for future developments of homog-schemes. the homogenization scheme now can additionally output certain results. hence, the userdata structure at each integration point now looks like this: - sizeHomogPostResults - block of that size containing homogPostResults then for each grain: - sizeGrainPostResults - block of that size containing crystallitePostResults, which consist of: + phaseID + volFrac + Eulers (3) + any constitutive post results requested
2009-05-07 21:57:36 +05:30
minor changes to multiphysicsOut
2014-08-10 16:44:43 +05:30
real(pReal), dimension(1+crystallite_sizePostResults(microstructure_crystallite(mesh_element(4,el))) + &
1+plasticState(material_phase(ipc,ip,el))%sizePostResults + &
add pheno+ module in
2015-10-14 00:22:01 +05:30
sum(sourceState(material_phase(ipc,ip,el))%p(:)%sizePostResults)) :: &
minor changes to multiphysicsOut
2014-08-10 16:44:43 +05:30
crystallite_postResults
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
real(pReal), dimension(3,3) :: &
Ee
real(pReal), dimension(4) :: &
rotation
real(pReal) :: &
detF
integer(pInt) :: &
o, &
c, &
crystID, &
mySize, &
n
add pheno+ module in
2015-10-14 00:22:01 +05:30
reworked crystallite part to allow for flexible user output --> new "crystallite" part in config file --> new "crystallite" option for microstructures --> new output file "...job.outputCrystallite" to be used in conjunction with marc_addUserOutput for meaningful naming of User Defined Vars.
2010-02-25 23:09:11 +05:30
added crystallite output "neighboringelement" and "neighboringip" some polishing in crystallite_postResults
2013-05-08 17:32:30 +05:30
crystID = microstructure_crystallite(mesh_element(4,el))
reworked crystallite part to allow for flexible user output --> new "crystallite" part in config file --> new "crystallite" option for microstructures --> new output file "...job.outputCrystallite" to be used in conjunction with marc_addUserOutput for meaningful naming of User Defined Vars.
2010-02-25 23:09:11 +05:30
crystallite_postResults = 0.0_pReal
c = 0_pInt
some lines in crystallite.f90 exceeded limit of 132 characters fixed bug in Lib_VTK_IO.f90 (informed author as well) added zip file containing source of Lib_VTK_IO.f90
2013-05-08 23:18:00 +05:30
crystallite_postResults(c+1) = real(crystallite_sizePostResults(crystID),pReal) ! size of results from cryst
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
c = c + 1_pInt
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
again: adding pInt, removing redundant use statments, chang in dble to real(,pReal)
2012-02-21 22:01:37 +05:30
do o = 1_pInt,crystallite_Noutput(crystID)
shape mismatch in crystallite, invalid names for variables(pos, size) in homogenization corrected. polishing of DAMASK_spectral_interface and makefile
2011-08-01 23:40:55 +05:30
mySize = 0_pInt
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
select case(crystallite_outputID(o,crystID))
case (phase_ID)
shape mismatch in crystallite, invalid names for variables(pos, size) in homogenization corrected. polishing of DAMASK_spectral_interface and makefile
2011-08-01 23:40:55 +05:30
mySize = 1_pInt
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
crystallite_postResults(c+1) = real(material_phase(ipc,ip,el),pReal) ! phaseID of grain
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (texture_ID)
shape mismatch in crystallite, invalid names for variables(pos, size) in homogenization corrected. polishing of DAMASK_spectral_interface and makefile
2011-08-01 23:40:55 +05:30
mySize = 1_pInt
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
crystallite_postResults(c+1) = real(material_texture(ipc,ip,el),pReal) ! textureID of grain
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (volume_ID)
shape mismatch in crystallite, invalid names for variables(pos, size) in homogenization corrected. polishing of DAMASK_spectral_interface and makefile
2011-08-01 23:40:55 +05:30
mySize = 1_pInt
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
detF = math_det33(crystallite_partionedF(1:3,1:3,ipc,ip,el)) ! V_current = det(F) * V_reference
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_postResults(c+1) = detF * mesh_ipVolume(ip,el) &
removed compiler warnings about conversion and floating point comparison
2016-05-27 15:16:34 +05:30
/ real(homogenization_Ngrains(mesh_element(3,el)),pReal) ! grain volume (not fraction but absolute)
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (orientation_ID)
shape mismatch in crystallite, invalid names for variables(pos, size) in homogenization corrected. polishing of DAMASK_spectral_interface and makefile
2011-08-01 23:40:55 +05:30
mySize = 4_pInt
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
crystallite_postResults(c+1:c+mySize) = crystallite_orientation(1:4,ipc,ip,el) ! grain orientation as quaternion
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (eulerangles_ID)
shape mismatch in crystallite, invalid names for variables(pos, size) in homogenization corrected. polishing of DAMASK_spectral_interface and makefile
2011-08-01 23:40:55 +05:30
mySize = 3_pInt
in preguess of FPintegrator: resetting of previous dotstates can be done in same loop as collectdotstate polishing: indentation level and capitalization
2013-11-21 16:28:41 +05:30
crystallite_postResults(c+1:c+mySize) = inDeg &
* math_qToEuler(crystallite_orientation(1:4,ipc,ip,el)) ! grain orientation as Euler angles in degree
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (grainrotation_ID)
shape mismatch in crystallite, invalid names for variables(pos, size) in homogenization corrected. polishing of DAMASK_spectral_interface and makefile
2011-08-01 23:40:55 +05:30
mySize = 4_pInt
grainrotation output now uses corrected rotation math
2013-06-07 15:05:00 +05:30
crystallite_postResults(c+1:c+mySize) = &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
math_qToEulerAxisAngle(crystallite_rotation(1:4,ipc,ip,el)) ! grain rotation away from initial orientation as axis-angle in sample reference coordinates
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
crystallite_postResults(c+4) = inDeg * crystallite_postResults(c+4) ! angle in degree
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (grainrotationx_ID)
new crystallite output "grainrotationX", "grainrotationY", "grainrotationZ" that gives the deviation of the initial orientation in degrees around the sample reference x/y/z axis, while "grainrotation" still gives the same as axis angle pair in crystal coordinates
2013-01-16 14:15:41 +05:30
mySize = 1_pInt
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
rotation = math_qToEulerAxisAngle(crystallite_rotation(1:4,ipc,ip,el)) ! grain rotation away from initial orientation as axis-angle in sample reference coordinates
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
crystallite_postResults(c+1) = inDeg * rotation(1) * rotation(4) ! angle in degree
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (grainrotationy_ID)
new crystallite output "grainrotationX", "grainrotationY", "grainrotationZ" that gives the deviation of the initial orientation in degrees around the sample reference x/y/z axis, while "grainrotation" still gives the same as axis angle pair in crystal coordinates
2013-01-16 14:15:41 +05:30
mySize = 1_pInt
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
rotation = math_qToEulerAxisAngle(crystallite_rotation(1:4,ipc,ip,el)) ! grain rotation away from initial orientation as axis-angle in sample reference coordinates
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
crystallite_postResults(c+1) = inDeg * rotation(2) * rotation(4) ! angle in degree
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (grainrotationz_ID)
new crystallite output "grainrotationX", "grainrotationY", "grainrotationZ" that gives the deviation of the initial orientation in degrees around the sample reference x/y/z axis, while "grainrotation" still gives the same as axis angle pair in crystal coordinates
2013-01-16 14:15:41 +05:30
mySize = 1_pInt
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
rotation = math_qToEulerAxisAngle(crystallite_rotation(1:4,ipc,ip,el)) ! grain rotation away from initial orientation as axis-angle in sample reference coordinates
introduced dummy heat calculation, available as an crystallite output temperature, avgP and avgF are available as homogenization output. move crystallite output of ipcoordinates to homogenization
2013-10-19 00:27:28 +05:30
crystallite_postResults(c+1) = inDeg * rotation(3) * rotation(4) ! angle in degree
new substructure with 'include' and 'config' directories renaming of mpie_... to DAMASK for main usersubroutines extension of element outputs from 5 to 8 digits (FFT!!!)
2011-05-11 22:08:45 +05:30
! remark: tensor output is of the form 11,12,13, 21,22,23, 31,32,33
! thus row index i is slow, while column index j is fast. reminder: "row is slow"
change the debug level of cutback reporting to non-selective, of central solution from basic to extensive, of stiffness perturbation to selective. fixed few typos and deleted excess whitespace.
2014-08-26 20:14:32 +05:30
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (defgrad_ID)
added some output variables in crystallite: F, Fe, Fp, Ee, P, S
2010-05-18 13:27:13 +05:30
mySize = 9_pInt
some lines in crystallite.f90 exceeded limit of 132 characters fixed bug in Lib_VTK_IO.f90 (informed author as well) added zip file containing source of Lib_VTK_IO.f90
2013-05-08 23:18:00 +05:30
crystallite_postResults(c+1:c+mySize) = &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
reshape(math_transpose33(crystallite_partionedF(1:3,1:3,ipc,ip,el)),[mySize])
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (e_ID)
added total Green-Lagrange strain to crystallite outputs
2012-01-20 15:55:35 +05:30
mySize = 9_pInt
crystallite_postResults(c+1:c+mySize) = 0.5_pReal * reshape((math_mul33x33( &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
math_transpose33(crystallite_partionedF(1:3,1:3,ipc,ip,el)), &
crystallite_partionedF(1:3,1:3,ipc,ip,el)) - math_I3),[mySize])
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (fe_ID)
added some output variables in crystallite: F, Fe, Fp, Ee, P, S
2010-05-18 13:27:13 +05:30
mySize = 9_pInt
some lines in crystallite.f90 exceeded limit of 132 characters fixed bug in Lib_VTK_IO.f90 (informed author as well) added zip file containing source of Lib_VTK_IO.f90
2013-05-08 23:18:00 +05:30
crystallite_postResults(c+1:c+mySize) = &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
reshape(math_transpose33(crystallite_Fe(1:3,1:3,ipc,ip,el)),[mySize])
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (ee_ID)
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
Ee = 0.5_pReal *(math_mul33x33(math_transpose33(crystallite_Fe(1:3,1:3,ipc,ip,el)), &
crystallite_Fe(1:3,1:3,ipc,ip,el)) - math_I3)
added some output variables in crystallite: F, Fe, Fp, Ee, P, S
2010-05-18 13:27:13 +05:30
mySize = 9_pInt
polishing: removed variable names like 'unit' and 'data' that are keywords of fortran and ensured that integer and real precision matches independent of machine standard. removed cut_off parameter for damask_spectral removed outpot of derived divergence measures and added RMS output in brackets added comments and options to the makefile
2012-02-16 00:28:38 +05:30
crystallite_postResults(c+1:c+mySize) = reshape(Ee,[mySize])
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (fp_ID)
added some output variables in crystallite: F, Fe, Fp, Ee, P, S
2010-05-18 13:27:13 +05:30
mySize = 9_pInt
some lines in crystallite.f90 exceeded limit of 132 characters fixed bug in Lib_VTK_IO.f90 (informed author as well) added zip file containing source of Lib_VTK_IO.f90
2013-05-08 23:18:00 +05:30
crystallite_postResults(c+1:c+mySize) = &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
reshape(math_transpose33(crystallite_Fp(1:3,1:3,ipc,ip,el)),[mySize])
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
case (fi_ID)
mySize = 9_pInt
crystallite_postResults(c+1:c+mySize) = &
reshape(math_transpose33(crystallite_Fi(1:3,1:3,ipc,ip,el)),[mySize])
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (lp_ID)
added "Lp" as crystallite output
2011-02-25 13:45:26 +05:30
mySize = 9_pInt
some lines in crystallite.f90 exceeded limit of 132 characters fixed bug in Lib_VTK_IO.f90 (informed author as well) added zip file containing source of Lib_VTK_IO.f90
2013-05-08 23:18:00 +05:30
crystallite_postResults(c+1:c+mySize) = &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
reshape(math_transpose33(crystallite_Lp(1:3,1:3,ipc,ip,el)),[mySize])
changes related to intermediate configuration kinematics: - switched Fi and Li from state variables to crystallite variables - Lp and Li are now work conjugate with the corresponding mandel stresses defined in their respective configuration - T, Lp and Li need to return tangents wrt Fi arising from the convection of the material frame due to Fi - Updated analytic jacobian to take into account tangents wrt Fi - Updated Lp and Li residual jacobians to take into account tangents wrt Fi
2015-03-06 18:39:00 +05:30
case (li_ID)
mySize = 9_pInt
crystallite_postResults(c+1:c+mySize) = &
reshape(math_transpose33(crystallite_Li(1:3,1:3,ipc,ip,el)),[mySize])
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (p_ID)
added some output variables in crystallite: F, Fe, Fp, Ee, P, S
2010-05-18 13:27:13 +05:30
mySize = 9_pInt
some lines in crystallite.f90 exceeded limit of 132 characters fixed bug in Lib_VTK_IO.f90 (informed author as well) added zip file containing source of Lib_VTK_IO.f90
2013-05-08 23:18:00 +05:30
crystallite_postResults(c+1:c+mySize) = &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
reshape(math_transpose33(crystallite_P(1:3,1:3,ipc,ip,el)),[mySize])
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (s_ID)
added some output variables in crystallite: F, Fe, Fp, Ee, P, S
2010-05-18 13:27:13 +05:30
mySize = 9_pInt
some lines in crystallite.f90 exceeded limit of 132 characters fixed bug in Lib_VTK_IO.f90 (informed author as well) added zip file containing source of Lib_VTK_IO.f90
2013-05-08 23:18:00 +05:30
crystallite_postResults(c+1:c+mySize) = &
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
reshape(math_Mandel6to33(crystallite_Tstar_v(1:6,ipc,ip,el)),[mySize])
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case (elasmatrix_ID)
added elastic stiffness matrix as crystallite output
2012-03-01 18:36:09 +05:30
mySize = 36_pInt
removed temperature integration and corresponding data structures and debugging options temperature is stored in crystallite, but homogeneous on one IP (not an component (grain) quantity and an input value parsed in by the BVP solver. introduced heat, a component (grain) quantity which is homogenized before returned to the heat transfer solver. went ahead with removal of dummy functions in homogenization and constitutive, this time mainly reduced function signatures to reflect actually needed quantities.
2013-10-16 18:34:59 +05:30
crystallite_postResults(c+1:c+mySize) = reshape(constitutive_homogenizedC(ipc,ip,el),[mySize])
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case(neighboringelement_ID)
added crystallite output "neighboringelement" and "neighboringip" some polishing in crystallite_postResults
2013-05-08 17:32:30 +05:30
mySize = mesh_maxNipNeighbors
crystallite_postResults(c+1:c+mySize) = 0.0_pReal
forall (n = 1_pInt:FE_NipNeighbors(FE_celltype(FE_geomtype(mesh_element(2,el))))) &
crystallite_postResults(c+n) = real(mesh_ipNeighborhood(1,n,ip,el),pReal)
indroduced sourced allocation, enums where applicable (some parts still missing). fixed bug when having recursive file input
2013-12-12 22:39:59 +05:30
case(neighboringip_ID)
added crystallite output "neighboringelement" and "neighboringip" some polishing in crystallite_postResults
2013-05-08 17:32:30 +05:30
mySize = mesh_maxNipNeighbors
crystallite_postResults(c+1:c+mySize) = 0.0_pReal
forall (n = 1_pInt:FE_NipNeighbors(FE_celltype(FE_geomtype(mesh_element(2,el))))) &
crystallite_postResults(c+n) = real(mesh_ipNeighborhood(2,n,ip,el),pReal)
reworked crystallite part to allow for flexible user output --> new "crystallite" part in config file --> new "crystallite" option for microstructures --> new output file "...job.outputCrystallite" to be used in conjunction with marc_addUserOutput for meaningful naming of User Defined Vars.
2010-02-25 23:09:11 +05:30
end select
shape mismatch in crystallite, invalid names for variables(pos, size) in homogenization corrected. polishing of DAMASK_spectral_interface and makefile
2011-08-01 23:40:55 +05:30
c = c + mySize
reworked crystallite part to allow for flexible user output --> new "crystallite" part in config file --> new "crystallite" option for microstructures --> new output file "...job.outputCrystallite" to be used in conjunction with marc_addUserOutput for meaningful naming of User Defined Vars.
2010-02-25 23:09:11 +05:30
enddo
new substructure with 'include' and 'config' directories renaming of mpie_... to DAMASK for main usersubroutines extension of element outputs from 5 to 8 digits (FFT!!!)
2011-05-11 22:08:45 +05:30
no need to allocate a large array for constitutive(thermal,damage)_sizePostResults (changes apply only to new state)
2014-06-30 20:17:30 +05:30
crystallite_postResults(c+1) = real(plasticState(material_phase(ipc,ip,el))%sizePostResults,pReal) ! size of constitutive results
c = c + 1_pInt
subsumed constitutive_damage/thermal into constitutive
2014-09-23 16:08:20 +05:30
if (size(crystallite_postResults)-c > 0_pInt) &
crystallite_postResults(c+1:size(crystallite_postResults)) = &
no need to allocate a large array for constitutive(thermal,damage)_sizePostResults (changes apply only to new state)
2014-06-30 20:17:30 +05:30
constitutive_postResults(crystallite_Tstar_v(1:6,ipc,ip,el), crystallite_Fe, &
removed redundant crystallite_temperature/heat and materialpoint_heat and using temperature from the thermal module
2014-10-10 17:58:57 +05:30
ipc, ip, el)
modified state integrators to perform staggered integration of plasticity damage and thermal internal variables
2014-06-25 04:51:25 +05:30
added new, flexible debugging scheme. now all modules have their own debug specification. compiles and runs, I hope nothing is broken did a lot of polishing
2012-03-09 01:55:28 +05:30
end function crystallite_postResults
major restructuring of code. homogenization as well as constitutive are now free to choose. the runtime got somewhat longer (25% on simple tests) compared to a hardcoded isostrain homogenization. this might be a point of further optimization at a later stage... please use homogenization_isostrain.f90 as starting point / example for future developments of homog-schemes. the homogenization scheme now can additionally output certain results. hence, the userdata structure at each integration point now looks like this: - sizeHomogPostResults - block of that size containing homogPostResults then for each grain: - sizeGrainPostResults - block of that size containing crystallitePostResults, which consist of: + phaseID + volFrac + Eulers (3) + any constitutive post results requested
2009-05-07 21:57:36 +05:30
doxygen comments
2013-02-22 04:38:36 +05:30
end module crystallite