[Dart-dev] [3608] DART/trunk/assim_tools/assim_tools_mod.f90: removed unused variables as determined by the absoft 9.0 compiler on shad

nancy at ucar.edu nancy at ucar.edu
Mon Sep 8 15:29:26 MDT 2008


An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080908/9360cfc3/attachment.html
-------------- next part --------------
Modified: DART/trunk/assim_tools/assim_tools_mod.f90
===================================================================
--- DART/trunk/assim_tools/assim_tools_mod.f90	2008-09-08 21:28:21 UTC (rev 3607)
+++ DART/trunk/assim_tools/assim_tools_mod.f90	2008-09-08 21:29:26 UTC (rev 3608)
@@ -1403,7 +1403,6 @@
 real(r8) :: a
 real(r8) :: sx, prior_mean, prior_var, prior_var_d2
 real(r8) :: var_ratio, new_var, new_sd, umass, left_weight, right_weight
-real(r8) :: new_mean, temp_mean, temp_var
 real(r8) :: mass(2*ens_size), weight(ens_size), cumul_mass(0:2*ens_size)
 real(r8) :: new_mean_left, new_mean_right, prod_weight_left, prod_weight_right
 real(r8) :: new_ens(ens_size), mass_sum, const_term
@@ -1568,9 +1567,8 @@
 
 integer  :: i, e_ind(ens_size), lowest_box, j
 real(r8) :: prior_mean, prior_var, prior_sd
-real(r8) :: var_ratio, new_var, umass, left_mass, right_mass
+real(r8) :: var_ratio, umass, left_mass, right_mass
 real(r8) :: left_sd, left_var, right_sd, right_var, left_mean, right_mean
-real(r8) :: new_mean, temp_mean, temp_var
 real(r8) :: mass(ens_size + 1), like(ens_size), cumul_mass(0:ens_size + 1)
 real(r8) :: nmass(ens_size + 1)
 real(r8) :: new_mean_left, new_mean_right, prod_weight_left, prod_weight_right
@@ -1578,7 +1576,8 @@
 real(r8) :: new_ens(ens_size), mass_sum, const_term
 real(r8) :: x(ens_size), sort_inc(ens_size)
 real(r8) :: like_dense(2:ens_size), height(2:ens_size)
-real(r8) :: dist_to_first, dist_to_last, lower_sd, upper_sd, dist_for_unit_sd
+!real(r8) :: dist_to_first, dist_to_last, lower_sd, upper_sd
+real(r8) :: dist_for_unit_sd
 real(r8) :: a, b, c, hright, hleft, r1, r2, adj_r1, adj_r2
 
 ! Do an index sort of the ensemble members; Will want to do this very efficiently


More information about the Dart-dev mailing list