VerticalSweepDown_ColumnOperators3D Subroutine

  1. SELF_ColumnOperators_3D.f90
  2. SELF_ColumnOperators_3D
  3. VerticalSweepDown_ColumnOperators3D

public subroutine VerticalSweepDown_ColumnOperators3D(this, r, qTop, q)

Device version of VerticalSweepDown_ColumnOperators3D_t

Arguments

TypeIntentOptionalAttributesName
class(ColumnOperators3D), intent(in) :: this
class(Scalar3D), intent(in) :: r
class(Scalar2D), intent(in) :: qTop
class(Scalar3D), intent(inout) :: q

Calls

proc~~verticalsweepdown_columnoperators3d~~CallsGraph proc~verticalsweepdown_columnoperators3d VerticalSweepDown_ColumnOperators3D proc~checksweep_columnoperators3d_t CheckSweep_ColumnOperators3D_t proc~verticalsweepdown_columnoperators3d->proc~checksweep_columnoperators3d_t interface~verticalsweep_3d_gpu VerticalSweep_3D_gpu proc~verticalsweepdown_columnoperators3d->interface~verticalsweep_3d_gpu proc~checkfields_columnoperators3d_t CheckFields_ColumnOperators3D_t proc~checksweep_columnoperators3d_t->proc~checkfields_columnoperators3d_t

Contents

Source Code

VerticalSweepDown_ColumnOperators3D

Source Code

  subroutine VerticalSweepDown_ColumnOperators3D(this,r,qTop,q)
    !! Device version of VerticalSweepDown_ColumnOperators3D_t
    implicit none
    class(ColumnOperators3D),intent(in) :: this
    class(Scalar3D),intent(in) :: r
    class(Scalar2D),intent(in) :: qTop
    class(Scalar3D),intent(inout) :: q

    call CheckSweep_ColumnOperators3D_t(this,r,qTop,q,"VerticalSweepDown")
    call VerticalSweep_3D_gpu(this%downInverse_gpu,r%interior_gpu,qTop%interior_gpu,q%interior_gpu, &
                              this%N,this%nLayers,this%nColumns,r%nVar,0)

  endsubroutine VerticalSweepDown_ColumnOperators3D