[Dart-dev] DART/branches Revision: 12629

[dart at ucar.edu]

nancy at ucar.edu
2018-06-05 14:20:19 -0600 (Tue, 05 Jun 2018)
56
remove unused variables that throws compiler warnings.




Modified: DART/branches/recam/assimilation_code/modules/assimilation/adaptive_inflate_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/assimilation/adaptive_inflate_mod.f90	2018-06-05 20:19:32 UTC (rev 12628)
+++ DART/branches/recam/assimilation_code/modules/assimilation/adaptive_inflate_mod.f90	2018-06-05 20:20:19 UTC (rev 12629)
@@ -795,7 +795,9 @@
 
 real(r8) :: minmax_mean(2), minmax_sd(2), global_val(2)
 
-if (inflation_handle%inflation_flavor >= 0) then
+! if not using inflation, return now
+if (inflation_handle%inflation_flavor <= 0) return
+
 if (inflation_handle%mean_from_restart) then
 
    ! find min and max on each processor
@@ -805,7 +807,9 @@
    ! collect on pe 0
    call send_minmax_to(minmax_mean, map_pe_to_task(ens_handle, 0), global_val)
    if (ens_handle%my_pe == 0) inflation_handle%minmax_mean = global_val
-
+else
+   if (ens_handle%my_pe == 0) &
+      inflation_handle%minmax_mean = ens_handle%copies(ss_inflate_index, 1)
 endif
 
 if (inflation_handle%sd_from_restart) then
@@ -817,9 +821,11 @@
    ! collect on task 0
    call send_minmax_to(minmax_sd, map_pe_to_task(ens_handle, 0), global_val)
    if (ens_handle%my_pe == 0) inflation_handle%minmax_sd = minmax_sd
+else
+   if (ens_handle%my_pe == 0) &
+      inflation_handle%minmax_sd = ens_handle%copies(ss_inflate_sd_index, 1)
 
 endif
-endif
 
 end subroutine get_minmax_task_zero
 

Modified: DART/branches/recam/assimilation_code/modules/assimilation/assim_tools_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/assimilation/assim_tools_mod.f90	2018-06-05 20:19:32 UTC (rev 12628)
+++ DART/branches/recam/assimilation_code/modules/assimilation/assim_tools_mod.f90	2018-06-05 20:20:19 UTC (rev 12629)
@@ -350,7 +350,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)

Modified: DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90	2018-06-05 20:19:32 UTC (rev 12628)
+++ DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90	2018-06-05 20:20:19 UTC (rev 12629)
@@ -2456,8 +2456,7 @@
 type(file_info_type), intent(out) :: file_info_analysis
 type(file_info_type), intent(out) :: file_info_output
 
-integer :: noutput_members, next_file, ninput_files, noutput_files, ndomains, idom
-character(len=64)  :: fsource
+integer :: noutput_members, ninput_files, noutput_files, ndomains
 character(len=256), allocatable :: file_array_input(:,:), file_array_output(:,:)
 
 ! local variable to shorten the name for function input

Modified: DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.f90	2018-06-05 20:19:32 UTC (rev 12628)
+++ DART/branches/recam/assimilation_code/modules/assimilation/filter_mod.f90	2018-06-05 20:20:19 UTC (rev 12629)
@@ -2442,8 +2442,7 @@
 type(file_info_type), intent(out) :: file_info_analysis
 type(file_info_type), intent(out) :: file_info_output
 
-integer :: noutput_members, next_file, ninput_files, noutput_files, ndomains, idom
-character(len=64)  :: fsource
+integer :: noutput_members, ninput_files, noutput_files, ndomains
 character(len=256), allocatable :: file_array_input(:,:), file_array_output(:,:)
 
 ! local variable to shorten the name for function input

Modified: DART/branches/recam/assimilation_code/modules/assimilation/smoother_mod.f90
===================================================================
--- DART/branches/recam/assimilation_code/modules/assimilation/smoother_mod.f90	2018-06-05 20:19:32 UTC (rev 12628)
+++ DART/branches/recam/assimilation_code/modules/assimilation/smoother_mod.f90	2018-06-05 20:20:19 UTC (rev 12629)
@@ -271,8 +271,8 @@
 
 ! The 4 is for ensemble mean and spread plus inflation mean and spread
 character(len = metadatalength) :: state_meta(num_output_state_members + 4)
-character(len = 14)  :: file_name
-character(len = 15)  :: meta_data_string
+!character(len = 14)  :: file_name
+!character(len = 15)  :: meta_data_string
 integer              :: i, ensemble_offset, num_state_copies
 
 ! must have called init_smoother() before using this routine
@@ -344,7 +344,7 @@
 character(len = 256) :: file_name