[Dart-dev] DART/branches Revision: 11074

[dart at ucar.edu]

hendric at ucar.edu
2017-02-09 14:00:30 -0700 (Thu, 09 Feb 2017)
56
printing out all ensemble copies and vars for debugging



Modified: DART/branches/rma_single_file/ensemble_manager/ensemble_manager_mod.f90
===================================================================
--- DART/branches/rma_single_file/ensemble_manager/ensemble_manager_mod.f90	2017-02-09 19:38:24 UTC (rev 11073)
+++ DART/branches/rma_single_file/ensemble_manager/ensemble_manager_mod.f90	2017-02-09 21:00:30 UTC (rev 11074)
@@ -1542,7 +1542,7 @@
 
 logical :: print_anyway
 logical :: has_label
-
+integer :: i,j
 print_anyway = .false.
 if (present(force)) then
    print_anyway = force
@@ -1582,7 +1582,22 @@
    call error_handler(E_MSG, 'ensemble handle: ', msgstring, source, revision, revdate)
 endif
 
+if (allocated(ens_handle%copies)) then
+do j = 1, ens_handle%my_num_vars
+do i = 1, ens_handle%num_copies
+   print*, 'ens_handle%copies(i,j) : ', i, j, ens_handle%copies(i,j)
+enddo
+enddo
+endif
 
+if (allocated(ens_handle%vars)) then
+do j = 1, ens_handle%my_num_copies
+do i = 1, ens_handle%num_vars
+   print*, 'ens_handle%vars(i,j) : ', i, j, ens_handle%vars(i,j)
+enddo
+enddo
+endif
+
 end subroutine print_ens_handle
 
 !--------------------------------------------------------------------------------

Modified: DART/branches/rma_single_file/perfect_model_obs/perfect_model_obs.f90
===================================================================
--- DART/branches/rma_single_file/perfect_model_obs/perfect_model_obs.f90	2017-02-09 19:38:24 UTC (rev 11073)
+++ DART/branches/rma_single_file/perfect_model_obs/perfect_model_obs.f90	2017-02-09 21:00:30 UTC (rev 11074)
@@ -41,7 +41,7 @@
                                  get_my_num_copies, get_ensemble_time, prepare_to_write_to_vars,      &
                                  prepare_to_read_from_vars, allocate_vars,  &
                                  all_vars_to_all_copies, &
-                                 all_copies_to_all_vars
+                                 all_copies_to_all_vars, print_ens_handle
 
 use           filter_mod, only : filter_set_initial_time, filter_sync_keys_time
 
@@ -295,6 +295,7 @@
 
    call error_handler(E_MSG,'perfect_read_restart:', 'reading input state from file')
    call read_state(ens_handle, file_info_input, read_time_from_file, time1)
+   call print_ens_handle(ens_handle, force=.true., label='pmo read :')
 
 else ! model spin up