[Dart-dev] DART/branches Revision: 12429

[dart at ucar.edu]

nancy at ucar.edu
2018-03-06 15:42:32 -0700 (Tue, 06 Mar 2018)
80
these aren't being used anymore - mmc uses a common source
code for all tests.




Deleted: DART/branches/rma_netcdf_utils/models/cice/model_mod_check.f90
===================================================================
--- DART/branches/rma_netcdf_utils/models/cice/model_mod_check.f90	2018-03-06 22:40:08 UTC (rev 12428)
+++ DART/branches/rma_netcdf_utils/models/cice/model_mod_check.f90	2018-03-06 22:42:32 UTC (rev 12429)
@@ -1,625 +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 model_mod_check
-
-!----------------------------------------------------------------------
-! purpose: test routines
-!----------------------------------------------------------------------
-
-use        types_mod, only : r8, metadatalength, MISSING_R8
-use    utilities_mod, only : initialize_utilities, finalize_utilities, nc_check, &
-                             open_file, close_file, find_namelist_in_file, &
-                             check_namelist_read, nmlfileunit, do_nml_file, &
-                             do_nml_term, E_MSG, E_ERR, error_handler, file_exist
-use     location_mod, only : location_type, set_location, write_location, get_dist, &
-                             query_location, LocationDims, get_location, &
-                             VERTISLEVEL
-use     obs_kind_mod, only : get_name_for_quantity, get_index_for_quantity
-use  assim_model_mod, only : netcdf_file_type, aoutput_diagnostics, &
-                             init_diag_output, finalize_diag_output
-
-use state_vector_io_mod, only : open_restart_read, open_restart_write, close_restart, &
-                             aread_state_restart, awrite_state_restart
-
-use time_manager_mod, only : time_type, set_calendar_type, GREGORIAN, set_time,  &
-                             print_date, print_time, operator(-)
-use        model_mod, only : static_init_model, get_model_size, get_state_meta_data, &
-                             model_interpolate, restart_file_to_sv
-use     dart_cice_mod, only : get_cice_restart_filename
-
-use netcdf
-use typesizes
-
-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$"
-
-! standard output string
-character(len=256) :: string1, string2
-
-!------------------------------------------------------------------
-! The namelist variables
-!------------------------------------------------------------------
-
-character(len=256)     :: dart_input_file      = 'dart_ics'
-character(len=256)     :: output_file          = 'check_me'
-logical                :: advance_time_present = .FALSE.
-logical                :: verbose              = .FALSE.
-integer                :: test1thru            = -1
-real(r8)               :: interp_test_dlon     = 1.0
-real(r8)               :: interp_test_dlat     = 1.0
-real(r8), dimension(2) :: interp_test_latrange = (/ -90.0,  90.0 /)
-real(r8), dimension(2) :: interp_test_lonrange = (/   0.0, 360.0 /)
-real(r8), dimension(3) :: loc_of_interest     = -1.0_r8
-character(len=metadatalength) :: kind_of_interest = 'ANY'
-character(len=metadatalength) :: interp_test_vertcoord = 'VERTISLEVEL'
-
-namelist /model_mod_check_nml/ dart_input_file, output_file, &
-                        advance_time_present, test1thru, &
-                        loc_of_interest, kind_of_interest, verbose, &
-                        interp_test_dlon, interp_test_lonrange, &
-                        interp_test_dlat, interp_test_latrange
-
-!----------------------------------------------------------------------
-
-integer :: ios_out, iunit, io, i
-integer :: x_size, skip
-integer :: mykindindex
-
-type(time_type)       :: model_time, adv_to_time
-real(r8), allocatable :: statevector(:)
-
-character(len=metadatalength) :: state_meta(1)
-character(len=129) :: cice_input_file  ! set with get_model_analysis_filename() if needed
-type(netcdf_file_type) :: ncFileID
-type(location_type) :: loc
-
-real(r8) :: interp_val
-
-!----------------------------------------------------------------------
-! This portion checks the geometry information.
-!----------------------------------------------------------------------
-
-call initialize_utilities(progname='model_mod_check')
-call set_calendar_type(GREGORIAN)
-
-write(*,*)
-write(*,*)'Reading the namelist to get the input filename.'
-