[Dart-dev] [3296] DART/trunk/filter/filter.f90: Add a call to the destroy() routine for the main observation

[nancy at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080409/02270f15/attachment.html
-------------- next part --------------
Modified: DART/trunk/filter/filter.f90
===================================================================
--- DART/trunk/filter/filter.f90	2008-04-09 19:27:39 UTC (rev 3295)
+++ DART/trunk/filter/filter.f90	2008-04-09 19:36:41 UTC (rev 3296)
@@ -21,7 +21,8 @@
                                  static_init_obs_sequence, destroy_obs, read_obs_seq_header, &
                                  set_qc_meta_data, get_expected_obs, get_first_obs,          &
                                  get_obs_time_range, delete_obs_from_seq, delete_seq_head,   &
-                                 delete_seq_tail, replace_obs_values, replace_qc
+                                 delete_seq_tail, replace_obs_values, replace_qc,            &
+                                 destroy_obs_sequence
 use obs_def_mod,          only : obs_def_type, get_obs_def_error_variance, get_obs_def_time
 use time_manager_mod,     only : time_type, get_time, set_time, operator(/=), operator(>),   &
                                  operator(-)
@@ -576,8 +577,9 @@
 ! Master task must close the log file
 if(my_task_id() == 0) call timestamp(source,revision,revdate,'end')
 
-! Free up the observation kind
+! Free up the observation kind and obs sequence
 call destroy_obs(observation)
+call destroy_obs_sequence(seq)
 
 if(ds) call smoother_end()