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

View File

@ -30,11 +30,11 @@ module DAMASK_interface
implicit none
private
logical, public :: &
logical, protected, public :: &
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
character(len=1024), public :: &
character(len=1024), protected, public :: &
geometryFile = '', & !< parameter given for geometry file
loadCaseFile = '' !< parameter given for load case file