[Dart-dev] [3905] DART/trunk/models/wrf/WRF_DART_utilities: Add in the code that only prints the namelists to the requested file

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090603/8fbbac1a/attachment.html 
-------------- next part --------------
Modified: DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90	2009-06-03 15:38:45 UTC (rev 3904)
+++ DART/trunk/models/wrf/WRF_DART_utilities/dart_to_wrf.f90	2009-06-03 20:53:13 UTC (rev 3905)
@@ -18,7 +18,7 @@
                              error_handler, E_ERR, E_MSG, initialize_utilities, &
                              register_module, logfileunit, nmlfileunit, timestamp, &
                              find_namelist_in_file, check_namelist_read, &
-                             nc_check
+                             nc_check, do_nml_file, do_nml_term
 use  assim_model_mod, only : open_restart_read, open_restart_write, aread_state_restart, &
                              awrite_state_restart
 use model_mod, only        : max_state_variables,  &
@@ -110,8 +110,8 @@
 call check_namelist_read(iunit, io, "model_nml")
 
 ! Record the namelist values used for the run ...
-write(nmlfileunit, nml=model_nml)
-write(     *     , nml=model_nml)
+if (do_nml_file()) write(nmlfileunit, nml=model_nml)
+if (do_nml_term()) write(     *     , nml=model_nml)
 
 call set_calendar_type(calendar_type)
 

Modified: DART/trunk/models/wrf/WRF_DART_utilities/wrf_to_dart.f90
===================================================================
--- DART/trunk/models/wrf/WRF_DART_utilities/wrf_to_dart.f90	2009-06-03 15:38:45 UTC (rev 3904)
+++ DART/trunk/models/wrf/WRF_DART_utilities/wrf_to_dart.f90	2009-06-03 20:53:13 UTC (rev 3905)
@@ -18,7 +18,7 @@
                              error_handler, E_ERR, E_MSG, initialize_utilities, &
                              register_module, logfileunit, nmlfileunit, timestamp, &
                              find_namelist_in_file, check_namelist_read, &
-                             nc_check
+                             nc_check, do_nml_file, do_nml_term
 use  assim_model_mod, only : open_restart_read, open_restart_write, aread_state_restart, &
                              awrite_state_restart
 use model_mod, only        : max_state_variables,  &
@@ -109,8 +109,8 @@
 call check_namelist_read(iunit, io, "model_nml")
 
 ! Record the namelist values used for the run ...
-write(nmlfileunit, nml=model_nml)
-write(     *     , nml=model_nml)
+if (do_nml_file()) write(nmlfileunit, nml=model_nml)
+if (do_nml_term()) write(     *     , nml=model_nml)
 
 call set_calendar_type(calendar_type)