[Dart-dev] [4620] DART/trunk/models/wrf: Removed unused variables identified by the Intel compiler on mirage

[nancy at ucar.edu]

Revision: 4620
Author:   thoar
Date:     2011-01-04 10:07:38 -0700 (Tue, 04 Jan 2011)
Log Message:
-----------
Removed unused variables identified by the Intel compiler on mirage
(-warn argument_checking,declarations,uncalled,uninitialized,unused)

Modified Paths:
--------------
    DART/trunk/models/wrf/WRF_DART_utilities/convertdate.f90
    DART/trunk/models/wrf/WRF_DART_utilities/grid_refl_obs.f90
    DART/trunk/models/wrf/WRF_DART_utilities/replace_wrf_fields.f90
    DART/trunk/models/wrf/WRF_DART_utilities/wrf_dart_obs_preprocess.f90
    DART/trunk/models/wrf/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/wrf/WRF_DART_utilities/convertdate.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/convertdate.f90	2011-01-03 23:26:29 UTC (rev 4619)
+++ DART/trunk/models/wrf/WRF_DART_utilities/convertdate.f90	2011-01-04 17:07:38 UTC (rev 4620)
@@ -26,8 +26,6 @@
 integer           :: jday
 integer           :: days, seconds
 
-integer :: days_per_month(12) = (/31,28,31,30,31,30,31,31,30,31,30,31/)
-
 !  days prior to beginning of each month (non&) leap year
 
 integer, parameter, dimension( 13) :: &

Modified: DART/trunk/models/wrf/WRF_DART_utilities/grid_refl_obs.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/grid_refl_obs.f90	2011-01-03 23:26:29 UTC (rev 4619)
+++ DART/trunk/models/wrf/WRF_DART_utilities/grid_refl_obs.f90	2011-01-04 17:07:38 UTC (rev 4620)
@@ -84,7 +84,7 @@
 integer :: num_copies, num_qc, num_obs, max_num_obs, obs_seq_file_id
 character(len=129) :: obs_seq_read_format
 logical :: pre_I_format
-logical :: is_there_one, out_of_range
+logical :: out_of_range
 integer :: key_bounds(2)
 integer :: num_obs_in_time_period
 integer :: num_refl_obs

Modified: DART/trunk/models/wrf/WRF_DART_utilities/replace_wrf_fields.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/replace_wrf_fields.f90	2011-01-03 23:26:29 UTC (rev 4619)
+++ DART/trunk/models/wrf/WRF_DART_utilities/replace_wrf_fields.f90	2011-01-04 17:07:38 UTC (rev 4620)
@@ -57,7 +57,6 @@
 
 character(len=NF90_MAX_NAME) :: infile, outfile
 character(len=NF90_MAX_NAME) :: nextfield
-integer :: fieldindex
 logical :: from_file
 
 character(len=128) :: msgstring, msgstring2, tmpstring

Modified: DART/trunk/models/wrf/WRF_DART_utilities/wrf_dart_obs_preprocess.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/wrf_dart_obs_preprocess.f90	2011-01-03 23:26:29 UTC (rev 4619)
+++ DART/trunk/models/wrf/WRF_DART_utilities/wrf_dart_obs_preprocess.f90	2011-01-04 17:07:38 UTC (rev 4620)
@@ -111,7 +111,6 @@
 
 character(len=129)      :: obs_seq_read_format
 character(len=80)       :: name
-character (len=19)      :: datime
 
 integer                 :: io, iunit, fid, var_id, obs_seq_file_id, num_copies, &
                            num_qc, num_obs, max_obs_seq, nx, ny, gday, gsec
@@ -121,7 +120,7 @@
 type(obs_sequence_type) :: seq_all, seq_rawin, seq_sfc, seq_acars, seq_satwnd, &
                            seq_tc, seq_gpsro, seq_other
 
-type(time_type)         :: anal_time, prev_time, time_obs
+type(time_type)         :: anal_time
 
 print*,'Enter target assimilation time (gregorian day, second): '
 read*,gday,gsec

Modified: DART/trunk/models/wrf/model_mod.f90
===================================================================
--- DART/trunk/models/wrf/model_mod.f90	2011-01-03 23:26:29 UTC (rev 4619)
+++ DART/trunk/models/wrf/model_mod.f90	2011-01-04 17:07:38 UTC (rev 4620)
@@ -919,10 +919,9 @@
 integer  :: center_search_half_size, center_track_xmin, center_track_ymin, &
             center_track_xmax, center_track_ymax, circ_half_size, &
             circ_xmin, circ_xmax, circ_ymin, circ_ymax, xlen, ylen, &
-            xxlen, yylen, ii1, ii2, cxlen, cylen, wind_xmin, wind_xmax, &
-            wind_ymin, wind_ymax, imax, jmax
+            xxlen, yylen, ii1, ii2, cxlen, cylen, imax, jmax
 real(r8) :: clat, clon, cxloc, cyloc, vcrit, magwnd, maxwspd, circ, &
-            rad, circ_half_length, arcrad, asum, distgrid, dgi1, dgi2
+            circ_half_length, asum, distgrid, dgi1, dgi2
 
 ! local vars, used in calculating density, pressure, height
 real(r8)            :: rho1 , rho2 , rho3, rho4