set debug_level to be protected as it is read-only for other modules

This commit is contained in:
Martin Diehl 2012-10-02 09:35:39 +00:00
parent 4c7bcb8df9
commit c8b7da432c
1 changed files with 1 additions and 1 deletions

View File

@ -61,7 +61,7 @@ module debug
integer(pInt), parameter, private :: &
debug_maxNtype = debug_abaqus ! must be set to the maximum defined debug type
integer(pInt), dimension(debug_maxNtype+2_pInt), public :: & ! specific ones, and 2 for "all" and "other"
integer(pInt),protected, dimension(debug_maxNtype+2_pInt), public :: & ! specific ones, and 2 for "all" and "other"
debug_level = 0_pInt
integer(pInt), public :: &