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

better readable

This commit is contained in:
Martin Diehl 2020-10-21 21:12:55 +02:00
parent ba260e062a
commit 1c13737935
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/SpectralMethod/Polycrystal/shearXY.yaml
View File

@ -1,7 +1,8 @@
step: step:
- mech: - mech:
dot_F: [0, 0, 0, 1e-3, 0, 0, 0, 0, 0] dot_F: [0, 0, 0,
P: [x, x, x, x, x, x, x, x, x] 1e-3, 0, 0,
0, 0, 0]
discretization: discretization:
t: 60 t: 60
N: 120 N: 120

11
src/grid/DAMASK_grid.f90
View File

@ -53,20 +53,19 @@ program DAMASK_grid
i, j, m, field, & i, j, m, field, &
errorID = 0, & errorID = 0, &
cutBackLevel = 0, & !< cut back level \f$ t = \frac{t_{inc}}{2^l} \f$ cutBackLevel = 0, & !< cut back level \f$ t = \frac{t_{inc}}{2^l} \f$
stepFraction = 0 !< fraction of current time interval stepFraction = 0, & !< fraction of current time interval
integer :: &
l = 0, & !< current load case l = 0, & !< current load case
inc, & !< current increment in current load case inc, & !< current increment in current load case
totalIncsCounter = 0, & !< total # of increments totalIncsCounter = 0, & !< total # of increments
statUnit = 0, & !< file unit for statistics output statUnit = 0, & !< file unit for statistics output
stagIter, & stagIter, &
nActiveFields = 0 nActiveFields = 0, &
maxCutBack, & !< max number of cut backs
stagItMax !< max number of field level staggered iterations
character(len=pStringLen) :: & character(len=pStringLen) :: &
incInfo, & incInfo, &
loadcase_string loadcase_string
integer :: &
maxCutBack, & !< max number of cut backs
stagItMax !< max number of field level staggered iterations
type(tLoadCase), allocatable, dimension(:) :: loadCases !< array of all load cases type(tLoadCase), allocatable, dimension(:) :: loadCases !< array of all load cases
type(tSolutionState), allocatable, dimension(:) :: solres type(tSolutionState), allocatable, dimension(:) :: solres
procedure(grid_mech_spectral_basic_init), pointer :: & procedure(grid_mech_spectral_basic_init), pointer :: &