From c8b7da432c06f6b4ea3b1f66b7ddee164f68c6ab Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 2 Oct 2012 09:35:39 +0000 Subject: [PATCH] set debug_level to be protected as it is read-only for other modules --- code/debug.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/debug.f90 b/code/debug.f90 index 8dfcec6be..dfe266254 100644 --- a/code/debug.f90 +++ b/code/debug.f90 @@ -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 :: &