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