[Dart-dev] [9986] DART/trunk: Removing unused variables.
nancy at ucar.edu
nancy at ucar.edu
Thu Mar 24 17:03:13 MDT 2016
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
More information about the Dart-dev
mailing list