|
procedure, public | init (this, sfield_num, hvfield_num, mesh1d) |
procedure, public | put (this, field_list, varid_s) |
procedure, public | get (this, field_list, varid_s) |
procedure, public | exchange (this, do_wait) |
procedure, public | final (this) |
procedure(meshfieldcommbase_put), deferred, public | put meshfieldcommbase_put |
procedure(meshfieldcommbase_get), deferred, public | get meshfieldcommbase_get |
procedure(meshfieldcommbase_exchange), deferred, public | exchange meshfieldcommbase_exchange |
procedure, public | prepare_pc (this, use_mpi_pc_fujitsu_ext) |
| Prepare persistent communication.
|
|
class(meshbase1d), pointer | mesh1d |
integer | sfield_num |
| Number of scalar fields.
|
integer | hvfield_num |
| Number of horizontal vector fields.
|
integer | htensorfield_num |
| Number of horizontal tensor fields.
|
integer | field_num_tot |
| Total number of fields.
|
integer | nfaces_comm |
| Number of faces where halo data is communicated.
|
class(meshbase), pointer | mesh |
real(rp), dimension(:,:,:), allocatable | send_buf |
| Buffer for sending data.
|
real(rp), dimension(:,:,:), allocatable | recv_buf |
| Buffer for receiving data.
|
integer, dimension(:), allocatable | request_send |
integer, dimension(:), allocatable | request_recv |
type(localmeshcommdata), dimension(:,:), allocatable | commdata_list |
integer, dimension(:,:), allocatable | is_f |
logical | mpi_pc_flag |
| Flag whether persistent communication is used.
|
logical | use_mpi_pc_fujitsu_ext |
| Flag whether Fujitsu extension routines are used for persistent communication.
|
integer, dimension(:), allocatable | request_pc |
integer | req_counter |
logical | call_wait_flag_sub_get |
| Flag whether MPI_wait need to be called before getting halo data from recv_buf.
|
integer | obj_ind |
Definition at line 40 of file scale_meshfieldcomm_1d.F90.
◆ init()
procedure, public scale_meshfieldcomm_1d::meshfieldcomm1d::init |
( |
class(meshfieldcomm1d), intent(inout) | this, |
|
|
integer, intent(in) | sfield_num, |
|
|
integer, intent(in) | hvfield_num, |
|
|
class(meshbase1d), intent(in), target | mesh1d ) |
◆ put()
procedure, public scale_meshfieldcomm_1d::meshfieldcomm1d::put |
( |
class(meshfieldcomm1d), intent(inout) | this, |
|
|
type(meshfieldcontainer), dimension(:), intent(in) | field_list, |
|
|
integer, intent(in) | varid_s ) |
◆ get()
procedure, public scale_meshfieldcomm_1d::meshfieldcomm1d::get |
( |
class(meshfieldcomm1d), intent(inout) | this, |
|
|
type(meshfieldcontainer), dimension(:), intent(inout) | field_list, |
|
|
integer, intent(in) | varid_s ) |
◆ exchange()
procedure, public scale_meshfieldcomm_1d::meshfieldcomm1d::exchange |
( |
class(meshfieldcomm1d), intent(inout), target | this, |
|
|
logical, intent(in), optional | do_wait ) |
◆ final()
procedure, public scale_meshfieldcomm_1d::meshfieldcomm1d::final |
( |
class(meshfieldcomm1d), intent(inout) | this | ) |
|
◆ mesh1d
class(meshbase1d), pointer scale_meshfieldcomm_1d::meshfieldcomm1d::mesh1d |
The documentation for this type was generated from the following file: