Skip to content

adam_prism_fnl_fWLayer_object

ADAM, PRISM (Plasma Research usIng Simulation Methods) fWLayer class definition, FNL backend.

Source: src/app/prism/fnl/adam_prism_fnl_fWLayer_object.F90

Dependencies

Contents

Subroutines

apply_fwl_correction_dev_kernel

Applay FWL correction, direction agnostic, device kernel.

fortran
subroutine apply_fwl_correction_dev_kernel(block_idx, ngc, ni, nj, nk, ni1, ni2, nj1, nj2, nk1, nk2, face, n, s2, alfa_D, beta_D, alfa_B, beta_B, domain_emin_n, domain_emax_n, profile_extent, profile_cells, x_cell_gpu, y_cell_gpu, z_cell_gpu, dxyz_gpu, q_gpu)

Arguments

NameTypeIntentAttributesDescription
block_idxinteger(kind=I4P)inBlock index.
ngcinteger(kind=I4P)inNumber of ghost cells.
niinteger(kind=I4P)inCells number in i, j and k directions.
njinteger(kind=I4P)inCells number in i, j and k directions.
nkinteger(kind=I4P)inCells number in i, j and k directions.
ni1integer(kind=I4P)inDimensions of FWL domain.
ni2integer(kind=I4P)inDimensions of FWL domain.
nj1integer(kind=I4P)inDimensions of FWL domain.
nj2integer(kind=I4P)inDimensions of FWL domain.
nk1integer(kind=I4P)inDimensions of FWL domain.
nk2integer(kind=I4P)inDimensions of FWL domain.
faceinteger(kind=I4P)inBoundary face identifier.
ninteger(kind=I4P)inf component.
s2real(kind=R8P)inSide coefficient.
alfa_Dinteger(kind=I4P)inCorrected var index of D (Barbas' notation).
beta_Dinteger(kind=I4P)inCorrected var index of D (Barbas' notation).
alfa_Binteger(kind=I4P)inCorrected var index of D (Barbas' notation).
beta_Binteger(kind=I4P)inCorrected var index of D (Barbas' notation).
domain_emin_nreal(kind=R8P)inDomain minimum coordinate along the layer normal.
domain_emax_nreal(kind=R8P)inDomain maximum coordinate along the layer normal.
profile_extentreal(kind=R8P)inDiscrete face-wise profile extent.
profile_cellsinteger(kind=I4P)inEffective face-wise layer thickness in cells.
x_cell_gpureal(kind=R8P)inCells x coordinates on GPU.
y_cell_gpureal(kind=R8P)inCells y coordinates on GPU.
z_cell_gpureal(kind=R8P)inCells z coordinates on GPU.
dxyz_gpureal(kind=R8P)inBlock mesh spacing [nb,3].
q_gpureal(kind=R8P)inoutField variables.

Call graph