uv_diffusion_3d - lateral diffusion of 3D velocity (Source File: uv_diffusion_3d.F90)

INTERFACE:

    subroutine uv_diffusion_3d()
DESCRIPTION:

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

    use domain, only: imin,imax,jmin,jmax,kmax
    use m2d, only: uv_diff_2dh
    use m2d, only: Am
    use variables_3d, only: uu,vv,uuEx,vvEx,hn,hun,hvn
 #ifdef _MOMENTUM_TERMS_
    use variables_3d, only: hsd_u,hsd_v
 #endif
    use getm_timers, only: tic, toc, TIM_UVDIFF3D
  $ use omp_lib
    IMPLICIT NONE
REVISION HISTORY:
    Original author(s): Knut Klingbeil
LOCAL VARIABLES:
    integer :: i,j,k