[Dart-dev] DART/branches Revision: 13031

[dart at ucar.edu]

nancy at ucar.edu
2019-03-19 17:12:44 -0600 (Tue, 19 Mar 2019)
73
remove test_grid which seems to be an early
version of model_mod_check.




Deleted: DART/branches/recam/models/ROMS/test_grid.f90
===================================================================
--- DART/branches/recam/models/ROMS/test_grid.f90	2019-03-19 23:08:40 UTC (rev 13030)
+++ DART/branches/recam/models/ROMS/test_grid.f90	2019-03-19 23:12:44 UTC (rev 13031)
@@ -1,333 +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 test_grid
-
-!----------------------------------------------------------------------
-! purpose: test routines.  this version for models with oned locations.
-!----------------------------------------------------------------------
-
-use             types_mod, only : r8, i8, missing_r8, metadatalength
-
-use         utilities_mod, only : register_module, error_handler, E_MSG, E_ERR, &
-                                  initialize_utilities, finalize_utilities,     &
-                                  find_namelist_in_file, check_namelist_read,   &
-                                  E_MSG, open_file, close_file, do_output
-
-use     mpi_utilities_mod, only : initialize_mpi_utilities, finalize_mpi_utilities
-
-use          location_mod, only : location_type, set_location, write_location,  &
-                                  get_dist, get_location
-
-use          obs_kind_mod, only : get_index_for_quantity, get_name_for_quantity
-                                  
-
-use      obs_sequence_mod, only : static_init_obs_sequence
-
-use       assim_model_mod, only : static_init_assim_model
-
-use      time_manager_mod, only : time_type, set_calendar_type, GREGORIAN,      &
-                                  set_time, print_time, print_date, operator(-)
-
-use  ensemble_manager_mod, only : init_ensemble_manager, ensemble_type
-
-use   state_vector_io_mod, only : state_vector_io_init,    &
-                                  read_state, write_state
-
-use            filter_mod, only : filter_set_initial_time
-
-use      io_filenames_mod, only : io_filenames_init, file_info_type, get_restart_filename, &
-                                  stage_metadata_type, get_stage_metadata
-
-use             model_mod, only : static_init_model, get_model_size, &
-                                  get_state_meta_data,       &
-                                  model_interpolate
-
-use  distributed_state_mod, only : create_state_window, free_state_window, &
-                                   create_mean_window, free_mean_window
-
-use  test_roms_interpolate_mod, only : test_interpolate_single, test_interpolate_range
-
-implicit none
-
-! version controlled file description for error handling, do not edit
-character(len=*), parameter :: source   = &
-   "$URL$"
-character(len=*), parameter :: revision = "$Revision$"
-character(len=*), parameter :: revdate  = "$Date$"
-
-!------------------------------------------------------------------
-! The namelist variables
-!------------------------------------------------------------------
-
-integer(i8)                   :: x_ind   = -1
-real(r8), dimension(3)        :: loc_of_interest = -1.0_r8
-character(len=metadatalength) :: kind_of_interest = 'ANY'
-character(len=metadatalength) :: interp_test_vertcoord = 'VERTISHEIGHT'
-logical                       :: verbose = .FALSE.
-integer                       :: test1thru = 1
-real(r8)               :: interp_test_di = 10.0
-real(r8)               :: interp_test_dj = 10.0
-real(r8)               :: interp_test_dk = 10.0
-real(r8), dimension(2) :: interp_test_jrange = (/   0.0,  120.0 /)
-real(r8), dimension(2) :: interp_test_irange = (/   0.0,  120.0 /)
-real(r8), dimension(2) :: interp_test_krange = (/   0.0,  100.0 /)
-character(len = 129)   :: restart_in_file_name  = 'input'
-character(len = 129)   :: restart_out_file_name = 'output'
-
-namelist /test_grid_nml/ x_ind,                                    &
-                               loc_of_interest, kind_of_interest,  &
-                               interp_test_di, interp_test_irange, &
-                               interp_test_dj, interp_test_jrange, &
-                               interp_test_dk, interp_test_krange, &
-                               interp_test_vertcoord,              &
-                               verbose, test1thru,                     &
-                               restart_in_file_name, restart_out_file_name
-
-! io variables
-integer :: iunit, io
-integer :: ios_out
-type(file_info_type) :: input_file_info, output_file_info
-type(stage_metadata_type) :: stage_info
-logical              :: read_time_from_file = .true.
-