INTERFACE:
subroutine adv_split_v(dt,f,fi,Di,adv,V,DV, & #if defined(SPHERICAL) || defined(CURVILINEAR) dxv,dyv,arcd1, & #endif splitfac,scheme,AH, & mask_flux,mask_update) Note (KK): Keep in sync with interface in advection.F90DESCRIPTION:
Executes an advection step in meridional direction for a 2D quantity in analogy to routine adv_u_split (see section 7.4.7 on page ). USES:
use domain, only: imin,imax,jmin,jmax #if !( defined(SPHERICAL) || defined(CURVILINEAR) ) use domain, only: dx,dy,ard1 #endif use advection, only: adv_interfacial_reconstruction use advection, only: UPSTREAM $ use omp_lib IMPLICIT NONEINPUT PARAMETERS:
REALTYPE,intent(in) :: dt,splitfac,AH REALTYPE,dimension(E2DFIELD),intent(in) :: f,V,DV #if defined(SPHERICAL) || defined(CURVILINEAR) REALTYPE,dimension(_IRANGE_HALO_,_JRANGE_HALO_-1),intent(in) :: dxv,dyv REALTYPE,dimension(E2DFIELD),intent(in) :: arcd1 #endif integer,intent(in) :: scheme logical,dimension(_IRANGE_HALO_,_JRANGE_HALO_-1),intent(in) :: mask_flux logical,dimension(E2DFIELD),intent(in) :: mask_updateINPUT/OUTPUT PARAMETERS:
REALTYPE,dimension(E2DFIELD),intent(inout) :: fi,Di,advLOCAL VARIABLES:
REALTYPE,dimension(E2DFIELD) :: vflux logical :: use_limiter,use_AH integer :: i,j,jsub REALTYPE :: dti,Dio,advn,cfl,fuu,fu,fdREVISION HISTORY:
Original author(s): Hans Burchard & Karsten Bolding