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 newLoadCase%ID(field) = FIELD_DAMAGE_ID
endif damageActive endif damageActive
call newLoadCase%rot%fromEulers(real([0.0,0.0,0.0],pReal))
readMech: do m = 1, step_mech%length readMech: do m = 1, step_mech%length
select case (step_mech%getKey(m)) select case (step_mech%getKey(m))
case('Fdot','L','F') ! assign values for the deformation BC matrix 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%logscale = step_discretization%get_asBool ('log_timestep', defaultVal= .false.)
newLoadCase%outputfrequency = step_discretization%get_asInt ('f_out', defaultVal=1) newLoadCase%outputfrequency = step_discretization%get_asInt ('f_out', defaultVal=1)
newLoadCase%restartfrequency = step_discretization%get_asInt ('f_restart', defaultVal=huge(0)) 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', &
call newLoadCase%rot%fromAxisAngle(step_discretization%get_asFloats('R'),degrees=.true.) defaultVal = real([0.0,0.0,1.0,0.0],pReal)),degrees=.true.)
endif
newLoadCase%followFormerTrajectory = .not. load_step%get_asBool('drop_guessing',defaultVal=.false.) ! do not continue to predict deformation along former trajectory 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(rotation) :: rot !< rotation of BC
type(tBoundaryCondition) :: stress, & !< stress BC type(tBoundaryCondition) :: stress, & !< stress BC
deformation !< deformation BC (Fdot or L) deformation !< deformation BC (Fdot or L)
real(pReal) :: time = 0.0_pReal !< length of increment real(pReal) :: time !< length of increment
integer :: incs = 0, & !< number of increments integer :: incs, & !< number of increments
outputfrequency = 1, & !< frequency of result writes outputfrequency, & !< frequency of result writes
restartfrequency = huge(0) !< frequency of restart writes restartfrequency !< frequency of restart writes
logical :: followFormerTrajectory = .true., & !< follow trajectory of former loadcase logical :: followFormerTrajectory, & !< follow trajectory of former loadcase
logscale = .false. !< logarithmic time inc flag logscale !< logarithmic time inc flag
integer(kind(FIELD_UNDEFINED_ID)), allocatable :: ID(:) integer(kind(FIELD_UNDEFINED_ID)), allocatable :: ID(:)
end type tLoadCase end type tLoadCase