DiffusiveFluxMethod_ESAtmo3D Subroutine

  1. SELF_ESAtmo3D.f90
  2. SELF_ESAtmo3D
  3. DiffusiveFluxMethod_ESAtmo3D

public subroutine DiffusiveFluxMethod_ESAtmo3D(this)

GPU-resident fill of diffFlux%interior with the constant-coefficient Laplacian flux F_d(iVar) = -coeff(iVar) * d(s_iVar)/dx_d, where coeff is 0 for rho, nu for momentum, kappa for rho*theta.

Arguments

TypeIntentOptionalAttributesName
class(ESAtmo3D), intent(inout) :: this

Calls

proc~~diffusivefluxmethod_esatmo3d~~CallsGraph proc~diffusivefluxmethod_esatmo3d DiffusiveFluxMethod_ESAtmo3D interface~diffusiveflux_esatmo3d_gpu diffusiveflux_esatmo3d_gpu proc~diffusivefluxmethod_esatmo3d->interface~diffusiveflux_esatmo3d_gpu

Contents

Source Code

DiffusiveFluxMethod_ESAtmo3D

Source Code

  subroutine DiffusiveFluxMethod_ESAtmo3D(this)
    !! GPU-resident fill of diffFlux%interior with the constant-coefficient
    !! Laplacian flux F_d(iVar) = -coeff(iVar) * d(s_iVar)/dx_d, where
    !! coeff is 0 for rho, nu for momentum, kappa for rho*theta.
    implicit none
    class(ESAtmo3D),intent(inout) :: this

    call diffusiveflux_esatmo3d_gpu( &
      this%diffFlux%interior_gpu, &
      this%solutionGradient%interior_gpu, &
      this%nu,this%kappa, &
      this%solution%interp%N, &
      this%solution%nvar, &
      this%solution%nelem)

  endsubroutine DiffusiveFluxMethod_ESAtmo3D