init_advection

INTERFACE:

    subroutine init_advection()

DESCRIPTION:

Allocates memory and sets up masks and lateral grid increments. USES:

    use domain, only: az,au,av,ax
 #if defined(SPHERICAL) || defined(CURVILINEAR)
    use domain, only: dxc,dyc,arcd1,dxu,dyu,arud1,dxv,dyv,arvd1,dxx,dyx
 #endif
    IMPLICIT NONE

LOCAL VARIABLES:

    integer :: rc