[Dart-dev] DART/branches Revision: 12554

[dart at ucar.edu]

nancy at ucar.edu
2018-04-23 18:15:42 -0600 (Mon, 23 Apr 2018)
106
remove unused (and confusing) variables left over from
whatever program i cut down to make this program.




Modified: DART/branches/rma_trunk/assimilation_code/programs/obs_loop/obs_loop.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/programs/obs_loop/obs_loop.f90	2018-04-24 00:11:53 UTC (rev 12553)
+++ DART/branches/rma_trunk/assimilation_code/programs/obs_loop/obs_loop.f90	2018-04-24 00:15:42 UTC (rev 12554)
@@ -58,8 +58,6 @@
 integer                 :: num_copies_in, num_qc_in
 integer                 :: num_inserted, iunit, io, i, j
 integer                 :: max_num_obs, file_id
-integer                 :: num_rejected_badqc, num_rejected_diffqc
-integer                 :: num_rejected_other
 character(len=129)      :: read_format
 logical                 :: pre_I_format, cal
 character(len=512)      :: msgstring, msgstring1, msgstring2, msgstring3
@@ -174,9 +172,6 @@
 !       Must pass a copy of incoming obs to insert_obs_in_seq.
 !--------------------------------------------------------------
 num_inserted = 0
-num_rejected_badqc = 0
-num_rejected_diffqc = 0
-num_rejected_other = 0
 
 if ( get_first_obs(seq_in, obs_in) )  then