[Dart-dev] [9986] DART/trunk: Removing unused variables.

[nancy at ucar.edu]

Revision: 9986
Author:   thoar
Date:     2016-03-24 17:03:12 -0600 (Thu, 24 Mar 2016)
Log Message:
-----------
Removing unused variables.

Modified Paths:
--------------
    DART/trunk/models/gitm/dart_gitm_mod.f90
    DART/trunk/models/gitm/model_mod.f90
    DART/trunk/models/gitm/model_mod_check.f90
    DART/trunk/obs_def/obs_def_upper_atm_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/gitm/dart_gitm_mod.f90
===================================================================
--- DART/trunk/models/gitm/dart_gitm_mod.f90	2016-03-24 22:33:27 UTC (rev 9985)
+++ DART/trunk/models/gitm/dart_gitm_mod.f90	2016-03-24 23:03:12 UTC (rev 9986)
@@ -39,7 +39,7 @@
 character(len=32 ), parameter :: revision = "$Revision$"
 character(len=128), parameter :: revdate  = "$Date$"
 
-character(len=256) :: string1, string2
+character(len=512) :: string1
 
 contains
 

Modified: DART/trunk/models/gitm/model_mod.f90
===================================================================
--- DART/trunk/models/gitm/model_mod.f90	2016-03-24 22:33:27 UTC (rev 9985)
+++ DART/trunk/models/gitm/model_mod.f90	2016-03-24 23:03:12 UTC (rev 9986)
@@ -194,20 +194,12 @@
 type(time_type)       :: model_timestep  ! smallest time to adv model
 real(r8), allocatable :: ens_mean(:)     ! may be needed for forward ops
 
-! set this to true if you want to print out the current time
-! after each N observations are processed, for benchmarking.
-
-logical :: print_timestamps = .false.
-integer :: print_every_Nth  = 10000
-
 integer, parameter :: nGhost = 2   ! number of ghost cells on all edges
 
 !------------------------------------------------------------------
 ! The gitm restart manager namelist variables
 !------------------------------------------------------------------
 
-character(len= 64) :: ew_boundary_type, ns_boundary_type
-
 INTERFACE vector_to_prog_var
       MODULE PROCEDURE vector_to_1d_prog_var
       MODULE PROCEDURE vector_to_2d_prog_var

Modified: DART/trunk/models/gitm/model_mod_check.f90
===================================================================
--- DART/trunk/models/gitm/model_mod_check.f90	2016-03-24 22:33:27 UTC (rev 9985)
+++ DART/trunk/models/gitm/model_mod_check.f90	2016-03-24 23:03:12 UTC (rev 9986)
@@ -59,10 +59,8 @@
 !----------------------------------------------------------------------
 ! integer :: numlons, numlats, numlevs
 
-integer :: in_unit, out_unit, ios_out, iunit, io, offset
+integer :: ios_out, iunit, io
 integer :: x_size, i
-integer :: year, month, day, hour, minute, second
-integer :: secs, days
 
 type(time_type)       :: model_time, adv_to_time, model_time2
 real(r8), allocatable :: statevector(:), statevector2(:)

Modified: DART/trunk/obs_def/obs_def_upper_atm_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_upper_atm_mod.f90	2016-03-24 22:33:27 UTC (rev 9985)
+++ DART/trunk/obs_def/obs_def_upper_atm_mod.f90	2016-03-24 23:03:12 UTC (rev 9986)
@@ -309,8 +309,6 @@
 type(location_type), intent(in) :: location
 real(r8),           intent(out) :: obs_val
 integer,            intent(out) :: istatus
-real(r8)                        :: mmro1, mmro2 ! mass mixing ratio 
-real(r8)                        :: pressure, temperature 
 
 if ( .not. module_initialized ) call initialize_module