From 6ca8942f62e770640967699a0cc63e925ceb417e Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Mon, 4 Apr 2011 08:38:55 +0000 Subject: [PATCH] choose correct output format for debug_verbosity: integer instead of logical --- code/debug.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/debug.f90 b/code/debug.f90 index 58085dba2..f9d8c0cef 100644 --- a/code/debug.f90 +++ b/code/debug.f90 @@ -128,7 +128,7 @@ subroutine debug_init() if (debug_verbosity > 0) then !$OMP CRITICAL (write2out) - write(6,'(a24,x,l)') 'verbose: ',debug_verbosity + write(6,'(a24,x,i1)') 'verbose: ',debug_verbosity write(6,'(a24,x,l)') 'selective: ',debug_selectiveDebugger !$OMP END CRITICAL (write2out) endif