VerticalSweepUp_ColumnOperators3D Subroutine

  1. SELF_ColumnOperators_3D.f90
  2. SELF_ColumnOperators_3D
  3. VerticalSweepUp_ColumnOperators3D

public subroutine VerticalSweepUp_ColumnOperators3D(this, r, qBottom, q)

Device version of VerticalSweepUp_ColumnOperators3D_t

Arguments

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

Calls

proc~~verticalsweepup_columnoperators3d~~CallsGraph proc~verticalsweepup_columnoperators3d VerticalSweepUp_ColumnOperators3D proc~checksweep_columnoperators3d_t CheckSweep_ColumnOperators3D_t proc~verticalsweepup_columnoperators3d->proc~checksweep_columnoperators3d_t interface~verticalsweep_3d_gpu VerticalSweep_3D_gpu proc~verticalsweepup_columnoperators3d->interface~verticalsweep_3d_gpu proc~checkfields_columnoperators3d_t CheckFields_ColumnOperators3D_t proc~checksweep_columnoperators3d_t->proc~checkfields_columnoperators3d_t

Contents

Source Code

VerticalSweepUp_ColumnOperators3D

Source Code

  subroutine VerticalSweepUp_ColumnOperators3D(this,r,qBottom,q)
    !! Device version of VerticalSweepUp_ColumnOperators3D_t
    implicit none
    class(ColumnOperators3D),intent(in) :: this
    class(Scalar3D),intent(in) :: r
    class(Scalar2D),intent(in) :: qBottom
    class(Scalar3D),intent(inout) :: q

    call CheckSweep_ColumnOperators3D_t(this,r,qBottom,q,"VerticalSweepUp")
    call VerticalSweep_3D_gpu(this%upInverse_gpu,r%interior_gpu,qBottom%interior_gpu,q%interior_gpu, &
                              this%N,this%nLayers,this%nColumns,r%nVar,1)

  endsubroutine VerticalSweepUp_ColumnOperators3D