From fdc48a7987757c2b5d9bde33827c8694949eae41 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 25 Jan 2021 14:43:09 +0100 Subject: [PATCH] not used --- src/constitutive.f90 | 3 +-- src/homogenization.f90 | 11 ----------- 2 files changed, 1 insertion(+), 13 deletions(-) diff --git a/src/constitutive.f90 b/src/constitutive.f90 index 630756ec4..1412f5259 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -489,7 +489,7 @@ subroutine constitutive_restore(ce,includeL) do co = 1,homogenization_Nconstituents(material_homogenizationAt2(ce)) do so = 1, phase_Nsources(material_phaseAt2(co,ce)) - damageState(material_phaseAt2(co,ce))%p(so)%state( :,material_phasememberAt2(co,ce)) = & + damageState(material_phaseAt2(co,ce))%p(so)%state( :,material_phasememberAt2(co,ce)) = & damageState(material_phaseAt2(co,ce))%p(so)%state0(:,material_phasememberAt2(co,ce)) enddo enddo @@ -559,7 +559,6 @@ subroutine crystallite_init() iMax, & !< maximum number of integration points eMax !< maximum number of elements - class(tNode), pointer :: & num_crystallite, & debug_crystallite, & ! pointer to debug options for crystallite diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 5523f38ac..9d5ea5d4f 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -38,10 +38,6 @@ module homogenization type :: tNumerics integer :: & nMPstate !< materialpoint state loop limit - real(pReal) :: & - subStepMinHomog, & !< minimum (relative) size of sub-step allowed during cutback in homogenization - subStepSizeHomog, & !< size of first substep when cutback in homogenization - stepIncreaseHomog !< increase of next substep size when previous substep converged in homogenization end type tNumerics type(tNumerics) :: num @@ -200,14 +196,7 @@ subroutine homogenization_init() num_homogGeneric => num_homog%get('generic',defaultVal=emptyDict) num%nMPstate = num_homogGeneric%get_asInt ('nMPstate', defaultVal=10) - num%subStepMinHomog = num_homogGeneric%get_asFloat('subStepMin', defaultVal=1.0e-3_pReal) - num%subStepSizeHomog = num_homogGeneric%get_asFloat('subStepSize', defaultVal=0.25_pReal) - num%stepIncreaseHomog = num_homogGeneric%get_asFloat('stepIncrease', defaultVal=1.5_pReal) - if (num%nMPstate < 1) call IO_error(301,ext_msg='nMPstate') - if (num%subStepMinHomog <= 0.0_pReal) call IO_error(301,ext_msg='subStepMinHomog') - if (num%subStepSizeHomog <= 0.0_pReal) call IO_error(301,ext_msg='subStepSizeHomog') - if (num%stepIncreaseHomog <= 0.0_pReal) call IO_error(301,ext_msg='stepIncreaseHomog') call mech_init(num_homog)