choose correct output format for debug_verbosity: integer instead of logical

2011-04-04 08:38:55 +00:00 · 2011-04-04 08:38:55 +00:00 · 6ca8942f62
parent 790dbed1e4
commit 6ca8942f62
1 changed files with 1 additions and 1 deletions
--- 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