[Dart-dev] DART/branches Revision: 10942

[dart at ucar.edu]

hendric at ucar.edu
2017-01-24 14:49:16 -0700 (Tue, 24 Jan 2017)
38
fixed logic for restart file output.




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-01-24 21:40:36 UTC (rev 10941)
+++ DART/branches/rma_single_file/perfect_model_obs/perfect_model_obs.f90	2017-01-24 21:49:16 UTC (rev 10942)
@@ -550,6 +550,7 @@
 
    endif
 
+
    ! Deallocate the keys storage
    deallocate(keys)
 
@@ -579,9 +580,9 @@
 if(output_restart) then
    if (single_file_out) then
       call write_single_file(curr_ens_time, OutputStateUnit, ens_handle, model_size)
+   else
+      call write_state(ens_handle, file_info_output)
    endif
-
-   call write_state(ens_handle, file_info_output)
 endif
 call trace_message('After  writing state restart file if requested')