[Dart-dev] DART/branches Revision: 12918

[dart at ucar.edu]

goldy at ucar.edu
2018-10-26 12:04:10 -0600 (Fri, 26 Oct 2018)
45
Add return of the filter obs_sequence_in_name


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 16:56:27 UTC (rev 12917)
+++ DART/branches/cesm_dart_esp/assimilation_code/modules/assimilation/filter_mod.f90	2018-10-26 18:04:10 UTC (rev 12918)
@@ -306,8 +306,9 @@
 
 contains
 
-subroutine filter_read_namelist(ens_size_out)
-integer, optional, intent(out) :: ens_size_out
+subroutine filter_read_namelist(ens_size_out, obs_sequence_in_name_out)
+integer,            optional, intent(out) :: ens_size_out
+character(len=256), optional, intent(out) :: obs_sequence_in_name_out
 
 integer :: iunit, io
 
@@ -319,6 +320,10 @@
 if (present(ens_size_out)) then
    ens_size_out = ens_size
 end if
+
+if (present(obs_sequence_in_name_out)) then
+   obs_sequence_in_name_out = obs_sequence_in_name
+end if
 end subroutine filter_read_namelist
 
 !----------------------------------------------------------------