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

added some 'protected' statements to variables that shouldn't be changed by other modules

This commit is contained in:
Martin Diehl 2012-09-22 16:49:41 +00:00
parent 8ed69170c5
commit b587bffdd5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
code/DAMASK_spectral_interface.f90
View File

@ -30,11 +30,11 @@ module DAMASK_interface
implicit none implicit none
private private
logical, public :: & logical, protected, public :: &
appendToOutFile = .false. !< Append to existing spectralOut file (in case of restart, not in case of regridding) appendToOutFile = .false. !< Append to existing spectralOut file (in case of restart, not in case of regridding)
integer(pInt), public :: & integer(pInt), protected, public :: &
spectralRestartInc = 1_pInt !< Increment at which calculation starts spectralRestartInc = 1_pInt !< Increment at which calculation starts
character(len=1024), public :: & character(len=1024), protected, public :: &
geometryFile = '', & !< parameter given for geometry file geometryFile = '', & !< parameter given for geometry file
loadCaseFile = '' !< parameter given for load case file loadCaseFile = '' !< parameter given for load case file