uv_diffusion - lateral diffusion of depth-averaged velocity (Source File: uv_diffusion.F90)

INTERFACE:

    subroutine uv_diffusion(An_method,U,V,D,DU,DV)
 
    Note (KK): keep in sync with interface in m2d.F90
DESCRIPTION:

This wrapper calls routine uv_diff_2dh (see section 7.4.15 on page [*]). USES:

    use domain, only: imin,imax,jmin,jmax
    use m2d, only: uv_diff_2dh
    use m2d, only: Am
    use variables_2d, only: UEx,VEx
    use getm_timers,  only: tic,toc,TIM_UVDIFF
 
    IMPLICIT NONE
INPUT PARAMETERS:
    integer,intent(in)                      :: An_method
    REALTYPE,dimension(E2DFIELD),intent(in) :: U,V,D,DU,DV
REVISION HISTORY:
    Original author(s): Hans Burchard
LOCAL VARIABLES: