[Dart-dev] DART/branches Revision: 11075

dart at ucar.edu dart at ucar.edu
Thu Feb 9 14:08:20 MST 2017


hendric at ucar.edu
2017-02-09 14:08:20 -0700 (Thu, 09 Feb 2017)
66
reading variables to copies so we do not need to do a transpose.




Modified: DART/branches/rma_single_file/io/state_space_diag_mod.f90
===================================================================
--- DART/branches/rma_single_file/io/state_space_diag_mod.f90	2017-02-09 21:00:30 UTC (rev 11074)
+++ DART/branches/rma_single_file/io/state_space_diag_mod.f90	2017-02-09 21:08:20 UTC (rev 11075)
@@ -543,7 +543,7 @@
 call nc_check(ret, 'read_singlefile: nf90_close', fname)
 
 ! and now distribute the var data to the copies
-call all_vars_to_all_copies(state_ens_handle)
+! call all_vars_to_all_copies(state_ens_handle)
 
 end subroutine read_singlefile
 

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 21:00:30 UTC (rev 11074)
+++ DART/branches/rma_single_file/perfect_model_obs/perfect_model_obs.f90	2017-02-09 21:08:20 UTC (rev 11075)
@@ -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, print_ens_handle
+                                 all_copies_to_all_vars
 
 use           filter_mod, only : filter_set_initial_time, filter_sync_keys_time
 
@@ -295,7 +295,6 @@
 
    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
 


More information about the Dart-dev mailing list