[Dart-dev] [4131] DART/trunk/assim_tools/assim_tools_mod.f90: Added a log message about the cutoff radius value read

nancy at ucar.edu nancy at ucar.edu
Thu Nov 5 17:28:51 MST 2009


Revision: 4131
Author:   nancy
Date:     2009-11-05 17:28:51 -0700 (Thu, 05 Nov 2009)
Log Message:
-----------
Added a log message about the cutoff radius value read
from the namelist, using the term localization in the 
text of the message so it's more likely users will 
recognize what this is.

Modified Paths:
--------------
    DART/trunk/assim_tools/assim_tools_mod.f90

-------------- next part --------------
Modified: DART/trunk/assim_tools/assim_tools_mod.f90
===================================================================
--- DART/trunk/assim_tools/assim_tools_mod.f90	2009-11-05 23:03:15 UTC (rev 4130)
+++ DART/trunk/assim_tools/assim_tools_mod.f90	2009-11-06 00:28:51 UTC (rev 4131)
@@ -128,9 +128,14 @@
 ! FOR NOW, can only do spread restoration with filter option 1 (need to extend this)
 if(spread_restoration .and. .not. filter_kind == 1) then
    write(errstring, *) 'cant combine spread_restoration and filter_kind ', filter_kind
-   call error_handler(E_ERR,'assim_tools_init', errstring, source, revision, revdate)
+   call error_handler(E_ERR,'assim_tools_init:', errstring, source, revision, revdate)
 endif
 
+if (do_output()) then
+   write(errstring, '(A,F18.6,A)') 'Using a localization radius of ', cutoff, ' radians'
+   call error_handler(E_MSG,'assim_tools_init:', errstring)
+endif
+
 end subroutine assim_tools_init
 
 !-------------------------------------------------------------


More information about the Dart-dev mailing list