From 042ff7e491df11956cd43a2344a395299a01359c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 7 Jun 2019 07:44:34 +0200 Subject: [PATCH] microstructure is only a property of the discretization will be used only by material.f90 once crystallite is removed --- src/crystallite.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 5f9103289..df3782756 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -364,7 +364,7 @@ subroutine crystallite_init call IO_write_jobFile(FILEUNIT,'outputCrystallite') do r = 1,size(config_crystallite) - if (any(microstructure_crystallite(material_microstructureAt(:)) == r)) then + if (any(microstructure_crystallite(discretization_microstructureAt) == r)) then write(FILEUNIT,'(/,a,/)') '['//trim(crystallite_name(r))//']' do o = 1,crystallite_Noutput(r) write(FILEUNIT,'(a,i4)') trim(crystallite_output(o,r))//char(9),crystallite_sizePostResult(o,r) @@ -884,7 +884,7 @@ function crystallite_postResults(ipc, ip, el) ip, & !< integration point index ipc !< grain index - real(pReal), dimension(1+crystallite_sizePostResults(microstructure_crystallite(material_microstructureAt(el))) + & + real(pReal), dimension(1+crystallite_sizePostResults(microstructure_crystallite(discretization_microstructureAt(el))) + & 1+plasticState(material_phase(ipc,ip,el))%sizePostResults + & sum(sourceState(material_phase(ipc,ip,el))%p(:)%sizePostResults)) :: & crystallite_postResults @@ -896,7 +896,7 @@ function crystallite_postResults(ipc, ip, el) n type(rotation) :: rot - crystID = microstructure_crystallite(material_microstructureAt(el)) + crystID = microstructure_crystallite(discretization_microstructureAt(el)) crystallite_postResults = 0.0_pReal crystallite_postResults(1) = real(crystallite_sizePostResults(crystID),pReal) ! header-like information (length)