[Dart-dev] DART/branches Revision: 13007

[dart at ucar.edu]

nancy at ucar.edu
2019-03-06 16:53:46 -0700 (Wed, 06 Mar 2019)
223
make the standalone filter code read the namelist.
remove the nml write to file or terminal from the
filter_main() routine because this will be called
over and over and we don't need N copies of the
namelist being output.




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	2019-03-06 23:28:13 UTC (rev 13006)
+++ DART/branches/cesm_dart_esp/assimilation_code/modules/assimilation/filter_mod.f90	2019-03-06 23:53:46 UTC (rev 13007)
@@ -393,8 +393,9 @@
 call filter_initialize_modules_used() ! static_init_model called in here
 
 ! Record the namelist values used for the run ...
-if (do_nml_file()) write(nmlfileunit, nml=filter_nml)
-if (do_nml_term()) write(     *     , nml=filter_nml)
+! we do NOT want to do this each time!
+!if (do_nml_file()) write(nmlfileunit, nml=filter_nml)
+!if (do_nml_term()) write(     *     , nml=filter_nml)
 
 if (task_count() == 1) distributed_state = .true.
 

Modified: DART/branches/cesm_dart_esp/assimilation_code/programs/filter/filter.f90
===================================================================
--- DART/branches/cesm_dart_esp/assimilation_code/programs/filter/filter.f90	2019-03-06 23:28:13 UTC (rev 13006)
+++ DART/branches/cesm_dart_esp/assimilation_code/programs/filter/filter.f90	2019-03-06 23:53:46 UTC (rev 13007)
@@ -14,7 +14,7 @@
 !>
 
 use mpi_utilities_mod, only : initialize_mpi_utilities, finalize_mpi_utilities
-use        filter_mod, only : filter_main
+use        filter_mod, only : filter_main, filter_read_namelist
 
 implicit none
 
@@ -22,6 +22,8 @@
 
 call initialize_mpi_utilities('Filter')
 
+call filter_read_namelist()
+
 call filter_main()
 
 call finalize_mpi_utilities()