var/da/da_update_bc/da_get_bdyfrq.inc

   1 subroutine da_get_bdyfrq(this_datestr, next_datestr, bdyfrq, debug)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9 #include "netcdf.inc"
  10
  11    character(len=*), intent(in)  :: this_datestr, next_datestr
  12    real,              intent(out) :: bdyfrq
  13    logical,           intent(in)  :: debug
  14
  15    real    :: this_bdy_time, next_bdy_time
  16
  17    ! if (trace_use) call da_trace_entry("da_get_bdyfrq")
  18
  19    call da_atotime(this_datestr, this_bdy_time)
  20    call da_atotime(next_datestr, next_bdy_time)
  21
  22    bdyfrq = next_bdy_time - this_bdy_time
  23
  24    if (debug) then
  25       write(unit=stdout, fmt='(a, f20.1)') &
  26            'next_bdy_time=', next_bdy_time, &
  27            'this_bdy_time=', this_bdy_time, &
  28            'bdyfrq       =', bdyfrq
  29    end if
  30
  31    ! if (trace_use) call da_trace_exit("da_get_bdyfrq")
  32
  33 end subroutine da_get_bdyfrq
  34
  35