scale_element_operation_gpu_driver Module Reference

module FElib / Element / Driver for operation with 3D tensor product elements using GPU More...

Data Types
type	elementoperationgpudriver
	Driver for element operation with 3D tensor product elements using GPU. More...

Functions/Subroutines
subroutine	elementoperationgpu_init (this, elem_optr_base3d)
	Initialize an object of ElementOperationGPUDriver.
subroutine, public	elementoperationgpu_vfilterpm1 (this, vec_in, ne_in, ne_out, vec_out)
subroutine, public	elementoperationgpu_div_kplane (this, flux2d_kplane, e11, e22, k, div_xy)
subroutine, public	elementoperationgpu_divvar5_kplane (this, flux2d_kplane, e11, e22, k, div_xy)
subroutine, public	elementoperationgpu_divvar5_kplane2 (this, flux2d_kplane_x, flux2d_kplane_y, e11, e22, k, div_xy)
subroutine, public	elementoperationgpu_divvar5_z_lift (this, fluxz, ebnd_flux, e33, gsqrt, div3d)
subroutine, public	elementoperationgpu_divvar5 (this, flux_x, flux_y, flux_z, ebnd_flux, e11, e22, e33, gsqrt, ne, div3d)
subroutine, public	elementoperationgpu_modalfilter_var5 (this, vec_in, vec_work, ne, vec_out)
	Apply a modal filter for five variables.

Detailed Description

module FElib / Element / Driver for operation with 3D tensor product elements using GPU

Description

A driver module for providing kernels of matrix and vector operations assuming a 3D tensor product element with (p+1)^3 DOF and GPU execution.

Author

Yuta Kawai, Xuanzhengbo Ren, and Team SCALE

Function/Subroutine Documentation

elementoperationgpu_init()

subroutine scale_element_operation_gpu_driver::elementoperationgpu_init	(	class(elementoperationgpudriver), intent(inout)	this,
		class(elementoperationbase3d), intent(in), target	elem_optr_base3d )

Initialize an object of ElementOperationGPUDriver.

The pointer to the given ElementOperationBase3D object are attached and necessary data is transferred to GPU.

Parameters

[in,out]	this	An object of ElementOperationGPUDriver to be initialized
[in]	elem_optr_base3d	An obect of 3D element operation base tyoe

Definition at line 75 of file scale_element_operation_gpu_driver.F90.

    use scale_prc, only: prc_abort
    implicit none
    class(ElementOperationGPUDriver), intent(inout) :: this               !< An object of ElementOperationGPUDriver to be initialized
    class(ElementOperationBase3D), intent(in), target :: elem_optr_base3D !< An obect of 3D element operation base tyoe 
    !----------------------------------------------------------
 
    !$acc enter data create(this)
 
    this%Nnode_h1D = elem_optr_base3d%elem3D%Nnode_h1D
    this%Nnode_v = elem_optr_base3d%elem3D%Nnode_v
    this%NfpTot = elem_optr_base3d%elem3D%NfpTot
    !$acc update device(this%Nnode_h1D, this%Nnode_v, this%NfpTot)
 
    select type(elem_optr_base3d)
    type is (elementoperationtensorprod3d_p1)
        this%elem_optr_tensorprod3D_P1 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P1)
        !$acc update device(this%elem_optr_tensorprod3D_P1%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P1%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P1%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P1%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P1%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P1%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P1%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p2)
        this%elem_optr_tensorprod3D_P2 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P2)
        !$acc update device(this%elem_optr_tensorprod3D_P2%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P2%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P2%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P2%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P2%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P2%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P2%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p3)
        this%elem_optr_tensorprod3D_P3 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P3)
        !$acc update device(this%elem_optr_tensorprod3D_P3%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P3%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P3%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P3%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P3%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P3%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P3%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p4)
        this%elem_optr_tensorprod3D_P4 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P4)
        !$acc update device(this%elem_optr_tensorprod3D_P4%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P4%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P4%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P4%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P4%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P4%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P4%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p5)
        this%elem_optr_tensorprod3D_P5 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P5)
        !$acc update device(this%elem_optr_tensorprod3D_P5%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P5%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P5%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P5%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P5%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P5%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P5%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p6)
        this%elem_optr_tensorprod3D_P6 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P6)
        !$acc update device(this%elem_optr_tensorprod3D_P6%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P6%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P6%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P6%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P6%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P6%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P6%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p7)
        this%elem_optr_tensorprod3D_P7 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P7)
        !$acc update device(this%elem_optr_tensorprod3D_P7%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P7%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P7%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P7%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P7%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P7%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P7%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p8)
        this%elem_optr_tensorprod3D_P8 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P8)
        !$acc update device(this%elem_optr_tensorprod3D_P8%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P8%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P8%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P8%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P8%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P8%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P8%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p9)
        this%elem_optr_tensorprod3D_P9 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P9)
        !$acc update device(this%elem_optr_tensorprod3D_P9%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P9%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P9%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P9%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P9%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P9%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P9%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p10)
        this%elem_optr_tensorprod3D_P10 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P10)
        !$acc update device(this%elem_optr_tensorprod3D_P10%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P10%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P10%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P10%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P10%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P10%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P10%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p11)
        this%elem_optr_tensorprod3D_P11 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P11)
        !$acc update device(this%elem_optr_tensorprod3D_P11%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P11%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P11%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P11%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P11%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P11%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P11%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p12)
        this%elem_optr_tensorprod3D_P12 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P12)
        !$acc update device(this%elem_optr_tensorprod3D_P12%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P12%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P12%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P12%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P12%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P12%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P12%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p13)
        this%elem_optr_tensorprod3D_P13 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P13)
        !$acc update device(this%elem_optr_tensorprod3D_P13%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P13%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P13%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P13%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P13%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P13%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P13%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p14)
        this%elem_optr_tensorprod3D_P14 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P14)
        !$acc update device(this%elem_optr_tensorprod3D_P14%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P14%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P14%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P14%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P14%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P14%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P14%MFilter_v1D_tr)
    type is (elementoperationtensorprod3d_p15)
        this%elem_optr_tensorprod3D_P15 => elem_optr_base3d
        !$acc enter data attach(this%elem_optr_tensorprod3D_P15)
        !$acc update device(this%elem_optr_tensorprod3D_P15%IntrpMat_VPOrdM1_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P15%D1D)
        !$acc update device(this%elem_optr_tensorprod3D_P15%D1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P15%Lift_mat)
        !$acc update device(this%elem_optr_tensorprod3D_P15%MFilter_h1D)
        !$acc update device(this%elem_optr_tensorprod3D_P15%MFilter_h1D_tr)
        !$acc update device(this%elem_optr_tensorprod3D_P15%MFilter_v1D_tr)
    class default
      log_info("ElementOperationGPU_Init",*) "Unsupported type is specified for elem_optr_base3D. Check!"
      call prc_abort
    end select
    
    return

elementoperationgpu_vfilterpm1()

subroutine, public scale_element_operation_gpu_driver::elementoperationgpu_vfilterpm1	(	type(elementoperationgpudriver), intent(in)	this,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v,ne_in), intent(in)	vec_in,
		integer, intent(in)	ne_in,
		integer, intent(in)	ne_out,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v,ne_out), intent(out)	vec_out )

Definition at line 257 of file scale_element_operation_gpu_driver.F90.

    implicit none
    type(ElementOperationGPUDriver), intent(in) :: this
    integer, intent(in) :: Ne_in, Ne_out
    real(RP), intent(in) :: vec_in(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v,Ne_in)
    real(RP), intent(out) :: vec_out(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v,Ne_out)
    !----------------------------------------------------------
 
    !!$acc routine gang
 
    select case (this%Nnode_h1D)
    case (2)
        call element_operation_kernel_matvec_dirz_p1( this%elem_optr_tensorprod3D_P1%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (3)
        call element_operation_kernel_matvec_dirz_p2( this%elem_optr_tensorprod3D_P2%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (4)
        call element_operation_kernel_matvec_dirz_p3( this%elem_optr_tensorprod3D_P3%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (5)
        call element_operation_kernel_matvec_dirz_p4( this%elem_optr_tensorprod3D_P4%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (6)
        call element_operation_kernel_matvec_dirz_p5( this%elem_optr_tensorprod3D_P5%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (7)
        call element_operation_kernel_matvec_dirz_p6( this%elem_optr_tensorprod3D_P6%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (8)
        call element_operation_kernel_matvec_dirz_p7( this%elem_optr_tensorprod3D_P7%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (9)
        call element_operation_kernel_matvec_dirz_p8( this%elem_optr_tensorprod3D_P8%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (10)
        call element_operation_kernel_matvec_dirz_p9( this%elem_optr_tensorprod3D_P9%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (11)
        call element_operation_kernel_matvec_dirz_p10( this%elem_optr_tensorprod3D_P10%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (12)
        call element_operation_kernel_matvec_dirz_p11( this%elem_optr_tensorprod3D_P11%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (13)
        call element_operation_kernel_matvec_dirz_p12( this%elem_optr_tensorprod3D_P12%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (14)
        call element_operation_kernel_matvec_dirz_p13( this%elem_optr_tensorprod3D_P13%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (15)
        call element_operation_kernel_matvec_dirz_p14( this%elem_optr_tensorprod3D_P14%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    case (16)
        call element_operation_kernel_matvec_dirz_p15( this%elem_optr_tensorprod3D_P15%IntrpMat_VPOrdM1_tr, vec_in, ne_in, ne_out, vec_out )
    end select
    return

References scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p1(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p10(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p11(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p12(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p13(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p14(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p15(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p3(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p4(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p5(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p6(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p7(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p8(), and scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_dirz_p9().

Referenced by scale_atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu::atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu_cal_tend_shallow_atm(), scale_atm_dyn_dgm_nonhydro3d_rhot_heve_gpu::atm_dyn_dgm_nonhydro3d_rhot_heve_cal_tend_gpu(), scale_atm_dyn_dgm_nonhydro3d_rhot_heve_gpu::atm_dyn_dgm_nonhydro3d_rhot_heve_cal_tend_gpu2(), and scale_element_operation_gpu_driver::elementoperationgpudriver::final().

elementoperationgpu_div_kplane()

subroutine, public scale_element_operation_gpu_driver::elementoperationgpu_div_kplane	(	type(elementoperationgpudriver), intent(in)	this,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,2), intent(in)	flux2d_kplane,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v), intent(in)	e11,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v), intent(in)	e22,
		integer, intent(in)	k,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d), intent(out)	div_xy )

Definition at line 302 of file scale_element_operation_gpu_driver.F90.

    implicit none
    type(ElementOperationGPUDriver), intent(in) :: this
    real(RP), intent(in) :: Flux2D_kplane(this%Nnode_h1D,this%Nnode_h1D,2)
    real(RP), intent(in) :: E11(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v)
    real(RP), intent(in) :: E22(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v)
    integer, intent(in) :: k
    real(RP), intent(out) :: div_xy(this%Nnode_h1D,this%Nnode_h1D)
    !----------------------------------------------------------
 
    !$acc routine vector
 
    select case (this%Nnode_h1D)
    case (2)
        call element_operation_kernel_matvec_divlike_dirxy_p1( this%elem_optr_tensorprod3D_P1%D1D, this%elem_optr_tensorprod3D_P1%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (3)
        call element_operation_kernel_matvec_divlike_dirxy_p2( this%elem_optr_tensorprod3D_P2%D1D, this%elem_optr_tensorprod3D_P2%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (4)
        call element_operation_kernel_matvec_divlike_dirxy_p3( this%elem_optr_tensorprod3D_P3%D1D, this%elem_optr_tensorprod3D_P3%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (5)
        call element_operation_kernel_matvec_divlike_dirxy_p4( this%elem_optr_tensorprod3D_P4%D1D, this%elem_optr_tensorprod3D_P4%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (6)
        call element_operation_kernel_matvec_divlike_dirxy_p5( this%elem_optr_tensorprod3D_P5%D1D, this%elem_optr_tensorprod3D_P5%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (7)
        call element_operation_kernel_matvec_divlike_dirxy_p6( this%elem_optr_tensorprod3D_P6%D1D, this%elem_optr_tensorprod3D_P6%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (8)
        call element_operation_kernel_matvec_divlike_dirxy_p7( this%elem_optr_tensorprod3D_P7%D1D, this%elem_optr_tensorprod3D_P7%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (9)
        call element_operation_kernel_matvec_divlike_dirxy_p8( this%elem_optr_tensorprod3D_P8%D1D, this%elem_optr_tensorprod3D_P8%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (10)
        call element_operation_kernel_matvec_divlike_dirxy_p9( this%elem_optr_tensorprod3D_P9%D1D, this%elem_optr_tensorprod3D_P9%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (11)
        call element_operation_kernel_matvec_divlike_dirxy_p10( this%elem_optr_tensorprod3D_P10%D1D, this%elem_optr_tensorprod3D_P10%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (12)
        call element_operation_kernel_matvec_divlike_dirxy_p11( this%elem_optr_tensorprod3D_P11%D1D, this%elem_optr_tensorprod3D_P11%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (13)
        call element_operation_kernel_matvec_divlike_dirxy_p12( this%elem_optr_tensorprod3D_P12%D1D, this%elem_optr_tensorprod3D_P12%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (14)
        call element_operation_kernel_matvec_divlike_dirxy_p13( this%elem_optr_tensorprod3D_P13%D1D, this%elem_optr_tensorprod3D_P13%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (15)
        call element_operation_kernel_matvec_divlike_dirxy_p14( this%elem_optr_tensorprod3D_P14%D1D, this%elem_optr_tensorprod3D_P14%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (16)
        call element_operation_kernel_matvec_divlike_dirxy_p15( this%elem_optr_tensorprod3D_P15%D1D, this%elem_optr_tensorprod3D_P15%D1D_tr, flux2d_kplane(:,:,1), flux2d_kplane(:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    end select
    return

References scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p1(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p10(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p11(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p12(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p13(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p14(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p15(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p3(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p4(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p5(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p6(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p7(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p8(), and scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_p9().

Referenced by scale_atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu::atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu_cal_tend_shallow_atm(), scale_atm_dyn_dgm_nonhydro3d_rhot_heve_gpu::atm_dyn_dgm_nonhydro3d_rhot_heve_cal_tend_gpu(), scale_atm_dyn_dgm_nonhydro3d_rhot_heve_gpu::atm_dyn_dgm_nonhydro3d_rhot_heve_cal_tend_gpu2(), and scale_element_operation_gpu_driver::elementoperationgpudriver::final().

elementoperationgpu_divvar5_kplane()

subroutine, public scale_element_operation_gpu_driver::elementoperationgpu_divvar5_kplane	(	type(elementoperationgpudriver), intent(in)	this,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5,2), intent(in)	flux2d_kplane,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v), intent(in)	e11,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v), intent(in)	e22,
		integer, intent(in)	k,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5), intent(out)	div_xy )

Definition at line 379 of file scale_element_operation_gpu_driver.F90.

    implicit none
    type(ElementOperationGPUDriver), intent(in) :: this
    real(RP), intent(in) :: Flux2D_kplane(this%Nnode_h1D,this%Nnode_h1D,5,2)
    real(RP), intent(in) :: E11(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v)
    real(RP), intent(in) :: E22(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v)
    integer, intent(in) :: k
    real(RP), intent(out) :: div_xy(this%Nnode_h1D,this%Nnode_h1D,5)
    !----------------------------------------------------------
 
    !$acc routine vector
 
    select case (this%Nnode_h1D)
    case (2)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p1( this%elem_optr_tensorprod3D_P1%D1D, this%elem_optr_tensorprod3D_P1%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (3)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p2( this%elem_optr_tensorprod3D_P2%D1D, this%elem_optr_tensorprod3D_P2%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (4)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p3( this%elem_optr_tensorprod3D_P3%D1D, this%elem_optr_tensorprod3D_P3%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (5)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p4( this%elem_optr_tensorprod3D_P4%D1D, this%elem_optr_tensorprod3D_P4%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (6)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p5( this%elem_optr_tensorprod3D_P5%D1D, this%elem_optr_tensorprod3D_P5%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (7)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p6( this%elem_optr_tensorprod3D_P6%D1D, this%elem_optr_tensorprod3D_P6%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (8)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p7( this%elem_optr_tensorprod3D_P7%D1D, this%elem_optr_tensorprod3D_P7%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (9)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p8( this%elem_optr_tensorprod3D_P8%D1D, this%elem_optr_tensorprod3D_P8%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (10)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p9( this%elem_optr_tensorprod3D_P9%D1D, this%elem_optr_tensorprod3D_P9%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (11)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p10( this%elem_optr_tensorprod3D_P10%D1D, this%elem_optr_tensorprod3D_P10%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (12)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p11( this%elem_optr_tensorprod3D_P11%D1D, this%elem_optr_tensorprod3D_P11%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (13)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p12( this%elem_optr_tensorprod3D_P12%D1D, this%elem_optr_tensorprod3D_P12%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (14)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p13( this%elem_optr_tensorprod3D_P13%D1D, this%elem_optr_tensorprod3D_P13%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (15)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p14( this%elem_optr_tensorprod3D_P14%D1D, this%elem_optr_tensorprod3D_P14%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    case (16)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p15( this%elem_optr_tensorprod3D_P15%D1D, this%elem_optr_tensorprod3D_P15%D1D_tr, flux2d_kplane(:,:,:,1), flux2d_kplane(:,:,:,2),  &
          e11(:,:,k), e22(:,:,k), &
          div_xy )
    end select
    return

References scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p1(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p10(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p11(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p12(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p13(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p14(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p15(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p3(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p4(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p5(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p6(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p7(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p8(), and scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p9().

Referenced by scale_atm_dyn_dgm_nonhydro3d_rhot_heve_gpu::atm_dyn_dgm_nonhydro3d_rhot_heve_cal_tend_gpu(), and scale_element_operation_gpu_driver::elementoperationgpudriver::final().

elementoperationgpu_divvar5_kplane2()

subroutine, public scale_element_operation_gpu_driver::elementoperationgpu_divvar5_kplane2	(	type(elementoperationgpudriver), intent(in)	this,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5), intent(in)	flux2d_kplane_x,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5), intent(in)	flux2d_kplane_y,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d), intent(in)	e11,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d), intent(in)	e22,
		integer, intent(in)	k,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5), intent(out)	div_xy )

Definition at line 456 of file scale_element_operation_gpu_driver.F90.

    implicit none
    type(ElementOperationGPUDriver), intent(in) :: this
    real(RP), intent(in) :: Flux2D_kplane_x(this%Nnode_h1D,this%Nnode_h1D,5)
    real(RP), intent(in) :: Flux2D_kplane_y(this%Nnode_h1D,this%Nnode_h1D,5)
    real(RP), intent(in) :: E11(this%Nnode_h1D,this%Nnode_h1D)
    real(RP), intent(in) :: E22(this%Nnode_h1D,this%Nnode_h1D)
    integer, intent(in) :: k
    real(RP), intent(out) :: div_xy(this%Nnode_h1D,this%Nnode_h1D,5)
    !----------------------------------------------------------
 
    !$acc routine vector
 
    select case (this%Nnode_h1D)
    case (2)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p1( this%elem_optr_tensorprod3D_P1%D1D, this%elem_optr_tensorprod3D_P1%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (3)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p2( this%elem_optr_tensorprod3D_P2%D1D, this%elem_optr_tensorprod3D_P2%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (4)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p3( this%elem_optr_tensorprod3D_P3%D1D, this%elem_optr_tensorprod3D_P3%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (5)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p4( this%elem_optr_tensorprod3D_P4%D1D, this%elem_optr_tensorprod3D_P4%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (6)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p5( this%elem_optr_tensorprod3D_P5%D1D, this%elem_optr_tensorprod3D_P5%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (7)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p6( this%elem_optr_tensorprod3D_P6%D1D, this%elem_optr_tensorprod3D_P6%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (8)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p7( this%elem_optr_tensorprod3D_P7%D1D, this%elem_optr_tensorprod3D_P7%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (9)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p8( this%elem_optr_tensorprod3D_P8%D1D, this%elem_optr_tensorprod3D_P8%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (10)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p9( this%elem_optr_tensorprod3D_P9%D1D, this%elem_optr_tensorprod3D_P9%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (11)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p10( this%elem_optr_tensorprod3D_P10%D1D, this%elem_optr_tensorprod3D_P10%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (12)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p11( this%elem_optr_tensorprod3D_P11%D1D, this%elem_optr_tensorprod3D_P11%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (13)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p12( this%elem_optr_tensorprod3D_P12%D1D, this%elem_optr_tensorprod3D_P12%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (14)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p13( this%elem_optr_tensorprod3D_P13%D1D, this%elem_optr_tensorprod3D_P13%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (15)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p14( this%elem_optr_tensorprod3D_P14%D1D, this%elem_optr_tensorprod3D_P14%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    case (16)
        call element_operation_kernel_matvec_divlike_dirxy_var5_p15( this%elem_optr_tensorprod3D_P15%D1D, this%elem_optr_tensorprod3D_P15%D1D_tr, flux2d_kplane_x, flux2d_kplane_y,  &
          e11, e22, &
          div_xy )
    end select
    return

References scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p1(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p10(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p11(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p12(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p13(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p14(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p15(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p3(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p4(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p5(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p6(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p7(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p8(), and scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirxy_var5_p9().

Referenced by scale_atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu::atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu_cal_tend_shallow_atm(), scale_atm_dyn_dgm_nonhydro3d_rhot_heve_gpu::atm_dyn_dgm_nonhydro3d_rhot_heve_cal_tend_gpu2(), and scale_element_operation_gpu_driver::elementoperationgpudriver::final().

elementoperationgpu_divvar5_z_lift()

subroutine, public scale_element_operation_gpu_driver::elementoperationgpu_divvar5_z_lift	(	type(elementoperationgpudriver), intent(in)	this,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5,this%nnode_v), intent(in)	fluxz,
		real(rp), dimension(this%nfptot,5), intent(in)	ebnd_flux,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v), intent(in)	e33,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v), intent(in)	gsqrt,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5,this%nnode_v), intent(inout)	div3d )

Definition at line 534 of file scale_element_operation_gpu_driver.F90.

    implicit none
    type(ElementOperationGPUDriver), intent(in) :: this
    real(RP), intent(in) :: FluxZ(this%Nnode_h1D,this%Nnode_h1D,5,this%Nnode_v)
    real(RP), intent(in) :: ebnd_flux(this%NfpTot,5)
    real(RP), intent(in) :: E33(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v)
    real(RP), intent(in) :: Gsqrt(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v)
    real(RP), intent(inout) :: div3D(this%Nnode_h1D,this%Nnode_h1D,5,this%Nnode_v)
    !----------------------------------------------------------
 
    !$acc routine vector
    
    select case (this%Nnode_h1D)
    case (2)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p1( &
          this%elem_optr_tensorprod3D_P1%D1D_tr, this%elem_optr_tensorprod3D_P1%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (3)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p2( &
          this%elem_optr_tensorprod3D_P2%D1D_tr, this%elem_optr_tensorprod3D_P2%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (4)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p3( &
          this%elem_optr_tensorprod3D_P3%D1D_tr, this%elem_optr_tensorprod3D_P3%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (5)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p4( &
          this%elem_optr_tensorprod3D_P4%D1D_tr, this%elem_optr_tensorprod3D_P4%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (6)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p5( &
          this%elem_optr_tensorprod3D_P5%D1D_tr, this%elem_optr_tensorprod3D_P5%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (7)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p6( &
          this%elem_optr_tensorprod3D_P6%D1D_tr, this%elem_optr_tensorprod3D_P6%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (8)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p7( &
          this%elem_optr_tensorprod3D_P7%D1D_tr, this%elem_optr_tensorprod3D_P7%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (9)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p8( &
          this%elem_optr_tensorprod3D_P8%D1D_tr, this%elem_optr_tensorprod3D_P8%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (10)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p9( &
          this%elem_optr_tensorprod3D_P9%D1D_tr, this%elem_optr_tensorprod3D_P9%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (11)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p10( &
          this%elem_optr_tensorprod3D_P10%D1D_tr, this%elem_optr_tensorprod3D_P10%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (12)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p11( &
          this%elem_optr_tensorprod3D_P11%D1D_tr, this%elem_optr_tensorprod3D_P11%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (13)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p12( &
          this%elem_optr_tensorprod3D_P12%D1D_tr, this%elem_optr_tensorprod3D_P12%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (14)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p13( &
          this%elem_optr_tensorprod3D_P13%D1D_tr, this%elem_optr_tensorprod3D_P13%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (15)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p14( &
          this%elem_optr_tensorprod3D_P14%D1D_tr, this%elem_optr_tensorprod3D_P14%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    case (16)
        call element_operation_kernel_matvec_divlike_dirz_lift_var5_p15( &
          this%elem_optr_tensorprod3D_P15%D1D_tr, this%elem_optr_tensorprod3D_P15%Lift_mat, fluxz, ebnd_flux, e33, gsqrt, &
          div3d )
    end select
    return

References scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p1(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p10(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p11(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p12(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p13(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p14(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p15(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p3(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p4(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p5(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p6(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p7(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p8(), and scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_dirz_lift_var5_p9().

Referenced by scale_atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu::atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu_cal_tend_shallow_atm(), scale_atm_dyn_dgm_nonhydro3d_rhot_heve_gpu::atm_dyn_dgm_nonhydro3d_rhot_heve_cal_tend_gpu(), scale_atm_dyn_dgm_nonhydro3d_rhot_heve_gpu::atm_dyn_dgm_nonhydro3d_rhot_heve_cal_tend_gpu2(), and scale_element_operation_gpu_driver::elementoperationgpudriver::final().

elementoperationgpu_divvar5()

subroutine, public scale_element_operation_gpu_driver::elementoperationgpu_divvar5	(	type(elementoperationgpudriver), intent(in)	this,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5,this%nnode_v,ne), intent(in)	flux_x,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5,this%nnode_v,ne), intent(in)	flux_y,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5,this%nnode_v,ne), intent(in)	flux_z,
		real(rp), dimension(this%nfptot,5,ne), intent(in)	ebnd_flux,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v,ne), intent(in)	e11,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v,ne), intent(in)	e22,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v,ne), intent(in)	e33,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,this%nnode_v,ne), intent(in)	gsqrt,
		integer, intent(in)	ne,
		real(rp), dimension(this%nnode_h1d,this%nnode_h1d,5,this%nnode_v,ne), intent(out)	div3d )

Definition at line 611 of file scale_element_operation_gpu_driver.F90.

    implicit none
    type(ElementOperationGPUDriver), intent(in) :: this
    integer, intent(in) :: Ne
    real(RP), intent(in) :: Flux_x(this%Nnode_h1D,this%Nnode_h1D,5,this%Nnode_v,Ne)
    real(RP), intent(in) :: Flux_y(this%Nnode_h1D,this%Nnode_h1D,5,this%Nnode_v,Ne)
    real(RP), intent(in) :: Flux_z(this%Nnode_h1D,this%Nnode_h1D,5,this%Nnode_v,Ne)
    real(RP), intent(in) :: ebnd_flux(this%NfpTot,5,Ne)
    real(RP), intent(in) :: E11(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v,Ne)
    real(RP), intent(in) :: E22(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v,Ne)
    real(RP), intent(in) :: E33(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v,Ne)
    real(RP), intent(in) :: Gsqrt(this%Nnode_h1D,this%Nnode_h1D,this%Nnode_v,Ne)
    real(RP), intent(out) :: div3D(this%Nnode_h1D,this%Nnode_h1D,5,this%Nnode_v,Ne)
    !----------------------------------------------------------
 
    select case (this%Nnode_h1D)
    case (2)
        call element_operation_kernel_matvec_divlike_var5_p1_v2( &
          this%elem_optr_tensorprod3D_P1%D1D, this%elem_optr_tensorprod3D_P1%D1D_tr, this%elem_optr_tensorprod3D_P1%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (3)
        call element_operation_kernel_matvec_divlike_var5_p2_v2( &
          this%elem_optr_tensorprod3D_P2%D1D, this%elem_optr_tensorprod3D_P2%D1D_tr, this%elem_optr_tensorprod3D_P2%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (4)
        call element_operation_kernel_matvec_divlike_var5_p3_v2( &
          this%elem_optr_tensorprod3D_P3%D1D, this%elem_optr_tensorprod3D_P3%D1D_tr, this%elem_optr_tensorprod3D_P3%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (5)
        call element_operation_kernel_matvec_divlike_var5_p4_v2( &
          this%elem_optr_tensorprod3D_P4%D1D, this%elem_optr_tensorprod3D_P4%D1D_tr, this%elem_optr_tensorprod3D_P4%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (6)
        call element_operation_kernel_matvec_divlike_var5_p5_v2( &
          this%elem_optr_tensorprod3D_P5%D1D, this%elem_optr_tensorprod3D_P5%D1D_tr, this%elem_optr_tensorprod3D_P5%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (7)
        call element_operation_kernel_matvec_divlike_var5_p6_v2( &
          this%elem_optr_tensorprod3D_P6%D1D, this%elem_optr_tensorprod3D_P6%D1D_tr, this%elem_optr_tensorprod3D_P6%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (8)
        call element_operation_kernel_matvec_divlike_var5_p7_v2( &
          this%elem_optr_tensorprod3D_P7%D1D, this%elem_optr_tensorprod3D_P7%D1D_tr, this%elem_optr_tensorprod3D_P7%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (9)
        call element_operation_kernel_matvec_divlike_var5_p8_v2( &
          this%elem_optr_tensorprod3D_P8%D1D, this%elem_optr_tensorprod3D_P8%D1D_tr, this%elem_optr_tensorprod3D_P8%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (10)
        call element_operation_kernel_matvec_divlike_var5_p9_v2( &
          this%elem_optr_tensorprod3D_P9%D1D, this%elem_optr_tensorprod3D_P9%D1D_tr, this%elem_optr_tensorprod3D_P9%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (11)
        call element_operation_kernel_matvec_divlike_var5_p10_v2( &
          this%elem_optr_tensorprod3D_P10%D1D, this%elem_optr_tensorprod3D_P10%D1D_tr, this%elem_optr_tensorprod3D_P10%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (12)
        call element_operation_kernel_matvec_divlike_var5_p11_v2( &
          this%elem_optr_tensorprod3D_P11%D1D, this%elem_optr_tensorprod3D_P11%D1D_tr, this%elem_optr_tensorprod3D_P11%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (13)
        call element_operation_kernel_matvec_divlike_var5_p12_v2( &
          this%elem_optr_tensorprod3D_P12%D1D, this%elem_optr_tensorprod3D_P12%D1D_tr, this%elem_optr_tensorprod3D_P12%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (14)
        call element_operation_kernel_matvec_divlike_var5_p13_v2( &
          this%elem_optr_tensorprod3D_P13%D1D, this%elem_optr_tensorprod3D_P13%D1D_tr, this%elem_optr_tensorprod3D_P13%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (15)
        call element_operation_kernel_matvec_divlike_var5_p14_v2( &
          this%elem_optr_tensorprod3D_P14%D1D, this%elem_optr_tensorprod3D_P14%D1D_tr, this%elem_optr_tensorprod3D_P14%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    case (16)
        call element_operation_kernel_matvec_divlike_var5_p15_v2( &
          this%elem_optr_tensorprod3D_P15%D1D, this%elem_optr_tensorprod3D_P15%D1D_tr, this%elem_optr_tensorprod3D_P15%Lift_mat, &
          flux_x, flux_y,  flux_z, ebnd_flux, &
          e11, e22, e33, gsqrt, ne, &
          div3d )
    end select
    return

References scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p10_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p11_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p12_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p13_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p14_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p15_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p1_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p2_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p3_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p4_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p5_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p6_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p7_v2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p8_v2(), and scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_divlike_var5_p9_v2().

Referenced by scale_atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu::atm_dyn_dgm_globalnonhydro3d_rhot_heve_gpu_cal_tend_shallow_atm(), scale_atm_dyn_dgm_nonhydro3d_rhot_heve_gpu::atm_dyn_dgm_nonhydro3d_rhot_heve_cal_tend_gpu2(), and scale_element_operation_gpu_driver::elementoperationgpudriver::final().

elementoperationgpu_modalfilter_var5()

subroutine, public scale_element_operation_gpu_driver::elementoperationgpu_modalfilter_var5	(	type(elementoperationgpudriver), intent(in)	this,
		real(rp), dimension(this%nnode_h1d**2*this%nnode_v,ne,5), intent(in)	vec_in,
		real(rp), dimension(this%nnode_h1d**2*this%nnode_v,ne), intent(out)	vec_work,
		integer, intent(in)	ne,
		real(rp), dimension(this%nnode_h1d**2*this%nnode_v,ne,5), intent(out)	vec_out )

Apply a modal filter for five variables.

Definition at line 724 of file scale_element_operation_gpu_driver.F90.

    use scale_element_operation_tensorprod3d_kernel_gpu, only: &
      element_operation_kernel_matvec_modalfilter_p15
 
    implicit none
    type(ElementOperationGPUDriver), intent(in) :: this
    integer, intent(in) :: Ne
    real(RP), intent(in) :: vec_in(this%Nnode_h1D**2*this%Nnode_v,Ne,5)
    real(RP), intent(out) :: vec_work(this%Nnode_h1D**2*this%Nnode_v,Ne)
    real(RP), intent(out) :: vec_out(this%Nnode_h1D**2*this%Nnode_v,Ne,5)
    integer :: iv
    !---------------------------------------------
 
    select case (this%Nnode_h1D)
    case (2)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p1( this%elem_optr_tensorprod3D_P1%MFilter_h1D, this%elem_optr_tensorprod3D_P1%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P1%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (3)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p2( this%elem_optr_tensorprod3D_P2%MFilter_h1D, this%elem_optr_tensorprod3D_P2%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P2%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (4)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p3( this%elem_optr_tensorprod3D_P3%MFilter_h1D, this%elem_optr_tensorprod3D_P3%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P3%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (5)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p4( this%elem_optr_tensorprod3D_P4%MFilter_h1D, this%elem_optr_tensorprod3D_P4%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P4%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (6)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p5( this%elem_optr_tensorprod3D_P5%MFilter_h1D, this%elem_optr_tensorprod3D_P5%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P5%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (7)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p6( this%elem_optr_tensorprod3D_P6%MFilter_h1D, this%elem_optr_tensorprod3D_P6%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P6%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (8)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p7( this%elem_optr_tensorprod3D_P7%MFilter_h1D, this%elem_optr_tensorprod3D_P7%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P7%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (9)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p8( this%elem_optr_tensorprod3D_P8%MFilter_h1D, this%elem_optr_tensorprod3D_P8%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P8%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (10)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p9( this%elem_optr_tensorprod3D_P9%MFilter_h1D, this%elem_optr_tensorprod3D_P9%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P9%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (11)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p10( this%elem_optr_tensorprod3D_P10%MFilter_h1D, this%elem_optr_tensorprod3D_P10%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P10%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (12)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p11( this%elem_optr_tensorprod3D_P11%MFilter_h1D, this%elem_optr_tensorprod3D_P11%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P11%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (13)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p12( this%elem_optr_tensorprod3D_P12%MFilter_h1D, this%elem_optr_tensorprod3D_P12%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P12%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (14)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p13( this%elem_optr_tensorprod3D_P13%MFilter_h1D, this%elem_optr_tensorprod3D_P13%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P13%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (15)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p14( this%elem_optr_tensorprod3D_P14%MFilter_h1D, this%elem_optr_tensorprod3D_P14%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P14%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    case (16)
      do iv=1, 5
        call element_operation_kernel_matvec_modalfilter_p15( this%elem_optr_tensorprod3D_P15%MFilter_h1D, this%elem_optr_tensorprod3D_P15%MFilter_h1D_tr, this%elem_optr_tensorprod3D_P15%MFilter_v1D_tr, vec_in(:,:,iv), vec_work, ne, &
          vec_out(:,:,iv) )
      end do
    end select
    return

References scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p1(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p10(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p11(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p12(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p13(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p14(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p15(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p2(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p3(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p4(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p5(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p6(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p7(), scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p8(), and scale_element_operation_tensorprod3d_kernel_gpu::element_operation_kernel_matvec_modalfilter_p9().

Referenced by scale_atm_dyn_dgm_modalfilter::atm_dyn_dgm_modalfilter_apply(), and scale_element_operation_gpu_driver::elementoperationgpudriver::final().