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

nancy at ucar.edu nancy at ucar.edu
Mon Jun 10 14:07:48 MDT 2013


Revision: 6232
Author:   thoar
Date:     2013-06-10 14:07:47 -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_atm/model_mod.f90

-------------- next part --------------
Modified: DART/branches/development/models/mpas_atm/model_mod.f90
===================================================================
--- DART/branches/development/models/mpas_atm/model_mod.f90	2013-06-05 22:09:20 UTC (rev 6231)
+++ DART/branches/development/models/mpas_atm/model_mod.f90	2013-06-10 20:07:47 UTC (rev 6232)
@@ -4033,7 +4033,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


More information about the Dart-dev mailing list