da_interp_lin_2d.inc

1 subroutine da_interp_lin_2d(fm2d, is, ie, js, je, &
2                          i, j, dx, dy, dxm, dym, &
3                          fo2d)
4 
5    !-----------------------------------------------------------------------
6    ! Purpose: TBD
7    !-----------------------------------------------------------------------
8 
9    implicit none
10 
11    integer,                intent(in)  :: is, ie, js, je
12    integer,                intent(in)  :: i, j
13    real   ,                intent(in)  :: dx, dxm, dy, dym
14    real   ,                intent(in)  :: fm2d(is:ie,js:je) ! Input variable
15    real   ,                intent(out) :: fo2d  ! Output variable 
16 
17    if (trace_use_frequent) call da_trace_entry("da_interp_lin_2d")
18 
19    fo2d   = dym*(dxm*fm2d(i,j ) + dx*fm2d(i+1,j )) &
20           + dy *(dxm*fm2d(i,j+1) + dx*fm2d(i+1,j+1))
21 
22    if (trace_use_frequent) call da_trace_exit("da_interp_lin_2d")
23 
24 end subroutine da_interp_lin_2d
25 
26