Back to OASIS4 home

Type Enddef_search : defined in oasis4/lib/common_oa4/psmile_common.F90

search (local variable, first defined in psmile_get_intersect)

Type Enddef_search

         Integer                              :: method_type
         Integer, Pointer                :: msgint (:)
         Type (enddef_msg_intersections) :: msg_intersections
         Integer                             :: len_msg
         Integer                             :: sender
         Integer, Pointer               : boundary_cell (:, :)
         Type (Enddef_search_data)       :: search_data
         Type (logical_vector), Pointer  :: search_mask (:)
         Type (integer_vector), Pointer  :: global_index(:)


End Type Enddef_search

Type enddef_msg_intersections

         integer :: src_comp_id,                   &
                    tgt_comp_id,                   &
                    src_grid_id,                   &
                    tgt_grid_id,                   &
                    first_src_all_extents_grid_id, &
                    first_tgt_all_extents_grid_id, &
                    method_type,                   &
                    method_datatype,               &
                    all_comp_infos_comp_idx,       &
                    num_vars,                      &
                    num_parts,                     &
                    relative_msg_tag
         type (enddef_field_info) :: field_info
         type (enddef_intersection_info), pointer :: intersections(:)

End type enddef_msg_intersections

Type enddef_field_info

         integer :: tgt_method_id,       &
                    tgt_var_id,          &
                    tgt_mask_id,         &
                    transient_in_id,     & ! global_transi_id (id_trans_in,  located in target process)
                    transient_out_id,    & ! remote_transi_id (id_trans_out, located in source process)
                    requires_conserv_remap ! conservative remapping required yes(1)/no(0)

End type enddef_field_info

Type Enddef_search_data

         Type (real_vector), Pointer     :: search_real (:, :)
         Type (dble_vector), Pointer     :: search_dble (:, :)
#if defined ( PRISM_QUAD_TYPE )
         Type (quad_vector), Pointer     :: search_quad (:, :)
#endif
         Integer, Pointer                :: dim_size (:, :)
         Integer                         :: grid_type
         Integer                         :: datatype
         Integer, Pointer                :: range (:, :, :)
         Integer, Pointer                :: shape (:, :, :)
         Integer                         :: npart

End Type Enddef_search_data