From b16508dd6cd3cafc6f37f494311a8b310032cd62 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 14 Jul 2020 07:40:42 +0200 Subject: [PATCH] clean namespace --- src/constitutive.f90 | 3 ++- src/constitutive_plastic_nonlocal.f90 | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/constitutive.f90 b/src/constitutive.f90 index d920c481f..128b45d53 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -15,7 +15,8 @@ module constitutive use results use lattice use discretization - use geometry_plastic_nonlocal + use geometry_plastic_nonlocal, only: & + geometry_plastic_nonlocal_disable use source_thermal_dissipation use source_thermal_externalheat use source_damage_isoBrittle diff --git a/src/constitutive_plastic_nonlocal.f90 b/src/constitutive_plastic_nonlocal.f90 index 19f9794d7..dfd9dbaac 100644 --- a/src/constitutive_plastic_nonlocal.f90 +++ b/src/constitutive_plastic_nonlocal.f90 @@ -387,7 +387,7 @@ module subroutine plastic_nonlocal_init call material_allocateState(plasticState(p),NipcMyPhase,sizeState,sizeDotState,sizeDeltaState) plasticState(p)%nonlocal = config%KeyExists('/nonlocal/') - if(plasticState(p)%nonlocal .and. .not. allocated(geometry_plastic_nonlocal_IPneighborhood)) & + if(plasticState(p)%nonlocal .and. .not. allocated(IPneighborhood)) & call IO_error(212,ext_msg='IPneighborhood does not exist')