From cb0d407ce4ca6ed95489a8cd0fff218af012525e Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 26 Mar 2021 12:40:01 +0100 Subject: [PATCH] not used --- examples/config/debug.yaml | 12 +++++------- src/CMakeLists.txt | 2 +- src/phase.f90 | 6 ------ 3 files changed, 6 insertions(+), 14 deletions(-) diff --git a/examples/config/debug.yaml b/examples/config/debug.yaml index a28c04320..94de168f4 100644 --- a/examples/config/debug.yaml +++ b/examples/config/debug.yaml @@ -1,13 +1,11 @@ material: [basic, extensive] # material.f90, possible values: basic, extensive 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 -# -# Parameters for selective -element: 1 # selected element for debugging -integrationpoint: 1 # selected integration point for debugging -grain: 1 # selected grain at ip for debugging + +# options for selective debugging +element: 1 +integrationpoint: 1 +grain: 1 # solver-specific mesh: [basic] diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt index 0cb697013..c20754a67 100644 --- a/src/CMakeLists.txt +++ b/src/CMakeLists.txt @@ -8,7 +8,7 @@ file(GLOB damask-sources *.f90 *.c) # probably we should have a subfolder for MSC.Marc 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") diff --git a/src/phase.f90 b/src/phase.f90 index add26ae0b..5a9eaa518 100644 --- a/src/phase.f90 +++ b/src/phase.f90 @@ -58,8 +58,6 @@ module phase grain end type tDebugOptions - type(tDebugOptions) :: debugCrystallite - integer, dimension(:), allocatable, public :: & !< ToDo: should be protected (bug in Intel compiler) phase_elasticityInstance, & phase_NstiffnessDegradations @@ -497,15 +495,11 @@ subroutine crystallite_init() class(tNode), pointer :: & num_crystallite, & - debug_crystallite, & ! pointer to debug options for crystallite phases print'(/,a)', ' <<<+- crystallite init -+>>>' - debug_crystallite => config_debug%get('crystallite', defaultVal=emptyList) - debugCrystallite%extensive = debug_crystallite%contains('extensive') - cMax = homogenization_maxNconstituents iMax = discretization_nIPs eMax = discretization_Nelems