da_interp_lin_2d_adj.inc

1 subroutine da_interp_lin_2d_adj(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)     :: fo2d   
15 
16    real   ,            intent(inout)  :: fm2d(is:ie,js:je) ! Input variable
17 
18    if (trace_use_frequent) call da_trace_entry("da_interp_lin_2d_adj")
19 
20    fm2d(i  ,j ) = dym*dxm* fo2d + fm2d(i  ,j )
21    fm2d(i+1,j ) = dym*dx * fo2d + fm2d(i+1,j )
22    fm2d(i  ,j+1) = dy *dxm* fo2d + fm2d(i  ,j+1)
23    fm2d(i+1,j+1) = dy *dx * fo2d + fm2d(i+1,j+1)
24 
25    if (trace_use_frequent) call da_trace_exit("da_interp_lin_2d_adj")
26 
27 end subroutine da_interp_lin_2d_adj
28 
29