[Dart-dev] DART/branches Revision: 10807

[dart at ucar.edu]

nancy at ucar.edu
2016-12-16 14:26:20 -0700 (Fri, 16 Dec 2016)
64
remove converters which no longer compile, and are not needed.




Deleted: DART/branches/rma_fixed_filenames/models/POP/dart_to_pop.f90
===================================================================
--- DART/branches/rma_fixed_filenames/models/POP/dart_to_pop.f90	2016-12-16 21:20:38 UTC (rev 10806)
+++ DART/branches/rma_fixed_filenames/models/POP/dart_to_pop.f90	2016-12-16 21:26:20 UTC (rev 10807)
@@ -1,136 +0,0 @@
-! DART software - Copyright 2004 - 2013 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_pop
-
-!----------------------------------------------------------------------
-! purpose: interface between DART and the POP model
-!
-! method: Read DART state vector and overwrite values in a POP restart file.
-!         If the DART state vector has an 'advance_to_time' present, a
-!         file called pop_in.DART is created with a time_manager_nml namelist 
-!         appropriate to advance POP to the requested time.
-!
-!         The dart_to_pop_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
-use  state_vector_io_mod, only : open_restart_read, aread_state_restart, close_restart
-use time_manager_mod, only : time_type, print_time, print_date, operator(-)
-use        model_mod, only : static_init_model, sv_to_restart_file, &
-                             get_model_size, get_pop_restart_filename
-use     dart_pop_mod, only : write_pop_namelist
-
-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_pop_input_file   = 'dart_restart'
-logical               :: advance_time_present     = .false.
-
-namelist /dart_to_pop_nml/ dart_to_pop_input_file, &
-                           advance_time_present
-
-!----------------------------------------------------------------------
-
-integer               :: iunit, io, x_size
-type(time_type)       :: model_time, adv_to_time
-real(r8), allocatable :: statevector(:)
-character (len = 128) :: pop_restart_filename = 'no_pop_restart_file'
-
-!----------------------------------------------------------------------
-
-call initialize_utilities(progname='dart_to_pop')
-
-!----------------------------------------------------------------------
-! Call model_mod:static_init_model() which reads the POP 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_pop_nml", iunit)
-read(iunit, nml = dart_to_pop_nml, iostat = io)
-call check_namelist_read(iunit, io, "dart_to_pop_nml")
-
-call get_pop_restart_filename( pop_restart_filename )
-
-write(*,*)
-write(*,'(''dart_to_pop:converting DART file '',A, &
-      &'' to POP restart file '',A)') &
-     trim(dart_to_pop_input_file), trim(pop_restart_filename)
-
-!----------------------------------------------------------------------
-! Reads the valid time, the state, and the target time.
-!----------------------------------------------------------------------
-
-iunit = open_restart_read(dart_to_pop_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)