From 07ebd8d1b3e92efe14e76d7b67c475a503539360 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 9 Dec 2019 05:48:37 +0100 Subject: [PATCH] only damage/thermal 'homogenization' postResults is currently needed --- src/crystallite.f90 | 18 ------------------ src/damage_nonlocal.f90 | 2 +- src/homogenization.f90 | 10 +++------- 3 files changed, 4 insertions(+), 26 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index dffd4079a..4ae87b82e 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -108,7 +108,6 @@ module crystallite crystallite_stressTangent, & crystallite_orientations, & crystallite_push33ToRef, & - crystallite_postResults, & crystallite_results contains @@ -732,23 +731,6 @@ function crystallite_push33ToRef(ipc,ip,el, tensor33) end function crystallite_push33ToRef -!-------------------------------------------------------------------------------------------------- -!> @brief return results of particular grain -!-------------------------------------------------------------------------------------------------- -function crystallite_postResults(ipc, ip, el) - - integer, intent(in):: & - el, & !< element index - ip, & !< integration point index - ipc !< grain index - - real(pReal), dimension(2) :: crystallite_postResults - - crystallite_postResults = 0.0_pReal - -end function crystallite_postResults - - !-------------------------------------------------------------------------------------------------- !> @brief writes crystallite results to HDF5 output file !-------------------------------------------------------------------------------------------------- diff --git a/src/damage_nonlocal.f90 b/src/damage_nonlocal.f90 index 0a8a3c867..d37f68486 100644 --- a/src/damage_nonlocal.f90 +++ b/src/damage_nonlocal.f90 @@ -55,7 +55,7 @@ contains !-------------------------------------------------------------------------------------------------- subroutine damage_nonlocal_init - integer :: maxNinstance,homog,instance,o,i + integer :: maxNinstance,homog,instance,i integer :: sizeState integer :: NofMyHomog, h integer(kind(undefined_ID)) :: & diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 0112f9cf5..c5250f9d2 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -583,7 +583,7 @@ end subroutine materialpoint_stressAndItsTangent !-------------------------------------------------------------------------------------------------- -!> @brief parallelized calculation of result array at material points +!> @brief calculation of result array at material points !-------------------------------------------------------------------------------------------------- subroutine materialpoint_postResults @@ -595,7 +595,6 @@ subroutine materialpoint_postResults i, & !< integration point number e !< element number - !$OMP PARALLEL DO PRIVATE(myNgrains,thePos,theSize) elementLooping: do e = FEsolving_execElem(1),FEsolving_execElem(2) myNgrains = homogenization_Ngrains(material_homogenizationAt(e)) IpLooping: do i = FEsolving_execIP(1,e),FEsolving_execIP(2,e) @@ -615,15 +614,12 @@ subroutine materialpoint_postResults thePos = thePos + 1 grainLooping :do g = 1,myNgrains - theSize = 1 + & - 1 + & - sum(sourceState(material_phaseAt(g,e))%p(:)%sizePostResults) - materialpoint_results(thePos+1:thePos+theSize,i,e) = crystallite_postResults(g,i,e) ! tell crystallite results + theSize = 2 + materialpoint_results(thePos+1:thePos+theSize,i,e) = 0.0_pReal thePos = thePos + theSize enddo grainLooping enddo IpLooping enddo elementLooping - !$OMP END PARALLEL DO end subroutine materialpoint_postResults