[Dart-dev] DART/branches Revision: 11307

[dart at ucar.edu]

nancy at ucar.edu
2017-03-14 14:24:16 -0600 (Tue, 14 Mar 2017)
202
delete files which are obsolete, like dart_to_model
and model_to_dart.  rename 'full_model_mod' to
'geo_model_mod'. it still has code to read/write
binary state vectors so needs to be updated for RMA.




Deleted: DART/branches/rma_trunk/models/template/dart_to_model.f90
===================================================================
--- DART/branches/rma_trunk/models/template/dart_to_model.f90	2017-03-14 20:20:57 UTC (rev 11306)
+++ DART/branches/rma_trunk/models/template/dart_to_model.f90	2017-03-14 20:24:16 UTC (rev 11307)
@@ -1,194 +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_model
-
-!----------------------------------------------------------------------
-! purpose: interface between DART and the model model
-!
-! method: Read DART state vector and overwrite values in a model restart file.
-!         If the DART state vector has an 'advance_to_time' present, a
-!         file called model_in.DART is created with a time_manager_nml namelist 
-!         appropriate to advance model to the requested time.
-!
-!         The dart_to_model_nml namelist setting for advance_time_present 
-!         determines whether or not the input file has an 'advance_to_time'.
-!         Typically, only temporary files like 'assim_model_state_ic' have
-!         an 'advance_to_time'.
-!
-! author: Tim Hoar 25 Jun 09, revised 12 July 2010
-!----------------------------------------------------------------------
-
-use        types_mod, only : r8
-use    utilities_mod, only : initialize_utilities, finalize_utilities, &
-                             find_namelist_in_file, check_namelist_read, &
-                             logfileunit, open_file, close_file
-use  assim_model_mod, only : open_restart_read, aread_state_restart, close_restart
-use time_manager_mod, only : time_type, print_time, print_date, operator(-), &
-                             get_time, get_date
-use        model_mod, only : static_init_model, dart_vector_to_model_file, &
-                             get_model_size
-
-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$"
-
-!------------------------------------------------------------------
-! The namelist variables
-!------------------------------------------------------------------
-
-character (len = 128) :: dart_to_model_input_file = 'dart_restart'
-logical               :: advance_time_present     = .false.
-character(len=256)    :: model_restart_filename   = 'model_restartfile'
-
-namelist /dart_to_model_nml/ dart_to_model_input_file, &
-                            advance_time_present,    &
-                            model_restart_filename
-
-!----------------------------------------------------------------------
-
-integer               :: iunit, io, x_size, diff1, diff2
-type(time_type)       :: model_time, adv_to_time, base_time
-real(r8), allocatable :: statevector(:)
-logical               :: verbose              = .FALSE.
-
-!----------------------------------------------------------------------
-
-call initialize_utilities(progname='dart_to_model', output_flag=verbose)
-
-!----------------------------------------------------------------------
-! Call model_mod:static_init_model() which reads the model namelists
-! to set grid sizes, etc.
-!----------------------------------------------------------------------
-
-call static_init_model()
-
-x_size = get_model_size()
-allocate(statevector(x_size))
-
-! Read the namelist to get the input filename. 
-
-call find_namelist_in_file("input.nml", "dart_to_model_nml", iunit)
-read(iunit, nml = dart_to_model_nml, iostat = io)
-call check_namelist_read(iunit, io, "dart_to_model_nml")
-
-write(*,*)
-write(*,*) 'dart_to_model: converting DART file ', "'"//trim(dart_to_model_input_file)//"'"
-write(*,*) 'to model restart files named        ', "'"//trim(model_restart_filename)//"'" 
-
-!----------------------------------------------------------------------
-! Reads the valid time, the state, and the target time.
-!----------------------------------------------------------------------
-
-iunit = open_restart_read(dart_to_model_input_file)
-
-if ( advance_time_present ) then
-   call aread_state_restart(model_time, statevector, iunit, adv_to_time)
-else
-   call aread_state_restart(model_time, statevector, iunit)
-endif