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