[Dart-dev] [5645] DART/branches/development/filter/filter.f90: add a single line to the dart_log file saying what the

[nancy at ucar.edu]

Revision: 5645
Author:   nancy
Date:     2012-04-02 14:16:56 -0600 (Mon, 02 Apr 2012)
Log Message:
-----------
add a single line to the dart_log file saying what the
ensemble size is.  yes, it is in the namelist but we don't
ever print out the value in the log. 

Modified Paths:
--------------
    DART/branches/development/filter/filter.f90

-------------- next part --------------
Modified: DART/branches/development/filter/filter.f90
===================================================================
--- DART/branches/development/filter/filter.f90	2012-04-02 17:58:55 UTC (rev 5644)
+++ DART/branches/development/filter/filter.f90	2012-04-02 20:16:56 UTC (rev 5645)
@@ -211,6 +211,10 @@
    call error_handler(E_ERR,'filter_main', msgstring, source, revision, revdate)
 endif
 
+! informational message to log
+write(msgstring, *) 'running with an ensemble size of ', ens_size
+call error_handler(E_MSG,'filter:', msgstring)
+
 ! See if smoothing is turned on
 ds = do_smoothing()