From 7081931c02623369bac1123bfa99edd94dbfba97 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Wed, 8 Feb 2017 10:02:56 +0100 Subject: [PATCH] cleaning up Marc subroutine flux can be used for specifying volume flux boundary condition (dissipated plastic work) in thermomechanically coupled simulations --- code/DAMASK_marc.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90 index 6c4294163..105db0543 100644 --- a/code/DAMASK_marc.f90 +++ b/code/DAMASK_marc.f90 @@ -385,7 +385,7 @@ end subroutine hypela2 !-------------------------------------------------------------------------------------------------- -!> @brief solve the heat equation +!> @brief calculate internal heat generated due to inelastic energy dissipation !-------------------------------------------------------------------------------------------------- subroutine flux(f,ts,n,time) use prec, only: & @@ -406,9 +406,9 @@ subroutine flux(f,ts,n,time) real(pReal), dimension(2), intent(out) :: & f -! f(1) = materialpoint_heat(n(3),mesh_FEasCP('elem',n(1))) call thermal_conduction_getSourceAndItsTangent(f(1), f(2), ts(3), n(3),mesh_FEasCP('elem',n(1))) -end subroutine flux + + end subroutine flux !--------------------------------------------------------------------------------------------------