[Dart-dev] [6233] DART/branches/development/models/mpas_ocn/model_mod.f90: fixed use of the debug variable and added the condition

[nancy at ucar.edu]

Revision: 6233
Author:   thoar
Date:     2013-06-10 14:12:28 -0600 (Mon, 10 Jun 2013)
Log Message:
-----------
fixed use of the debug variable and added the condition
that it only get printed with do_output() .

Modified Paths:
--------------
    DART/branches/development/models/mpas_ocn/model_mod.f90

-------------- next part --------------
Modified: DART/branches/development/models/mpas_ocn/model_mod.f90
===================================================================
--- DART/branches/development/models/mpas_ocn/model_mod.f90	2013-06-10 20:07:47 UTC (rev 6232)
+++ DART/branches/development/models/mpas_ocn/model_mod.f90	2013-06-10 20:12:28 UTC (rev 6233)
@@ -4023,7 +4023,7 @@
         progvar(ivar)%clamping = .true.
         progvar(ivar)%range    = (/ lower_bound, upper_bound /)
 
-        if ( debug ) then
+        if ((debug > 0) .and. do_output()) then
            write(*,*) 'In get_variable_bounds assigned ', trim(progvar(ivar)%varname)
            write(*,*) ' clamping range  ',progvar(ivar)%range
         endif