[Dart-dev] DART/branches Revision: 12611

[dart at ucar.edu]

hendric at ucar.edu
2018-05-31 14:55:33 -0600 (Thu, 31 May 2018)
39

removing unneeded code and comments.




Modified: DART/branches/rma_closest_member_tool/assimilation_code/programs/closest_member_tool/closest_member_tool.f90
===================================================================
--- DART/branches/rma_closest_member_tool/assimilation_code/programs/closest_member_tool/closest_member_tool.f90	2018-05-31 20:11:14 UTC (rev 12610)
+++ DART/branches/rma_closest_member_tool/assimilation_code/programs/closest_member_tool/closest_member_tool.f90	2018-05-31 20:55:33 UTC (rev 12611)
@@ -1,4 +1,4 @@
-! DART software - Copyright UCAR. This open source software is provided
+L! DART software - Copyright UCAR. This open source software is provided
 ! by UCAR, "as is", without charge, subject to all terms of use at
 ! http://www.image.ucar.edu/DAReS/DART/DART_download
 !
@@ -84,13 +84,13 @@
 !----------------------------------------------------------------
 ! These variables are namelist-controllable.
 !
-integer                        :: ens_size               = 1
+integer                        :: ens_size               = 20
 integer                        :: difference_method      = 4
 logical                        :: single_restart_file_in = .false.
-character(len = obstypelength) :: use_only_qtys(max_list_len) = ''
 character(len=256)             :: input_restart_file_list(MAX_NUM_DOMS) = ''
-character(len=256)             :: input_restart_files(MAX_FILES) = '' 
-character(len=256)             :: output_file_name
+character(len=256)             :: input_restart_files(MAX_FILES)        = '' 
+character(len=256)             :: output_file_name                      = 'closest_restart'
+character(len = obstypelength) :: use_only_qtys(max_list_len)           = ''
 
 !----------------------------------------------------------------
 ! different methods to compute 'distance' from mean:
@@ -149,7 +149,7 @@
 write(msgstring, *) 'Computing difference using method: '//trim(method_name(difference_method))
 call error_handler(E_MSG,'',msgstring)
 
-! make space that is ensemble size and an extra copy for the mean
+! Make space that is ensemble size and an extra copy for the mean
 call init_ensemble_manager(ens_handle, ens_size+1, model_size)
 
 num_domains = get_num_domains()
@@ -167,12 +167,6 @@
 
 file_array_input  = RESHAPE(input_restart_files,  (/ens_size,  num_domains/))
 
-if (1==2) then
-   print*, input_restart_files,     'input_restart_files'
-   print*, input_restart_file_list, 'input_restart_file_list'
-   print*, file_array_input,        'file_array_input'
-endif
-
 ! read in the ensemble and the mean - always in a separate file
 call io_filenames_init(ens_file_info, ens_size, &
                        cycling=single_restart_file_in, &
@@ -288,19 +282,8 @@
    useindex(:) = .true.
 endif
 
-!#! print*, 'task id, useindex', my_task_id(), useindex(:), task_count()
-
-!>@todo FIXME:  do we need 2 versions?  a distributed one where we compute the local diffs
-!> and then reduce to get the sum to figure out the smallest diff?  and a non-distributed, non-mpi
-!> version where we have the entire state on a single task (one member at a time or the entire
-!> ensemble?) and do the work in a non-mpi executable?
-
-! either loop over individual files or open a single file and read a member
-! at a time.  same functionality; where the file open/close happens differs.
-
 total_diff = compute_diff(ens_handle%copies(:,:), ens_handle%copies(ENS_MEAN_COPY,:))
 
-
 !------------------- Print out results     -----------------------
 
 if (my_task_id() == 0) then