[Dart-dev] DART/branches Revision: 12920

[dart at ucar.edu]

goldy at ucar.edu
2018-10-28 17:37:16 -0600 (Sun, 28 Oct 2018)
37
Added more output namelist quantities


Modified: DART/branches/cesm_dart_esp/assimilation_code/modules/assimilation/filter_mod.f90
===================================================================
--- DART/branches/cesm_dart_esp/assimilation_code/modules/assimilation/filter_mod.f90	2018-10-26 23:23:19 UTC (rev 12919)
+++ DART/branches/cesm_dart_esp/assimilation_code/modules/assimilation/filter_mod.f90	2018-10-28 23:37:16 UTC (rev 12920)
@@ -306,9 +306,12 @@
 
 contains
 
-subroutine filter_read_namelist(ens_size_out, obs_sequence_in_name_out)
+subroutine filter_read_namelist(ens_size_out, obs_sequence_in_name_out,      &
+     input_state_file_list_out, output_state_file_list_out)
 integer,            optional, intent(out) :: ens_size_out
 character(len=256), optional, intent(out) :: obs_sequence_in_name_out
+character(len=256), optional, intent(out) :: input_state_file_list_out(:)
+character(len=256), optional, intent(out) :: output_state_file_list_out(:)
 
 integer :: iunit, io
 
@@ -324,6 +327,18 @@
 if (present(obs_sequence_in_name_out)) then
    obs_sequence_in_name_out = obs_sequence_in_name
 end if
+
+if (present(input_state_file_list_out)) then
+   do io = 1, MIN(MAX_NUM_DOMS, size(input_state_file_list_out))
+      input_state_file_list_out(io) = input_state_file_list(io)
+   end do
+end if
+
+if (present(output_state_file_list_out)) then
+   do io = 1, MIN(MAX_NUM_DOMS, size(output_state_file_list_out))
+      output_state_file_list_out(io) = output_state_file_list(io)
+   end do
+end if
 end subroutine filter_read_namelist
 
 !----------------------------------------------------------------