223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

not used

This commit is contained in:
Sharan Roongta 2023-12-29 17:38:41 +01:00
parent 2179530d5f
commit 2368200138
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mesh/DAMASK_mesh.f90
View File

@ -25,7 +25,7 @@ program DAMASK_mesh
type :: tLoadCase type :: tLoadCase
real(pREAL) :: t = 0.0_pREAL !< length of increment real(pREAL) :: t = 0.0_pREAL !< length of increment
integer :: N = 0, & !< number of increments integer :: N = 0, & !< number of increments
f_out = 1 !< frequency of result writes f_out = 1 !< frequency of result writes
logical :: estimate_rate = .true. !< follow trajectory of former loadcase logical :: estimate_rate = .true. !< follow trajectory of former loadcase
type(tMechBC), allocatable, dimension(:) :: mechBC type(tMechBC), allocatable, dimension(:) :: mechBC
end type tLoadCase end type tLoadCase
@ -39,8 +39,7 @@ program DAMASK_mesh
t = 0.0_pREAL, & !< elapsed time t = 0.0_pREAL, & !< elapsed time
t_0 = 0.0_pREAL, & !< begin of interval t_0 = 0.0_pREAL, & !< begin of interval
Delta_t = 0.0_pREAL, & !< current time interval Delta_t = 0.0_pREAL, & !< current time interval
Delta_t_prev = 0.0_pREAL, & !< previous time interval Delta_t_prev = 0.0_pREAL !< previous time interval
t_remaining = 0.0_pREAL !< remaining time of current load case
logical :: & logical :: &
guess, & !< guess along former trajectory guess, & !< guess along former trajectory
stagIterate stagIterate
@ -219,7 +218,6 @@ program DAMASK_mesh
stepFraction = 0 ! fraction scaled by stepFactor**cutLevel stepFraction = 0 ! fraction scaled by stepFactor**cutLevel
subStepLooping: do while (stepFraction < subStepFactor**cutBackLevel) subStepLooping: do while (stepFraction < subStepFactor**cutBackLevel)
t_remaining = loadCases(l)%t + t_0 - t
t = t + Delta_t ! forward target time t = t + Delta_t ! forward target time
stepFraction = stepFraction + 1 ! count step stepFraction = stepFraction + 1 ! count step