Back to OASIS4 home
Type Method
: defined in oasis4/lib/psmile_oa4/src/psmile.F90, to store the
information
on the coordinates of the
grids.
There
is only one set of corner for one grid (stored in Grids(grid_id)
but there can be more than one set of points.
Method, mp
Type Method
Character
(len=max_name)
:: point_name
Integer
:: status
Integer
:: comp_id
Integer
:: grid_id
Integer
:: previous_method_in_grid
Integer
:: next_method_in_grid
Integer
:: method_type
Integer
:: size
Logical
:: used_for_coupling
Integer
:: n_send_info_direct
Integer
:: n_send_info_coupler
Integer
:: n_recv_info_direct
Integer
:: n_recv_info_coupler
Integer
:: n_send_info_appl
Integer
:: n_alloc_send_direct
Integer
:: n_alloc_send_coupler
Integer
:: n_alloc_recv_direct
Integer
:: n_alloc_recv_coupler
Integer
:: n_alloc_send_appl
Type
(Coords_Block),
Pointer
:: coords_pointer
Type (Subgrid_Block),
Pointer
:: subgrid_pointer
Type (Vector_Block),
Pointer
:: vector_pointer
Type (Halo_Block),
Pointer
:: halo_pointer (:)
Type
(Send_information),
Pointer ::
send_infos_direct (:)
Type
(Send_information),
Pointer ::
send_infos_coupler (:)
Type
(Recv_information),
Pointer ::
recv_infos_direct (:)
Type
(Recv_information),
Pointer ::
recv_infos_coupler (:)
Type
(Send_appl_information), Pointer :: send_infos_appl
(:)
Type
(real_vector)
:: gauss2_real(2)
Type
(dble_vector)
:: gauss2_dble(2)
#if defined ( PRISM_QUAD_TYPE )
Type (quad_vector),
Pointer
:: gauss2_quad(2)
#endif
End Type Method
Type Send_information
Integer
:: dest
Integer
:: remote_method_id
Integer
:: epio_id
Integer
:: trs_rank
Integer
:: nloc
Integer
:: nvec
Integer
:: nparts
Logical
:: send_entire_valid_shape
Integer
:: n_list
Type
(integer_vector), Pointer :: srcars (:, :)
Type
(integer_vector), Pointer :: srclocs (:, :)
Type
(integer_vector), Pointer :: virtual (:, :)
Type
(logical_vector), Pointer :: msklocs (:, :)
Integer,
Pointer ::
npoints (:, :)
Integer,
Pointer :: nextra
(:, :)
Integer,
Pointer :: nars
(:, :)
Integer,
Pointer :: dstijk
(:, :) ! Raus
Integer,
Pointer :: dstars
(:, :, :) ! Raus
Integer,
Pointer ::
list_entries (:, :)
Integer
:: nrecv, num2recv
Integer,
Pointer ::
sender_global (:)
Integer,
Pointer ::
len_sent (:)
Integer,
Pointer :: msg_id
(:)
End Type Send_information
Type Recv_information
Integer
:: source
Integer
:: epio_id
Integer
:: trs_rank
Integer
:: nloc
Integer
:: npoints
Integer
:: nar
Integer,
Pointer :: dstijk
(:, :)
Integer,
Pointer :: dstars
(:, :, :)
End Type Recv_information