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

avoid public variables

This commit is contained in:
Martin Diehl 2019-10-25 00:53:48 +02:00
parent 378729f5c4
commit eb4cad17b5
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/FEsolving.f90
View File

@ -12,7 +12,6 @@ module FEsolving
private private
logical, public :: & logical, public :: &
restartWrite = .false., & !< write current state to enable restart
terminallyIll = .false. !< at least one material point is terminally ill terminallyIll = .false. !< at least one material point is terminally ill
integer, dimension(:,:), allocatable, public :: & integer, dimension(:,:), allocatable, public :: &

1
src/grid/DAMASK_grid.f90
View File

@ -476,7 +476,6 @@ program DAMASK_spectral
case(FIELD_DAMAGE_ID); call grid_damage_spectral_forward case(FIELD_DAMAGE_ID); call grid_damage_spectral_forward
end select end select
enddo enddo
if (restartWrite .and. .not. cutBack) restartWrite = .false.
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! solve fields ! solve fields