ColumnIntegral_ColumnOperators3D Subroutine

  1. SELF_ColumnOperators_3D.f90
  2. SELF_ColumnOperators_3D
  3. ColumnIntegral_ColumnOperators3D

public subroutine ColumnIntegral_ColumnOperators3D(this, q, qbar)

Device version of ColumnIntegral_ColumnOperators3D_t

Arguments

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

Calls

proc~~columnintegral_columnoperators3d~~CallsGraph proc~columnintegral_columnoperators3d ColumnIntegral_ColumnOperators3D proc~checkfields_columnoperators3d_t CheckFields_ColumnOperators3D_t proc~columnintegral_columnoperators3d->proc~checkfields_columnoperators3d_t interface~columnintegral_3d_gpu ColumnIntegral_3D_gpu proc~columnintegral_columnoperators3d->interface~columnintegral_3d_gpu

Contents

Source Code

ColumnIntegral_ColumnOperators3D

Source Code

  subroutine ColumnIntegral_ColumnOperators3D(this,q,qbar)
    !! Device version of ColumnIntegral_ColumnOperators3D_t
    implicit none
    class(ColumnOperators3D),intent(in) :: this
    class(Scalar3D),intent(in) :: q
    class(Scalar2D),intent(inout) :: qbar

    call CheckFields_ColumnOperators3D_t(this,q,qbar,"ColumnIntegral")
    call ColumnIntegral_3D_gpu(q%interior_gpu,this%geometry%dxds%interior_gpu, &
                               this%interp%qWeights_gpu,qbar%interior_gpu, &
                               this%N,this%nLayers,this%nColumns,q%nVar)

  endsubroutine ColumnIntegral_ColumnOperators3D