[Dart-dev] DART/branches Revision: 10750

[dart at ucar.edu]

hendric at ucar.edu
2016-11-14 08:14:22 -0700 (Mon, 14 Nov 2016)
49
adding if(present(...)) for optional arguments.




Modified: DART/branches/rma_fixed_filenames/io/io_filenames_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/io/io_filenames_mod.f90	2016-11-14 15:13:26 UTC (rev 10749)
+++ DART/branches/rma_fixed_filenames/io/io_filenames_mod.f90	2016-11-14 15:14:22 UTC (rev 10750)
@@ -218,9 +218,12 @@
 
 file_info%options%single_restart_file_in  = single_restart_file_in
 file_info%options%single_restart_file_out = single_restart_file_out
-file_info%options%input_restart_list      = input_restart_list
-file_info%options%output_restart_list     = output_restart_list
 
+!>todo FIXME JPH : Should these be required interfaces?
+if(present(input_restart_list)) file_info%options%input_restart_list  = input_restart_list
+if(present(output_restart_list))file_info%options%output_restart_list = output_restart_list
+
+!>todo FIXME JPH : We should be passing in default filenames not a logical.
 if(present(pmo_run)) then 
    file_info%options%pmo_run = .true.
 else