subroutine uv_diffusion(An_method,U,V,D,DU,DV) Note (KK): keep in sync with interface in m2d.F90DESCRIPTION:
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 NONEINPUT PARAMETERS:
integer,intent(in) :: An_method REALTYPE,dimension(E2DFIELD),intent(in) :: U,V,D,DU,DVREVISION HISTORY:
Original author(s): Hans BurchardLOCAL VARIABLES: