[Dart-dev] DART/branches Revision: 10795

[dart at ucar.edu]

nancy at ucar.edu
2016-12-15 15:20:28 -0700 (Thu, 15 Dec 2016)
39
fix arguments to io_filenames_init() 




Modified: DART/branches/rma_fixed_filenames/perfect_model_obs/perfect_model_obs.f90
===================================================================
--- DART/branches/rma_fixed_filenames/perfect_model_obs/perfect_model_obs.f90	2016-12-15 22:18:45 UTC (rev 10794)
+++ DART/branches/rma_fixed_filenames/perfect_model_obs/perfect_model_obs.f90	2016-12-15 22:20:28 UTC (rev 10795)
@@ -243,8 +243,8 @@
 
 ! Initialize file names:
 
-file_info_input  = io_filenames_init(ens_handle, single_file=.false., restart_list=input_restart_file_list, root_name='pmo_input')
-file_info_output = io_filenames_init(ens_handle, single_file=.false., restart_list=output_restart_file_list, root_name='pmo_output', check_output_compatibility = .true.)
+file_info_input  = io_filenames_init(1, single_file=.false., restart_list=input_restart_file_list, root_name='pmo_input')
+file_info_output = io_filenames_init(1, single_file=.false., restart_list=output_restart_file_list, root_name='pmo_output', check_output_compatibility = .true.)
 
 if (trace_execution) then
    call file_info_dump(file_info_input,'pmo:file_info_input')