[Dart-dev] [4056] DART/trunk/time_manager/schedule_mod.f90: make it check to be sure it should before writing the namelists out.

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090918/1a780729/attachment.html 
-------------- next part --------------
Modified: DART/trunk/time_manager/schedule_mod.f90
===================================================================
--- DART/trunk/time_manager/schedule_mod.f90	2009-09-18 21:07:51 UTC (rev 4055)
+++ DART/trunk/time_manager/schedule_mod.f90	2009-09-18 21:47:45 UTC (rev 4056)
@@ -15,7 +15,8 @@
 
 use    utilities_mod, only : error_handler, E_DBG, E_MSG, E_WARN, E_ERR, &
                              register_module, nmlfileunit, do_output, &
-                             check_namelist_read, find_namelist_in_file
+                             check_namelist_read, find_namelist_in_file, &
+                             do_nml_file, do_nml_term
 
 use time_manager_mod, only : time_type, set_calendar_type, get_calendar_type, &
                              set_time, set_date, get_time, get_date, &
@@ -109,8 +110,8 @@
 call check_namelist_read(iunit, io, "schedule_nml")
 
 ! Write the namelist values to the log file
-if (do_output()) write(nmlfileunit, nml=schedule_nml)
-if (do_output()) write(     *     , nml=schedule_nml)
+if (do_nml_file()) write(nmlfileunit, nml=schedule_nml)
+if (do_nml_term()) write(     *     , nml=schedule_nml)
 
 call set_calendar_type(calendar)