added NAssi-Schneidermann-Diagrams to the documentation for better understanding. Also reordered the declaration of variables in the corresponding function in crystallite.f90
This commit is contained in:
Christoph Kords
parent
364bacf568
commit
e5311476c0
|
|
@ -548,12 +548,29 @@ endsubroutine
|
||||||
i,& ! integration point number
|
i,& ! integration point number
|
||||||
e) ! element number
|
e) ! element number
|
||||||
|
|
||||||
use prec
|
!*** variables and functions from other modules ***!
|
||||||
use debug
|
use prec, only: pReal, &
|
||||||
|
pInt, &
|
||||||
|
nStress, &
|
||||||
|
aTol_crystalliteStress, &
|
||||||
|
rTol_crystalliteStress, &
|
||||||
|
relevantStrain
|
||||||
|
use debug, only: debugger, &
|
||||||
|
debug_cumLpCalls, &
|
||||||
|
debug_cumLpTicks, &
|
||||||
|
debug_StressLoopDistribution
|
||||||
use constitutive, only: constitutive_microstructure, &
|
use constitutive, only: constitutive_microstructure, &
|
||||||
constitutive_homogenizedC, &
|
constitutive_homogenizedC, &
|
||||||
constitutive_LpAndItsTangent
|
constitutive_LpAndItsTangent
|
||||||
use math
|
use math, only: math_mul33x33, &
|
||||||
|
math_mul66x6, &
|
||||||
|
math_mul99x99, &
|
||||||
|
math_inv3x3, &
|
||||||
|
math_invert3x3, &
|
||||||
|
math_i3, &
|
||||||
|
math_identity2nd, &
|
||||||
|
math_Mandel66to3333, &
|
||||||
|
math_mandel33to6
|
||||||
|
|
||||||
implicit none
|
implicit none
|
||||||
|
|
||||||
|
|
@ -565,7 +582,7 @@ endsubroutine
|
||||||
!*** output variables ***!
|
!*** output variables ***!
|
||||||
logical crystallite_integrateStress ! flag indicating if integration suceeded
|
logical crystallite_integrateStress ! flag indicating if integration suceeded
|
||||||
|
|
||||||
!*** internal variables ***!
|
!*** internal local variables ***!
|
||||||
real(pReal), dimension(3,3):: Fg_current, & ! deformation gradient at start of timestep
|
real(pReal), dimension(3,3):: Fg_current, & ! deformation gradient at start of timestep
|
||||||
Fg_new, & ! deformation gradient at end of timestep
|
Fg_new, & ! deformation gradient at end of timestep
|
||||||
Fp_current, & ! plastic deformation gradient at start of timestep
|
Fp_current, & ! plastic deformation gradient at start of timestep
|
||||||
|
|
@ -609,6 +626,15 @@ endsubroutine
|
||||||
tickrate, &
|
tickrate, &
|
||||||
maxticks
|
maxticks
|
||||||
|
|
||||||
|
!*** global variables ***!
|
||||||
|
! crystallite_subF0
|
||||||
|
! crystallite_subF
|
||||||
|
! crystallite_subFp0
|
||||||
|
! crystallite_Tstar_v
|
||||||
|
! crystallite_Lp
|
||||||
|
! crystallite_subdt
|
||||||
|
! crystallite_Temperature
|
||||||
|
|
||||||
|
|
||||||
! be pessimistic
|
! be pessimistic
|
||||||
crystallite_integrateStress = .false.
|
crystallite_integrateStress = .false.
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,34 @@
|
||||||
|
<?xml version="1.0" encoding="ISO-8859-1"?>
|
||||||
|
<root text=""crystallite_integrateStress"" comment="" color="ffffff" type="sub" style="nice">
|
||||||
|
<children>
|
||||||
|
<instruction text=""Fg_current = crystallite_subF0","Fg_new = crystallite_subF","Fp_current = crystallite_subFp0","Fe_current = Fg_current * Fp_current ^ -1","Tstar_v = crystallite_Tstar_v","Lpguess_old = crystallite_Lp","Lpguess = crystallite_Lp","crystallite_integrateStress = .false. "" comment="""" color="ffffff" rotated="0"></instruction>
|
||||||
|
<call text=""invFp_current = math_inv3x3(Fp_current)"" comment="" color="ffffff"></call>
|
||||||
|
<alternative text=""invFp_current == 0.0"" comment="" color="ffffff">
|
||||||
|
<qTrue>
|
||||||
|
<instruction text=""return"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
</qTrue>
|
||||||
|
<qFalse>
|
||||||
|
</qFalse>
|
||||||
|
</alternative>
|
||||||
|
<instruction text=""A = invFp_current ^T * Fg_new ^T * Fg_new * invFp_current"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
<call text=""constitutive_microstructure"" comment="" color="ffffff"></call>
|
||||||
|
<call text=""C = math_Mandel66to3333( constitutive_homogenizedC ( ) )"" comment="" color="ffffff"></call>
|
||||||
|
<instruction text=""NiterationStress = 0","leapfrog = 1.0","maxleap = 1024.0"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
<forever text="" comment="" color="ffffff">
|
||||||
|
<qForever>
|
||||||
|
<instruction text=""LP LOOP (see crystallite_integrateStress_LpLoop)"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
</qForever>
|
||||||
|
</forever>
|
||||||
|
<instruction text=""invFp_new = invFp_current * B","invFp_new = invFp_new / math_det3x3(invFp_new)^(1.0/3.0)"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
<call text=""[Fp_new,det,error] = math_invert3x3(invFp_new)"" comment="" color="ffffff"></call>
|
||||||
|
<alternative text=""error"" comment="" color="ffffff">
|
||||||
|
<qTrue>
|
||||||
|
<instruction text=""INVERSION FAILED: return"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
</qTrue>
|
||||||
|
<qFalse>
|
||||||
|
</qFalse>
|
||||||
|
</alternative>
|
||||||
|
<instruction text=""Fe_new = Fg_new * invFp_new","Tstar_v = Tstar_v + p_hydro"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
<instruction text=""crystallite_P = Fe_new * Tstar_v * invFp_new^T","crystallite_Lp = Lpguess","crystallite_Tstar_v = Tstar_v","crystallite_Fp = Fp_new","crystallite_Fe = Fe_new","crystallite_integrateStress = .true."" comment="""" color="ffffff" rotated="0"></instruction>
|
||||||
|
</children>
|
||||||
|
</root>
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,55 @@
|
||||||
|
<?xml version="1.0" encoding="ISO-8859-1"?>
|
||||||
|
<root text=""crystallite_integrateStress LpLoop"" comment="""" color="ffffff" type="sub" style="nice">
|
||||||
|
<children>
|
||||||
|
<instruction text=""NiterationStress = NiterationStress + 1"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
<alternative text=""NiterationStress > nStress"" comment="" color="ffffff">
|
||||||
|
<qTrue>
|
||||||
|
<instruction text=""TOO MANY ITERATIONS: return"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
</qTrue>
|
||||||
|
<qFalse>
|
||||||
|
</qFalse>
|
||||||
|
</alternative>
|
||||||
|
<instruction text=""B = math_i3 - crystallite_subdt(g,i,e)*Lpguess","Tstar_v = 0.5 * C * (B^T * A * B - math_I3)","p_hydro = sum(Tstar_v(1:3))/3.0","forall (i=1:3) Tstar_v(i) = Tstar_v(i) - p_hydro"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
<call text=""[Lp_constitutive, dLp_constitutive] = constitutive_LpAndItsTangent (Tstar_v, crystallite_Temperature)"" comment="" color="ffffff"></call>
|
||||||
|
<instruction text=""residuum = Lpguess - Lp_constitutive"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
<alternative text=""no NaN ocuured in residuum",".and. (residuum below absolute tolerance .or. (above relevant strain .and. residuum below relative tolerance))"" comment="""" color="ffffff">
|
||||||
|
<qTrue>
|
||||||
|
<jump text=""LOOP CONVERGED: exit LpLoop"" comment="" color="ffffff"></jump>
|
||||||
|
</qTrue>
|
||||||
|
<qFalse>
|
||||||
|
</qFalse>
|
||||||
|
</alternative>
|
||||||
|
<alternative text=""NaN occured in residuum .and. leapfrog == 1.0"" comment="""" color="ffffff">
|
||||||
|
<qTrue>
|
||||||
|
<instruction text=""NO CONVERGENCE: return"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
</qTrue>
|
||||||
|
<qFalse>
|
||||||
|
<alternative text=""leapfrog > 1.0",".and. (worse residuum .or. residuum changed sign .or. NaN occured)"" comment="""" color="ffffff">
|
||||||
|
<qTrue>
|
||||||
|
<instruction text=""maxleap = 0.5 * leapfrog","leapfrog = 1.0","Lpguess = Lpguess_old","residuum = residuum_old"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
</qTrue>
|
||||||
|
<qFalse>
|
||||||
|
<instruction text=""dTdLp = - 0.5 * crystallite_subdt * C * (A*B + B^T*A)","dRdLp = math_identity2nd(9) - dLp_constitutive * dTdLp"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
<call text=""[invdRdLp,dummy,error] = math_invert(9,dRdLp)"" comment="" color="ffffff"></call>
|
||||||
|
<alternative text=""error"" comment="" color="ffffff">
|
||||||
|
<qTrue>
|
||||||
|
<instruction text=""INVERSION FAILED: return"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
</qTrue>
|
||||||
|
<qFalse>
|
||||||
|
</qFalse>
|
||||||
|
</alternative>
|
||||||
|
<instruction text=""residuum_old = residuum","Lpguess_old = Lpguess"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
<alternative text=""NiterationStress > 1 .and. leapfrog < maxleap"" comment="" color="ffffff">
|
||||||
|
<qTrue>
|
||||||
|
<instruction text=""leapfrog = 2.0 * leapfrog"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
</qTrue>
|
||||||
|
<qFalse>
|
||||||
|
</qFalse>
|
||||||
|
</alternative>
|
||||||
|
</qFalse>
|
||||||
|
</alternative>
|
||||||
|
</qFalse>
|
||||||
|
</alternative>
|
||||||
|
<instruction text=""Lpguess = Lpguess - leapfrog * invdRdLp * residuum"" comment="" color="ffffff" rotated="0"></instruction>
|
||||||
|
</children>
|
||||||
|
</root>
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,3 @@
|
||||||
|
Nassi-Schneidermann-Diagrams for selected functions and subroutines:
|
||||||
|
|
||||||
|
- *.nsd and *.pdf files created with the software "Structorizer" Version 3.12
|
||||||
Loading…
Reference in New Issue