[Dart-dev] [3826] DART/trunk/models/wrf: simply cleaning up unused variables

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090417/926e5a11/attachment.html 
-------------- next part --------------
Modified: DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90	2009-04-17 19:13:25 UTC (rev 3825)
+++ DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90	2009-04-17 22:21:00 UTC (rev 3826)
@@ -91,9 +91,7 @@
 type(time_type)   :: dart_time(2)
 integer           :: number_dart_values, ndays, &
                      year, month, day, hour, minute, second
-integer           :: ndims, idims(2), dimids(2)
-integer           :: i, ivtype, ind, dart_ind, my_index
-character(len=80) :: varname
+integer           :: ind, dart_ind, my_index
 character(len=19) :: timestring
 character(len=1)  :: idom
 

Modified: DART/trunk/models/wrf/WRF_DART_utilities/wrf_to_dart.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/wrf_to_dart.f90	2009-04-17 19:13:25 UTC (rev 3825)
+++ DART/trunk/models/wrf/WRF_DART_utilities/wrf_to_dart.f90	2009-04-17 22:21:00 UTC (rev 3826)
@@ -86,7 +86,7 @@
 real(r8), pointer :: dart(:)
 real(r8), allocatable :: wrf_var_3d(:,:,:), wrf_var_2d(:,:)
 type(time_type)   :: dart_time(2)
-integer           :: number_dart_values, ndays, &
+integer           :: number_dart_values, &
                      year, month, day, hour, minute, second
 integer           :: ndims, idims(2), dimids(2)
 integer           :: i, ivtype, ind, dart_ind, my_index

Modified: DART/trunk/models/wrf/model_mod.f90
===================================================================
--- DART/trunk/models/wrf/model_mod.f90	2009-04-17 19:13:25 UTC (rev 3825)
+++ DART/trunk/models/wrf/model_mod.f90	2009-04-17 22:21:00 UTC (rev 3826)
@@ -266,10 +266,9 @@
 integer :: ncid
 integer :: io, iunit
 
-character (len=80)    :: name
 character (len=1)     :: idom
 logical, parameter    :: debug = .false.
-integer               :: var_id, ind, i, j, k, id, dart_index, model_type
+integer               :: ind, i, j, k, id, dart_index
 integer               :: my_index
 integer               :: var_element_list(max_state_variables)
 
@@ -5936,7 +5935,7 @@
 integer, intent(in) :: id
 character(len=129), intent(in) :: state_table(num_state_table_columns,max_state_variables) 
 integer, intent(out), optional :: var_element_list(max_state_variables)
-integer :: ivar, num_vars, domain_int, i
+integer :: ivar, num_vars
 character(len=129) :: my_string
 logical :: debug = .false.
 
@@ -6105,7 +6104,7 @@
 
 logical, parameter    :: debug = .false.
 integer               :: var_id, ndims, dimids(10) 
-integer               :: idim, strlen
+integer               :: idim
 
    stagger = ''