[Dart-dev] DART/branches Revision: 12242

[dart at ucar.edu]

thoar at ucar.edu
2017-12-26 11:06:40 -0700 (Tue, 26 Dec 2017)
198
Adding the obs_def_utilities_mod:track_status routine and
updating path_names_files accordingly.

Removed unused variables identified by GNU Fortran (GCC) 5.1.0
in other routines. No code changes.




Modified: DART/branches/openggcm/assimilation_code/location/utilities/default_location_mod.f90
===================================================================
--- DART/branches/openggcm/assimilation_code/location/utilities/default_location_mod.f90	2017-12-26 17:28:04 UTC (rev 12241)
+++ DART/branches/openggcm/assimilation_code/location/utilities/default_location_mod.f90	2017-12-26 18:06:40 UTC (rev 12242)
@@ -23,17 +23,15 @@
           get_vertical_localization_coord, set_vertical_localization_coord
 
 ! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
+character(len=*), parameter :: source   = &
    "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
+character(len=*), parameter :: revision = "$Revision$"
+character(len=*), parameter :: revdate  = "$Date$"
 
 integer :: location_vertical_localization_coord = 0
 
 logical, save :: module_initialized = .false.
 
-character(len = 129) :: errstring
-
 contains
 
 !----------------------------------------------------------------------------

Modified: DART/branches/openggcm/assimilation_code/modules/assimilation/assim_model_mod.f90
===================================================================
--- DART/branches/openggcm/assimilation_code/modules/assimilation/assim_model_mod.f90	2017-12-26 17:28:04 UTC (rev 12241)
+++ DART/branches/openggcm/assimilation_code/modules/assimilation/assim_model_mod.f90	2017-12-26 18:06:40 UTC (rev 12242)
@@ -52,15 +52,11 @@
           write_model_time
 
 ! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
+character(len=*), parameter :: source   = &
    "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
+character(len=*), parameter :: revision = "$Revision$"
+character(len=*), parameter :: revdate  = "$Date$"
 
-
-! Permanent class storage for model_size
-integer :: model_size
-
 ! Ensure init code is called exactly once
 logical :: module_initialized = .false.
 

Modified: DART/branches/openggcm/assimilation_code/modules/assimilation/assim_tools_mod.f90
===================================================================
--- DART/branches/openggcm/assimilation_code/modules/assimilation/assim_tools_mod.f90	2017-12-26 17:28:04 UTC (rev 12241)
+++ DART/branches/openggcm/assimilation_code/modules/assimilation/assim_tools_mod.f90	2017-12-26 18:06:40 UTC (rev 12242)
@@ -111,10 +111,10 @@
 real(r8), allocatable  :: obs_impact_table(:,:)
 
 ! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
+character(len=*), parameter :: source   = &
    "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
+character(len=*), parameter :: revision = "$Revision$"
+character(len=*), parameter :: revdate  = "$Date$"
 
 !============================================================================
 
@@ -356,7 +356,7 @@
 integer(i8) :: my_obs_indx(obs_ens_handle%my_num_vars)
 
 integer  :: my_num_obs, i, j, owner, owners_index, my_num_state
-integer  :: this_obs_key, obs_mean_index, obs_var_index
+integer  :: obs_mean_index, obs_var_index
 integer  :: grp_beg(num_groups), grp_end(num_groups), grp_size, grp_bot, grp_top, group
 integer  :: close_obs_ind(obs_ens_handle%my_num_vars)
 integer  :: close_state_ind(ens_handle%my_num_vars)
@@ -392,8 +392,6 @@
 real(r8) :: vertvalue_obs_in_localization_coord
 integer  :: whichvert_obs_in_localization_coord
 real(r8) :: whichvert_real
-type(location_type) :: lc(1)
-integer             :: kd(1)
 
 ! timing - set one or both of the parameters to true
 ! to get timing info printed out.
@@ -1907,8 +1905,8 @@
 
 ! Uses interpolation to get correction factor into the table
 
-integer             :: iunit, i, low_indx, high_indx
-real(r8)            :: temp, temp2, correl, fract, low_correl, low_exp_correl, low_alpha
+integer             :: low_indx, high_indx
+real(r8)            :: correl, fract, low_correl, low_exp_correl, low_alpha
 real(r8)            :: high_correl, high_exp_correl, high_alpha
 
 logical, save :: first_time = .true.

Modified: DART/branches/openggcm/assimilation_code/modules/assimilation/filter_mod.f90
===================================================================
--- DART/branches/openggcm/assimilation_code/modules/assimilation/filter_mod.f90	2017-12-26 17:28:04 UTC (rev 12241)