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

initialisation not needed

This commit is contained in:
Sharan Roongta 2020-10-14 10:47:52 +02:00
parent 1426a35602
commit f291166a03
2 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/grid/DAMASK_grid.f90
View File

@ -197,7 +197,6 @@ program DAMASK_grid
newLoadCase%ID(field) = FIELD_DAMAGE_ID
endif damageActive
call newLoadCase%rot%fromEulers(real([0.0,0.0,0.0],pReal))
readMech: do m = 1, step_mech%length
select case (step_mech%getKey(m))
case('Fdot','L','F') ! assign values for the deformation BC matrix
@ -236,9 +235,8 @@ program DAMASK_grid
newLoadCase%logscale = step_discretization%get_asBool ('log_timestep', defaultVal= .false.)
newLoadCase%outputfrequency = step_discretization%get_asInt ('f_out', defaultVal=1)
newLoadCase%restartfrequency = step_discretization%get_asInt ('f_restart', defaultVal=huge(0))
if(step_discretization%contains('R')) then
call newLoadCase%rot%fromAxisAngle(step_discretization%get_asFloats('R'),degrees=.true.)
endif
call newLoadCase%rot%fromAxisAngle(step_discretization%get_asFloats('R', &
defaultVal = real([0.0,0.0,1.0,0.0],pReal)),degrees=.true.)
newLoadCase%followFormerTrajectory = .not. load_step%get_asBool('drop_guessing',defaultVal=.false.) ! do not continue to predict deformation along former trajectory

12
src/grid/spectral_utilities.f90
View File

@ -91,12 +91,12 @@ module spectral_utilities
type(rotation) :: rot !< rotation of BC
type(tBoundaryCondition) :: stress, & !< stress BC
deformation !< deformation BC (Fdot or L)
real(pReal) :: time = 0.0_pReal !< length of increment
integer :: incs = 0, & !< number of increments
outputfrequency = 1, & !< frequency of result writes
restartfrequency = huge(0) !< frequency of restart writes
logical :: followFormerTrajectory = .true., & !< follow trajectory of former loadcase
logscale = .false. !< logarithmic time inc flag
real(pReal) :: time !< length of increment
integer :: incs, & !< number of increments
outputfrequency, & !< frequency of result writes
restartfrequency !< frequency of restart writes
logical :: followFormerTrajectory, & !< follow trajectory of former loadcase
logscale !< logarithmic time inc flag
integer(kind(FIELD_UNDEFINED_ID)), allocatable :: ID(:)
end type tLoadCase