adv_split_v - meridional advection of 2D quantities

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.F90
DESCRIPTION:

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 NONE
INPUT 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_update
INPUT/OUTPUT PARAMETERS:
    REALTYPE,dimension(E2DFIELD),intent(inout)                   :: fi,Di,adv
LOCAL VARIABLES:
    REALTYPE,dimension(E2DFIELD) :: vflux
    logical            :: use_limiter,use_AH
    integer            :: i,j,jsub
    REALTYPE           :: dti,Dio,advn,cfl,fuu,fu,fd
REVISION HISTORY:
    Original author(s): Hans Burchard & Karsten Bolding



kklingbe 2017-10-02