[Dart-dev] [4313] DART/trunk: More removing of unused variables.

[nancy at ucar.edu]

Revision: 4313
Author:   nancy
Date:     2010-03-12 13:09:44 -0700 (Fri, 12 Mar 2010)
Log Message:
-----------
More removing of unused variables.

Modified Paths:
--------------
    DART/trunk/perfect_model_obs/perfect_model_obs.f90
    DART/trunk/preprocess/preprocess.f90

-------------- next part --------------
Modified: DART/trunk/perfect_model_obs/perfect_model_obs.f90
===================================================================
--- DART/trunk/perfect_model_obs/perfect_model_obs.f90	2010-03-12 20:06:53 UTC (rev 4312)
+++ DART/trunk/perfect_model_obs/perfect_model_obs.f90	2010-03-12 20:09:44 UTC (rev 4313)
@@ -124,7 +124,7 @@
 integer                 :: ierr, io, istatus, num_obs_in_set, nth_obs
 integer                 :: model_size, key_bounds(2), num_qc, last_key_used
 
-real(r8)                :: true_obs(1), obs_value(1), qc(1), errvar
+real(r8)                :: true_obs(1), obs_value(1), qc(1)
 
 character(len=129)      :: copy_meta_data(2), qc_meta_data, obs_seq_read_format
 character(len=metadatalength) :: state_meta(1)

Modified: DART/trunk/preprocess/preprocess.f90
===================================================================
--- DART/trunk/preprocess/preprocess.f90	2010-03-12 20:06:53 UTC (rev 4312)
+++ DART/trunk/preprocess/preprocess.f90	2010-03-12 20:09:44 UTC (rev 4313)
@@ -56,18 +56,19 @@
 ! be autogenerated and these strings will enclose kinds which should be
 ! defined, without mapping any particular observation type to them.  this
 ! code could be in either the obs_def_*_mod.f90 files or in the model_mods.
-character(len = 35) :: kind2_start_string = '! BEGIN DART PREPROCESS USED KINDS'
-character(len = 33) :: kind2_end_string   = '! END DART PREPROCESS USED KINDS'
+!character(len = 35) :: kind2_start_string = '! BEGIN DART PREPROCESS USED KINDS'
+!character(len = 33) :: kind2_end_string   = '! END DART PREPROCESS USED KINDS'
 
 ! output format decorations
 character(len = 78) :: separator_line = &
 '!---------------------------------------------------------------------------'
-character(len = 78) :: blank_comment_line = &
-'!                                                                           '
 character(len = 78) :: blank_line = &
 '                                                                            '
-character(len = 12) :: start_line = '!  Start of '
-character(len = 12) :: end_line =   '!  End of   '
+!! currently unused, but available if wanted:
+!character(len = 12) :: start_line = '!  Start of '
+!character(len = 12) :: end_line =   '!  End of   '
+!character(len = 78) :: blank_comment_line = &
+!'!                                                                           '
 
 ! List of the DART PREPROCESS strings for obs_def type files.
 character(len = 29) :: preprocess_string(8) = (/ &
@@ -80,17 +81,17 @@
       'INTERACTIVE_OBS_DEF          ', &
       'THE EIGHTH ONE IS UNDEFINED  '/)
 
-! Must match the list above.  Is there a default code section that we can
-! autogenerate for this section?
-logical :: default_code(8) = &
-      (/ .false., &
-      .false., &
-      .false., &
-      .true.,  &
-      .true.,  &
-      .true.,  &
-      .true.,  &
-      .false. /)
+!! Must match the list above.  Is there a default code section that we can
+!! autogenerate for this section?
+!logical :: default_code(8) = &
+!   (/ .false., &
+!      .false., &
+!      .false., &
+!      .true.,  &
+!      .true.,  &
+!      .true.,  &
+!      .true.,  &
+!      .false. /)
 
 integer, parameter :: module_item = 1
 integer, parameter :: kind_item = 2