[Dart-dev] DART/branches Revision: 11822

[dart at ucar.edu]

hendric at ucar.edu
2017-07-18 09:55:09 -0600 (Tue, 18 Jul 2017)
28

removing debug statements




Modified: DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90
===================================================================
--- DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90	2017-07-18 15:48:35 UTC (rev 11821)
+++ DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.dopplerfold.f90	2017-07-18 15:55:09 UTC (rev 11822)
@@ -80,8 +80,7 @@
                                   set_member_file_metadata,  set_io_copy_flag, &
                                   check_file_info_variable_shape, &
                                   query_copy_present, COPY_NOT_PRESENT, &
-                                  READ_COPY, WRITE_COPY, READ_WRITE_COPY, &
-                                  file_info_dump
+                                  READ_COPY, WRITE_COPY, READ_WRITE_COPY
 
 use direct_netcdf_mod,     only : finalize_single_file_io, write_augmented_state, &
                                   nc_get_num_times
@@ -2465,18 +2464,7 @@
 
 file_array_output = RESHAPE(output_state_files, (/ens_size, ndomains/))
 
-do i = 1, ninput_files
-do idom = 1, ndomains
-   print*, 'file_array_input(',i,',',idom,')', trim(file_array_input(i,idom))
-enddo
-enddo
 
-do i = 1, ens_size
-do idom = 1, ndomains
-   print*, 'file_array_output(',i,',',idom,')', trim(file_array_output(i,idom))
-enddo
-enddo
-
 ! Allocate space for the filename handles
 call io_filenames_init(file_info_input,                       & 
                        ncopies       = ncopies,               &

Modified: DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.f90
===================================================================
--- DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.f90	2017-07-18 15:48:35 UTC (rev 11821)
+++ DART/branches/rma_array_nml/assimilation_code/modules/assimilation/filter_mod.f90	2017-07-18 15:55:09 UTC (rev 11822)
@@ -2450,17 +2450,6 @@
 
 file_array_output = RESHAPE(output_state_files, (/ens_size, ndomains/))
 
-!#! do i = 1, ninput_files
-!#! do idom = 1, ndomains
-!#!    print*, 'file_array_input(',i,',',idom,')', trim(file_array_input(i,idom))
-!#! enddo
-!#! enddo
-!#! 
-!#! do i = 1, ens_size
-!#! do idom = 1, ndomains
-!#!    print*, 'file_array_output(',i,',',idom,')', trim(file_array_output(i,idom))
-!#! enddo
-!#! enddo
 
 ! Allocate space for the filename handles
 call io_filenames_init(file_info_input,                       &