[Dart-dev] DART/branches Revision: 11531

[dart at ucar.edu]

nancy at ucar.edu
2017-04-27 09:25:17 -0600 (Thu, 27 Apr 2017)
113
remove dart to wrf and wrf to dart, and the
associated subroutines in the model_mod which
are no longer needed.




Deleted: DART/branches/model_mod_changes/models/wrf/WRF_DART_utilities/dart_to_wrf.f90
===================================================================
--- DART/branches/model_mod_changes/models/wrf/WRF_DART_utilities/dart_to_wrf.f90	2017-04-26 23:05:27 UTC (rev 11530)
+++ DART/branches/model_mod_changes/models/wrf/WRF_DART_utilities/dart_to_wrf.f90	2017-04-27 15:25:17 UTC (rev 11531)
@@ -1,382 +0,0 @@
-! DART software - Copyright UCAR. This open source software is provided
-! by UCAR, "as is", without charge, subject to all terms of use at
-! http://www.image.ucar.edu/DAReS/DART/DART_download
-!
-! $Id$
- 
-PROGRAM dart_to_wrf
-
-use        types_mod, only : r8, missing_r8, PI, DEG2RAD
-use time_manager_mod, only : time_type, write_time, get_date, julian_day, &
-                             print_time, print_date
-use    utilities_mod, only : get_unit, error_handler, E_ERR, E_MSG, &
-                             initialize_utilities, register_module, &
-                             logfileunit, nmlfileunit, &
-                             find_namelist_in_file, check_namelist_read, &
-                             nc_check, do_nml_file, do_nml_term, finalize_utilities
-use  assim_model_mod, only : static_init_assim_model
-
-use state_vector_io_mod, only : open_restart_read, &
-                                aread_state_restart, close_restart
-
-use        model_mod, only : max_state_variables, num_state_table_columns, &
-                             get_wrf_state_variables, get_number_domains, &
-                             get_model_size, get_wrf_static_data, trans_1Dto3D, &
-                             trans_1Dto2D, set_wrf_date, wrf_static_data_for_dart
-
-use                          netcdf
-
-implicit none
-
-! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
-   "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
-
-!-----------------------------------------------------------------------
-! dart_to_wrf namelist parameters with default values.
-!-----------------------------------------------------------------------
-
-logical            :: model_advance_file = .TRUE.
-logical            :: debug = .false.
-logical            :: print_data_ranges = .false.
-character(len=128) :: dart_restart_name = 'dart_wrf_vector'
-character(len=72)  :: adv_mod_command   = './wrf.exe'
-
-namelist /dart_to_wrf_nml/ model_advance_file, dart_restart_name, &
-                           adv_mod_command, print_data_ranges, debug
-
-!-------------------------------------------------------------
-
-character(len=129) :: wrf_state_variables(num_state_table_columns,max_state_variables)
-character(len=129) :: my_field
-
-type(wrf_static_data_for_dart) :: wrf
-
-real(r8), pointer :: dart(:)
-real(r8), pointer :: wrf_var_3d(:,:,:), wrf_var_2d(:,:)
-real(r8)          :: minl, maxl
-type(time_type)   :: dart_time(2)
-integer           :: number_dart_values, num_domains, ndays, &
-                     year, month, day, hour, minute, second
-integer           :: ind, dart_ind, my_index, io
-character(len=19) :: timestring
-character(len=2)  :: idom
-
-integer, parameter :: max_dom = 50    ! max nested wrf domains
-integer            :: ncid(max_dom), var_id, id, iunit, dart_unit
-
-if (debug) print*, 'DART to WRF'
-
-call initialize_utilities('dart_to_wrf')
-call register_module(source, revision, revdate)
-
-call error_handler(E_MSG,'dart_to_wrf', &
-   'Converting a DART state vector to a WRF netcdf file', &
-   source, revision, revdate)
-
-call static_init_assim_model()
-
-! Now the one specific to this tool.
-call find_namelist_in_file("input.nml", "dart_to_wrf_nml", iunit)
-read(iunit, nml = dart_to_wrf_nml, iostat = io)
-call check_namelist_read(iunit, io, "dart_to_wrf_nml")
-
-! Record the namelist values used for the run ...
-if (do_nml_file()) write(nmlfileunit, nml=dart_to_wrf_nml)
-if (do_nml_term()) write(     *     , nml=dart_to_wrf_nml)
-
-! debug enables all printing
-if (debug) print_data_ranges = .true.
-
-call get_wrf_state_variables(wrf_state_variables)
-
-num_domains        = get_number_domains()
-number_dart_values = get_model_size()