[Dart-dev] DART/branches Revision: 12693

[dart at ucar.edu]

nancy at ucar.edu
2018-06-28 09:40:33 -0600 (Thu, 28 Jun 2018)
89
on recam branch - remove unused vars and fix the
name of the namelist in the html file.




Modified: DART/branches/recam/assimilation_code/programs/obs_keep_a_few/obs_keep_a_few.html
===================================================================
--- DART/branches/recam/assimilation_code/programs/obs_keep_a_few/obs_keep_a_few.html	2018-06-27 22:31:30 UTC (rev 12692)
+++ DART/branches/recam/assimilation_code/programs/obs_keep_a_few/obs_keep_a_few.html	2018-06-28 15:40:33 UTC (rev 12693)
@@ -104,7 +104,7 @@
 
 <div class=namelist>
 <pre>
-&obs_loop_nml
+&obs_keep_a_few_nml
    filename_in        = ''
    filename_out       = '' 
    max_count_per_type = 10

Modified: DART/branches/recam/assimilation_code/programs/obs_loop/obs_loop.f90
===================================================================
--- DART/branches/recam/assimilation_code/programs/obs_loop/obs_loop.f90	2018-06-27 22:31:30 UTC (rev 12692)
+++ DART/branches/recam/assimilation_code/programs/obs_loop/obs_loop.f90	2018-06-28 15:40:33 UTC (rev 12693)
@@ -56,12 +56,11 @@
 logical                 :: is_this_last
 integer                 :: size_seq_in, size_seq_out
 integer                 :: num_copies_in, num_qc_in
-integer                 :: num_inserted, iunit, io, i, j
+integer                 :: num_inserted, iunit, io, j
 integer                 :: max_num_obs, file_id
 character(len=129)      :: read_format
 logical                 :: pre_I_format, cal
 character(len=512)      :: msgstring, msgstring1, msgstring2, msgstring3
-type(obs_def_type)      :: this_obs_def
 
 character(len=metadatalength) :: meta_data