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=80), 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    call da_atotime(this_datestr, this_bdy_time)
18    call da_atotime(next_datestr, next_bdy_time)
19 
20    bdyfrq = next_bdy_time - this_bdy_time
21 
22    if (debug) then
23       write(unit=*, fmt='(a, f20.1)') &
24            'next_bdy_time=', next_bdy_time, &
25            'this_bdy_time=', this_bdy_time, &
26            'bdyfrq       =', bdyfrq
27    end if
28 
29 end subroutine da_get_bdyfrq
30 
31