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

52 lines
1.6 KiB
Fortran
Raw Normal View History

doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
!--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
general polishing
2019-01-06 04:25:10 +05:30
!> @author Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH
!> @brief Dummy plasticity for purely elastic material
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +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
module plastic_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
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +05:30
implicit none
private
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
doxygen documentation for constitutive_none
2013-05-17 22:39:42 +05:30
public :: &
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
plastic_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
!--------------------------------------------------------------------------------------------------
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
subroutine plastic_none_init
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
complicated use statements confuse CMake probably we should adopt a similar "use" policy in Fortran as recommended for Python "import" and have all imports at the beginning https://www.python.org/dev/peps/pep-0008/
2019-04-18 19:00:54 +05:30
use material
fixed over-sensitive error in homogeniztion and ifort option in makefile
2013-12-19 14:19:47 +05:30
not needed anymore
2019-03-12 04:37:44 +05:30
integer :: &
general polishing
2019-01-06 04:25:10 +05:30
Ninstance, &
p, &
NipcMyPhase
rename was missing
2019-01-05 14:36:37 +05:30
write(6,'(/,a)') ' <<<+- plastic_'//PLASTICITY_NONE_label//' init -+>>>'
general polishing
2019-01-06 04:25:10 +05:30
not needed anymore
2019-03-12 04:37:44 +05:30
Ninstance = count(phase_plasticity == PLASTICITY_NONE_ID)
if (iand(debug_level(debug_constitutive),debug_levelBasic) /= 0) &
general polishing
2019-01-06 04:25:10 +05:30
write(6,'(a16,1x,i5,/)') '# instances:',Ninstance
not needed anymore
2019-03-12 04:37:44 +05:30
do p = 1, size(phase_plasticity)
general polishing
2019-01-06 04:25:10 +05:30
if (phase_plasticity(p) /= PLASTICITY_NONE_ID) cycle
more changes related to new state
2014-05-22 20:54:12 +05:30
general polishing
2019-01-06 04:25:10 +05:30
NipcMyPhase = count(material_phase == p)
not needed anymore
2019-03-12 04:37:44 +05:30
call material_allocatePlasticState(p,NipcMyPhase,0,0,0, &
0,0,0)
plasticState(p)%sizePostResults = 0
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +05:30
general polishing
2019-01-06 04:25:10 +05:30
enddo
changed to new state, please report bugs to Luv or Martin
2014-07-02 17:57:39 +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
end subroutine plastic_none_init
new plasticity: none see material.config for necessary parameters (lattice_structure, elastic constants)
2012-07-03 16:46:38 +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
end module plastic_none