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: