[Dart-dev] [4888] DART/trunk/obs_sequence: Remove unused variables to avoid compiler warnings.

[nancy at ucar.edu]

Revision: 4888
Author:   nancy
Date:     2011-05-04 13:47:22 -0600 (Wed, 04 May 2011)
Log Message:
-----------
Remove unused variables to avoid compiler warnings.
No code or doc changes.

Modified Paths:
--------------
    DART/trunk/obs_sequence/obs_common_subset.f90
    DART/trunk/obs_sequence/obs_sequence_tool.f90

-------------- next part --------------
Modified: DART/trunk/obs_sequence/obs_common_subset.f90
===================================================================
--- DART/trunk/obs_sequence/obs_common_subset.f90	2011-05-04 19:01:33 UTC (rev 4887)
+++ DART/trunk/obs_sequence/obs_common_subset.f90	2011-05-04 19:47:22 UTC (rev 4888)
@@ -72,8 +72,7 @@
 integer                 :: num_rejected_badqc, num_rejected_diffqc
 integer                 :: num_rejected_other
 character(len = 129)    :: read_format
-logical                 :: pre_I_format, all_gone
-logical                 :: trim_first, trim_last, cal
+logical                 :: pre_I_format, cal
 character(len = 256)    :: msgstring, msgstring1, msgstring2
 character(len = 164)    :: filename_out1, filename_out2
 
@@ -525,8 +524,7 @@
 
 integer :: num_copies1, num_qc1
 integer :: num_copies2, num_qc2
-integer :: num_copies , num_qc, i, j
-logical :: have_match1, have_match2
+integer :: num_copies , num_qc, i
 character(len=metadatalength) :: str1, str2
 character(len=255) :: msgstring3
 
@@ -880,7 +878,6 @@
  integer,        intent(in) :: qc_index, qc_threshold
  logical :: good_match
 
-integer :: i
 type(obs_def_type)  :: base_obs_def,  test_obs_def
 integer             :: base_obs_type, test_obs_type
 type(time_type)     :: base_obs_time, test_obs_time

Modified: DART/trunk/obs_sequence/obs_sequence_tool.f90
===================================================================
--- DART/trunk/obs_sequence/obs_sequence_tool.f90	2011-05-04 19:01:33 UTC (rev 4887)
+++ DART/trunk/obs_sequence/obs_sequence_tool.f90	2011-05-04 19:47:22 UTC (rev 4888)
@@ -120,14 +120,12 @@
 integer  :: new_copy_index(long_lists) = -1
 integer  :: copy_index_len = 0
 real(r8) :: new_copy_data(long_lists) = MISSING_R8
-integer  :: copy_data_len = 0
 logical  :: edit_qc_metadata = .false.
 character(len=metadatalength) :: new_qc_metadata(long_lists)   = ''
 logical  :: edit_qcs = .false.
 integer  :: new_qc_index(long_lists) = -1
 integer  :: qc_index_len = 0
 real(r8) :: new_qc_data(long_lists) = MISSING_R8
-integer  :: qc_data_len = 0
 character(len=metadatalength) :: synonymous_copy_list(long_lists) = ''
 character(len=metadatalength) :: synonymous_qc_list(long_lists)   = ''
 logical  :: keep_types = .true.
@@ -1380,7 +1378,6 @@
 real(r8),       intent(in)    :: new_qc_data(:)
 
 integer :: i, j
-character(len=129) :: msgstring1
 
 if (edit_copies) then     
    j = 1