[Dart-dev] DART/branches Revision: 11795

[dart at ucar.edu]

thoar at ucar.edu
2017-07-06 16:04:37 -0600 (Thu, 06 Jul 2017)
28
Removing an unneeded file.




Deleted: DART/branches/rma_openggcm/models/openggcm/dart_openggcm_mod.f90
===================================================================
--- DART/branches/rma_openggcm/models/openggcm/dart_openggcm_mod.f90	2017-07-06 22:03:21 UTC (rev 11794)
+++ DART/branches/rma_openggcm/models/openggcm/dart_openggcm_mod.f90	2017-07-06 22:04:37 UTC (rev 11795)
@@ -1,766 +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$
-
-module dart_openggcm_mod
-
-use        types_mod, only : r8, rad2deg, PI, SECPERDAY
-use time_manager_mod, only : time_type, get_date, set_date, get_time, set_time, &
-                             set_calendar_type, get_calendar_string, &
-                             print_date, print_time, operator(==), operator(-)
-use    utilities_mod, only : get_unit, open_file, close_file, file_exist, &
-                             register_module, error_handler, nc_check, &
-                             find_namelist_in_file, check_namelist_read, &
-                             E_ERR, E_MSG, find_textfile_dims, &
-                             logfileunit
-
-use typesizes
-use netcdf
-
-implicit none
-private
-
-public :: get_openggcm_calendar, set_model_time_step, &
-          get_horiz_grid_dims, get_vert_grid_dim, &
-          read_horiz_grid, read_topography, read_vert_grid, &
-          write_openggcm_namelist, get_openggcm_restart_filename
-
-! 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$"
-
-character(len=512) :: msgstring
-logical, save :: module_initialized = .false.
-
-character(len=256) :: ic_filename      = 'openggcm.r.nc'
-!character(len=256) :: restart_filename = 'dart_openggcm_mod_restart_filename_not_set'
-
-! set this to true if you want to print out the current time
-! after each N observations are processed, for benchmarking.
-logical :: print_timestamps = .false.
-integer :: print_every_Nth  = 10000
-
-!------------------------------------------------------------------
-! The openggcm time manager namelist variables
-!------------------------------------------------------------------
-
-character(len=100) :: accel_file ! length consistent with openggcm
-character(len= 64) :: stop_option, runid, dt_option, time_mix_opt
-character(len=  1) :: date_separator
-logical  :: impcor, laccel, allow_leapyear
-real(r8) :: dtuxcel, dt_count
-integer  :: iyear0, imonth0, iday0, ihour0, iminute0, isecond0
-integer  :: stop_count, fit_freq, time_mix_freq
-
-namelist /time_manager_nml/ runid, time_mix_opt, time_mix_freq, &
-    impcor, laccel, accel_file, dtuxcel, iyear0, imonth0, &
-    iday0, ihour0, iminute0, isecond0, dt_option, dt_count, &
-    stop_option, stop_count, date_separator, allow_leapyear, fit_freq
-
-!------------------------------------------------------------------
-! The openggcm I/O namelist variables
-!------------------------------------------------------------------
-
-character(len=100) :: log_filename, pointer_filename
-logical :: lredirect_stdout, luse_pointer_files
-logical :: luse_nf_64bit_offset
-integer :: num_iotasks
-
-namelist /io_nml/ num_iotasks, lredirect_stdout, log_filename, &
-    luse_pointer_files, pointer_filename, luse_nf_64bit_offset
-
-!------------------------------------------------------------------
-! The openggcm restart manager namelist variables
-!------------------------------------------------------------------
-
-character(len=100) :: restart_outfile ! length consistent with openggcm
-character(len= 64) :: restart_freq_opt, restart_start_opt, restart_fmt
-logical :: leven_odd_on, pressure_correction
-integer :: restart_freq, restart_start, even_odd_freq
-
-namelist /restart_nml/ restart_freq_opt, restart_freq, &
-     restart_start_opt, restart_start, restart_outfile, &
-    restart_fmt, leven_odd_on, even_odd_freq, pressure_correction
-
-!------------------------------------------------------------------
-! The openggcm initial temperature and salinity namelist 
-!------------------------------------------------------------------
-
-character(len=100) :: init_ts_file ! length consistent with openggcm
-character(len=100) :: init_ts_outfile
-character(len= 64) :: init_ts_option, init_ts_suboption
-character(len= 64) :: init_ts_file_fmt, init_ts_outfile_fmt