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 NONEREVISION HISTORY:
Original author(s): Knut KlingbeilLOCAL VARIABLES:
integer :: i,j,k