This commit is contained in:
Martin Diehl 2021-03-26 12:40:01 +01:00
parent 6a2c107723
commit cb0d407ce4
3 changed files with 6 additions and 14 deletions

View File

@ -1,13 +1,11 @@
material: [basic, extensive] # material.f90, possible values: basic, extensive material: [basic, extensive] # material.f90, possible values: basic, extensive
constitutive: [basic, extensive, selective] # constitutive_*.f90 possible values: basic, extensive, selective constitutive: [basic, extensive, selective] # constitutive_*.f90 possible values: basic, extensive, selective
crystallite: [basic, extensive, selective] # crystallite.f90 possible values: basic, extensive, selective
homogenization: [basic, extensive, selective] # homogenization_*.f90 possible values: basic, extensive, selective
cpfem: [basic, extensive, selective] # CPFEM.f90 possible values: basic, extensive, selective cpfem: [basic, extensive, selective] # CPFEM.f90 possible values: basic, extensive, selective
#
# Parameters for selective # options for selective debugging
element: 1 # selected element for debugging element: 1
integrationpoint: 1 # selected integration point for debugging integrationpoint: 1
grain: 1 # selected grain at ip for debugging grain: 1
# solver-specific # solver-specific
mesh: [basic] mesh: [basic]

View File

@ -8,7 +8,7 @@ file(GLOB damask-sources *.f90 *.c)
# probably we should have a subfolder for MSC.Marc # probably we should have a subfolder for MSC.Marc
list(FILTER damask-sources EXCLUDE REGEX ".*CPFEM.f90") list(FILTER damask-sources EXCLUDE REGEX ".*CPFEM.f90")
list(FILTER damask-sources EXCLUDE REGEX ".*DAMASK_marc.*.f90") list(FILTER damask-sources EXCLUDE REGEX ".*DAMASK_Marc.*.f90")
list(FILTER damask-sources EXCLUDE REGEX ".*commercialFEM_fileList.*.f90") list(FILTER damask-sources EXCLUDE REGEX ".*commercialFEM_fileList.*.f90")

View File

@ -58,8 +58,6 @@ module phase
grain grain
end type tDebugOptions end type tDebugOptions
type(tDebugOptions) :: debugCrystallite
integer, dimension(:), allocatable, public :: & !< ToDo: should be protected (bug in Intel compiler) integer, dimension(:), allocatable, public :: & !< ToDo: should be protected (bug in Intel compiler)
phase_elasticityInstance, & phase_elasticityInstance, &
phase_NstiffnessDegradations phase_NstiffnessDegradations
@ -497,15 +495,11 @@ subroutine crystallite_init()
class(tNode), pointer :: & class(tNode), pointer :: &
num_crystallite, & num_crystallite, &
debug_crystallite, & ! pointer to debug options for crystallite
phases phases
print'(/,a)', ' <<<+- crystallite init -+>>>' print'(/,a)', ' <<<+- crystallite init -+>>>'
debug_crystallite => config_debug%get('crystallite', defaultVal=emptyList)
debugCrystallite%extensive = debug_crystallite%contains('extensive')
cMax = homogenization_maxNconstituents cMax = homogenization_maxNconstituents
iMax = discretization_nIPs iMax = discretization_nIPs
eMax = discretization_Nelems eMax = discretization_Nelems