Appearance
adam_prism_fnl_plasma_frequencies_object
Source: src/app/prism/fnl/adam_prism_fnl_plasma_frequencies_object.F90
Dependencies
Contents
Derived Types
prism_fnl_plasma_frequencies_object
Components
| Name | Type | Attributes | Description |
|---|---|---|---|
wp2_gpu | real(kind=R8P) | pointer | omega_p^2 per interior cell [nb,ni,nj,nk,2] (1 electrons, 2 ions). |
Type-Bound Procedures
| Name | Attributes | Description |
|---|---|---|
initialize | pass(self) | |
compute | pass(self) | |
destroy | pass(self) |
Subroutines
initialize
Allocate the work array on the block slots.
fortran
subroutine initialize(self, nb, ni, nj, nk)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(prism_fnl_plasma_frequencies_object) | inout | Device helper. | |
nb | integer(kind=I4P) | in | Block slots. | |
ni | integer(kind=I4P) | in | Block cells. | |
nj | integer(kind=I4P) | in | Block cells. | |
nk | integer(kind=I4P) | in | Block cells. |
Call graph
destroy
Free the work array.
fortran
subroutine destroy(self)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(prism_fnl_plasma_frequencies_object) | inout | Device helper. |
Call graph
compute
Local maxima of this rank (the caller reduces them, prism_plasma_frequencies_object%set_maxima).
fortran
subroutine compute(self, pic_fnl, field_fnl, grid, inv_eps, wpe2, wpi2, wce, wci, transit)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(prism_fnl_plasma_frequencies_object) | inout | Device helper. | |
pic_fnl | type(prism_fnl_pic_object) | in | Particles on device. | |
field_fnl | type(field_fnl_object) | in | Device field helper. | |
grid | type(grid_object) | in | Grid. | |
inv_eps | real(kind=R8P) | in | 1/eps0 (1 for the non-dimensional models). | |
wpe2 | real(kind=R8P) | out | Max omega_pe^2. | |
wpi2 | real(kind=R8P) | out | Max omega_pi^2. | |
wce | real(kind=R8P) | out | Max Omega_ce. | |
wci | real(kind=R8P) | out | Max Omega_ci. | |
transit | real(kind=R8P) | out | Max |v_d|/dx_d. |
Call graph