Appearance
adam_field_gmp_object
ADAM, field class definition, GMP backend.
Source: src/lib/gmp/adam_field_gmp_object.F90
Dependencies
Contents
- field_gmp_object
- compute_q_gradient
- copy_cpu_gpu
- copy_transpose_cpu_gpu
- copy_transpose_gpu_cpu
- initialize
- update_ghost_local
- update_ghost_mpi
Derived Types
field_gmp_object
Field class, GMP backend.
Components
| Name | Type | Attributes | Description |
|---|---|---|---|
mpih | type(mpih_gmp_object) | pointer | MPI handler. |
maps | type(maps_gmp_object) | Maps handler. | |
field | type(field_object) | pointer | The field. |
q_t | real(kind=R8P) | allocatable | Transposed cell centered variables on CPU. |
q_gpu | real(kind=R8P) | pointer | Field cell centered variables. |
q_t_gpu | real(kind=R8P) | pointer | Transposed cell centered variables on GPU. |
fec_1_6_array_gpu | integer(kind=I4P) | pointer | Mapping fec1-26 to fec1-6 for boundaries (GPU). |
x_cell_gpu | real(kind=R8P) | pointer | Cells x coordinates on GPU. |
y_cell_gpu | real(kind=R8P) | pointer | Cells y coordinates on GPU. |
z_cell_gpu | real(kind=R8P) | pointer | Cells z coordinates on GPU. |
dxyz_gpu | real(kind=R8P) | pointer | Delta cells GPU. |
Type-Bound Procedures
| Name | Attributes | Description |
|---|---|---|
compute_q_gradient | pass(self) | Compute maximum gradient module of q element of a block. |
copy_cpu_gpu | pass(self) | Copy data from (field_object) CPU to (field_gmp_object) GPU. |
copy_transpose_cpu_gpu | pass(self) | Transpose data from GPU to CPU. |
copy_transpose_gpu_cpu | pass(self) | Transpose data from GPU to CPU. |
initialize | pass(self) | Initialize field. |
update_ghost_local | pass(self) | Update ghosts locally. |
update_ghost_mpi | pass(self) | Update ghosts MPI. |
Subroutines
compute_q_gradient
Compute gradient (module) over q elements.
fortran
subroutine compute_q_gradient(self, b, ivar, q_gpu, gradient)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(field_gmp_object) | in | The field. | |
b | integer(kind=I4P) | in | Block index. | |
ivar | integer(kind=I4P) | in | Index of q variable. | |
q_gpu | real(kind=R8P) | in | Field component to which apply gradient. | |
gradient | real(kind=R8P) | out | Maximum gradient of q(ivar). |
Call graph
copy_cpu_gpu
Copy data from (field_object) CPU to (field_gmp_object) GPU.
fortran
subroutine copy_cpu_gpu(self, verbose)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(field_gmp_object) | inout | The field. | |
verbose | logical | in | optional | Flag to activate verbose mode. |
Call graph
copy_transpose_cpu_gpu
Copy transposed data from CPU to GPU. This routine is called by equation typically passing either q_gpu or q_aux_gpu.
fortran
subroutine copy_transpose_cpu_gpu(self, nv, q_cpu, q_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(field_gmp_object) | inout | The equation. | |
nv | integer(kind=I4P) | in | Number of varibales. | |
q_cpu | real(kind=R8P) | in | Conservative variables on CPU. | |
q_gpu | real(kind=R8P) | out | Conservative variables on GPU. |
Call graph
copy_transpose_gpu_cpu
Copy transposed data from GPU to CPU. This routine is called by equation typically passing either q_gpu or q_aux_gpu.
fortran
subroutine copy_transpose_gpu_cpu(self, nv, q_gpu, q_cpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(field_gmp_object) | inout | The equation. | |
nv | integer(kind=I4P) | in | Number of varibales. | |
q_gpu | real(kind=R8P) | in | Conservative variables on GPU. | |
q_cpu | real(kind=R8P) | inout | Conservative variables on CPU. |
Call graph
initialize
Initialize field.
fortran
subroutine initialize(self, mpih, field, nv_aux, verbose)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(field_gmp_object) | inout | The field. | |
mpih | type(mpih_gmp_object) | in | target | MPI handler, GMP backend. |
field | type(field_object) | in | target | Field variable array. |
nv_aux | integer(kind=I4P) | in | optional | Number of auxiliary variables. |
verbose | logical | in | optional | Flag to activate verbose mode. |
Call graph
update_ghost_local
Update (local) ghost cells.
fortran
subroutine update_ghost_local(self, q_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(field_gmp_object) | in | The field. | |
q_gpu | real(kind=R8P) | inout | Field component to be updated. |
Call graph
update_ghost_mpi
Update ghost cells within other processes.
fortran
subroutine update_ghost_mpi(self, q_gpu, step)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
self | class(field_gmp_object) | inout | The field. | |
q_gpu | real(kind=R8P) | inout | Field component to be updated. | |
step | integer(kind=I4P) | in | optional | Step to be perfordmed in asyncronous comp. |
Call graph