program test_sst_timing

      implicit none

      parameter( IBYY=1990, IBMM=1, IBDD=1,IBHH=1 )
      real daysec               ! seconds in one day = 86400.0
      nht
      parameter(daysec=86400.0,nht=2280) !

      integer ksst            ! timestamp for first sst read
      integer kssti           ! incremented time stamp for sst read
      integer nyear90         !
      integer kday_year       !
      integer kday_month      !
      integer kdayt           !
      integer kday_model      !
      integer nss             !
      integer nhr0            !
      integer nt0             ! Restart time step
      integer lvlt            !
      integer j,i,k           ! Loop parameters
      integer kd              !
      integer inhr            !
      integer mtime           ! Time in hour
      integer nhr             !
      integer nho             !
      integer nhran           ! Interval in hours for the intput driving fields
      integer nday_sst        ! Interval in days for the driving SST
      integer nhr_sst         ! Interval in hours for the driving SST
      integer kday            !
      integer kfi             ! Total integration time in hour
      integer kfl             !
      integer ibyy0           ! year of reanalysis start
      integer ibmm0           ! month of reanalysis start
      integer ibyy0sst        ! year of SST file start
      integer ibmm0sst        ! month of SST file start

      real dt_sst             ! Fractal time interval in SST
      real aday0              !
      real aday_model         !
      real akss               !
      real dtan               ! Interval in seconds for the input driving fields

      integer mdat(12)
      data mdat/31,28,31,30,31,30,31,31,30,31,30,31/

      nday_sst=7 ! weekly

      nhr_sst=nday_sst*24
      dtan=real(nhran)*3600.0