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/constitutive_none.f90

86 lines
3.0 KiB
Fortran
Raw Normal View History

doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
!--------------------------------------------------------------------------------------------------
! $Id$
!--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
!> @brief material subroutine for purely elastic material
!--------------------------------------------------------------------------------------------------
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
module constitutive_none
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
use prec, only: &
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
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
implicit none
private
improved on enums (introduced them for output in j2), fixed wrong recursion depth bug in IO, fixed a bug in reading in for none, j2, phenopowerlaw
2013-12-12 03:33:09 +05:30
integer(pInt), dimension(:), allocatable, public, protected :: &
more changes related to new state
2014-05-22 20:54:12 +05:30
#ifndef NEWSTATE
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
constitutive_none_sizeDotState, &
constitutive_none_sizeState, &
more changes related to new state
2014-05-22 20:54:12 +05:30
#endif
moved stiffness tensor calculation to lattice introduced 'isotropic' and 'orthorhombic' lattice types to use corresponding symmetries in stiffness tensor. intended to be used with non-crystal plasticity models (j2, constitutive_none with isotropic, cubic or orthotropic elasticity).
2013-01-22 03:27:26 +05:30
constitutive_none_sizePostResults
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
improved on enums (introduced them for output in j2), fixed wrong recursion depth bug in IO, fixed a bug in reading in for none, j2, phenopowerlaw
2013-12-12 03:33:09 +05:30
integer(pInt), dimension(:,:), allocatable, target, public :: &
more documentation and parameters capitalization unified and using ipc in all modules (sometimes called gr) nonlocal: only missing line continuation in string fixed
2013-07-01 11:40:42 +05:30
constitutive_none_sizePostResult !< size of each post result output
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
public :: &
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
constitutive_none_init
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
more documentation and parameters capitalization unified and using ipc in all modules (sometimes called gr) nonlocal: only missing line continuation in string fixed
2013-07-01 11:40:42 +05:30
contains
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
!--------------------------------------------------------------------------------------------------
more documentation and parameters capitalization unified and using ipc in all modules (sometimes called gr) nonlocal: only missing line continuation in string fixed
2013-07-01 11:40:42 +05:30
!> @brief module initialization
!> @details reads in material parameters, allocates arrays, and does sanity checks
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
!--------------------------------------------------------------------------------------------------
improved on enums (introduced them for output in j2), fixed wrong recursion depth bug in IO, fixed a bug in reading in for none, j2, phenopowerlaw
2013-12-12 03:33:09 +05:30
subroutine constitutive_none_init(fileUnit)
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment)
fixed over-sensitive error in homogeniztion and ifort option in makefile
2013-12-19 14:19:47 +05:30
use debug, only: &
debug_level, &
debug_constitutive, &
debug_levelBasic
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
use IO, 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
IO_timeStamp
fixed over-sensitive error in homogeniztion and ifort option in makefile
2013-12-19 14:19:47 +05:30
use material, only: &
phase_plasticity, &
phase_Noutput, &
PLASTICITY_NONE_label, &
more changes related to new state
2014-05-22 20:54:12 +05:30
#ifdef NEWSTATE
material_phase, &
plasticState, &
#endif
fixed over-sensitive error in homogeniztion and ifort option in makefile
2013-12-19 14:19:47 +05:30
PLASTICITY_NONE_ID, &
MATERIAL_partPhase
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
implicit none
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
improved on enums (introduced them for output in j2), fixed wrong recursion depth bug in IO, fixed a bug in reading in for none, j2, phenopowerlaw
2013-12-12 03:33:09 +05:30
integer(pInt), intent(in) :: fileUnit
more changes related to new state
2014-05-22 20:54:12 +05:30
integer(pInt) :: &
maxNinstance, &
phase
remove omp statements during initialization, "line" for reading in from material.config now has a default (empty) value to prevent conditional jump depend on this value
2013-01-09 03:41:59 +05:30
introduced named constants for homogenization_type, phase_plasticitiy, and phase_elasticity to replace expensive string comparison. Labels for different schemes need to be stored in material.f90 because they are needed when parsing the config file
2013-11-27 13:34:05 +05:30
write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_NONE_label//' init -+>>>'
init reporting of constitutive_*.f90 had less/to much spaces, renamed label to LABEL because it is a parameter. removed debug output of geom_fromEuclideanDistance.py
2013-05-28 23:01:55 +05:30
write(6,'(a)') ' $Id$'
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
#include "compilation_info.f90"
introduced named constants for homogenization_type, phase_plasticitiy, and phase_elasticity to replace expensive string comparison. Labels for different schemes need to be stored in material.f90 because they are needed when parsing the config file
2013-11-27 13:34:05 +05:30
maxNinstance = int(count(phase_plasticity == PLASTICITY_NONE_ID),pInt)
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
if (maxNinstance == 0_pInt) return
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0_pInt) &
write(6,'(a16,1x,i5,/)') '# instances:',maxNinstance
more changes related to new state
2014-05-22 20:54:12 +05:30
#ifdef NEWSTATE
initializeInstances: do phase = 1_pInt, size(phase_plasticity)
if (phase_plasticity(phase) == PLASTICITY_none_ID .and. count(material_phase==phase)/=0) &
more work on the new state
2014-05-27 20:16:03 +05:30
plasticState(phase)%sizeState = 0_pInt
more changes related to new state
2014-05-22 20:54:12 +05:30
enddo initializeInstances
#else
improved sanity checks, mainly for RGC
2013-12-20 14:06:15 +05:30
allocate(constitutive_none_sizeDotState(maxNinstance), source=1_pInt)
allocate(constitutive_none_sizeState(maxNinstance), source=1_pInt)
more changes related to new state
2014-05-22 20:54:12 +05:30
#endif
improved on enums (introduced them for output in j2), fixed wrong recursion depth bug in IO, fixed a bug in reading in for none, j2, phenopowerlaw
2013-12-12 03:33:09 +05:30
allocate(constitutive_none_sizePostResults(maxNinstance), source=0_pInt)
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
end subroutine constitutive_none_init
end module constitutive_none