[Dart-dev] [3770] DART/trunk/smoother/smoother_mod.f90: missed adding the messages at the start of the lags

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090206/57247601/attachment.html
-------------- next part --------------
Modified: DART/trunk/smoother/smoother_mod.f90
===================================================================
--- DART/trunk/smoother/smoother_mod.f90	2009-02-06 21:21:33 UTC (rev 3769)
+++ DART/trunk/smoother/smoother_mod.f90	2009-02-06 21:23:50 UTC (rev 3770)
@@ -351,6 +351,10 @@
 
 do i = 1, num_lags
    call all_vars_to_all_copies(lag_handle(i))
+
+   write(errstring, *)'starting assimilate pass for lag ', i
+   call error_handler(E_MSG,'smoother_assim',errstring)
+
    ! NEED A LAG INFLATE TYPE THAT DOES NO INFLATION FOR NOW
    call filter_assim(lag_handle(i), obs_ens_handle, seq, keys, ens_size, num_groups, &
       obs_val_index, lag_inflate, ENS_MEAN_COPY, ENS_SD_COPY, &