[Dart-dev] DART/branches Revision: 12564

[dart at ucar.edu]

nancy at ucar.edu
2018-04-26 16:13:07 -0600 (Thu, 26 Apr 2018)
143
remove trans_time program which reads the time
from a classic/lanai dart binary which we no
longer have.

also fix a typo in the lorenz docs.




Deleted: DART/branches/rma_trunk/models/am2/trans_time.f90
===================================================================
--- DART/branches/rma_trunk/models/am2/trans_time.f90	2018-04-26 21:34:00 UTC (rev 12563)
+++ DART/branches/rma_trunk/models/am2/trans_time.f90	2018-04-26 22:13:07 UTC (rev 12564)
@@ -1,120 +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 trans_time
-
-!----------------------------------------------------------------------
-! purpose: interface between AM2 and DART time and date
-!
-! method: Read DART 'state vector' file (proprietary format).
-!         Reform time and date into form needed by AM2.
-!         Write out AM2 time and date to file for use by run-pc.csh
-!
-! author: Kevin Raeder 8/1/03
-!
-!----------------------------------------------------------------------
-
-use time_manager_mod, only : time_type, read_time, write_time, &
-                             get_time, set_time, operator(-), get_date, &
-                             set_calendar_type, GREGORIAN, NOLEAP, &
-                             print_time, print_date
-use  assim_model_mod, only : open_restart_read, close_restart, aread_state_restart
-use        model_mod, only : static_init_model, get_model_size
-use    utilities_mod, only : get_unit, initialize_utilities, finalize_utilities, logfileunit
-use        types_mod, only : r8
-
-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$"
-
-integer :: x_size, ntimes = 2, n, nhtfrq, calendar_type = GREGORIAN
-integer :: file_unit(2), year, month, day, hour, minute, second, cam_date, cam_tod
-type(time_type)  :: dart_time(2), forecast_length
-character(len=256) :: file_name = 'temp_ic', file_out = 'times'
-real(r8), allocatable :: x(:)
-
-call initialize_utilities('Trans_time')
-
-call set_calendar_type(calendar_type)
-
-! call model_mod:static_init_model() which reads the namelists, finds model size, etc.
-call static_init_model()
-x_size = get_model_size()
-allocate(x(x_size))
-
-file_unit(1) = open_restart_read(file_name)
-call aread_state_restart(dart_time(2), x, file_unit(1), dart_time(1))
-
-file_unit(2) = get_unit()
-open(unit = file_unit(2), file = file_out)
-! end time is first, then beginning time
-!  -namelist "&camexp START_YMD=$times[3] START_TOD=$times[4] \
-!                     STOP_YMD=$times[1] STOP_TOD=$times[2] NHTFRQ=$times[5] /" \
-
-do n=1,ntimes
-   call get_date(dart_time(n), year, month, day, hour, minute, second)
-   PRINT*,'date = ',year, month, day, hour, minute, second
-   if (calendar_type == GREGORIAN) then
-      cam_date = year*10000 + month*100 + day
-      cam_tod  = hour*3600 + minute*60 + second
-   elseif (calendar_type == NOLEAP) then
-      cam_date = (1899 + year)*10000 + month*100 + day
-      cam_tod  = hour*3600 + minute*60 + second
-   endif
-   write (file_unit(2),'(2I8)') cam_date, cam_tod
-enddo
-
-call close_restart(file_unit(1))
-
-! calculate number of hours in forecast, and pass to history tape write frequency
-
-forecast_length = dart_time(1) - dart_time(2)
-
-call get_time(forecast_length, second, day)
-PRINT*,'forecast length = ', day, second
-hour = second/3600
-minute = mod(second,3600)
-if (minute /= 0) &
-   print*,' not integer number of hours; nhtfrq error in trans_time'
-
-! convert to hours, and negative to signal units are hours
-
-! nhtfrq = -1*((((year-1)*365 + (month-1))*30 + (day-1))*24 + hour)
-nhtfrq = -1*(day*24 + hour)
-write (file_unit(2),'(I8)') nhtfrq
-
-close(file_unit(2))
-
-!----------------------------------------------------------------------
-! Log what we think we've done, and exit.