psmile_trs_set_triple_links.F90

Go to the documentation of this file.

!------------------------------------------------------------------------
! Copyright 2006-2010, CERFACS, Toulouse, France.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: PSMILe_Trs_set_triple_links
!
! !INTERFACE:
subroutine psmile_trs_set_triple_links(id_trans_out_id,     &     
                                       id_trans_in_id,      &
                                       id_epio_id,          &
                                       id_trans_rank,       &
                                       id_err               )

!
! !USES:
!
  use PRISM_constants
  USE PSMILe, dummy_interface => PSMILe_Trs_set_triple_links

  IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
  INTEGER, INTENT (In)               :: id_trans_out_id
  INTEGER, INTENT (In)               :: id_trans_in_id
  INTEGER, INTENT (In)               :: id_epio_id
  INTEGER, INTENT (In)               :: id_trans_rank

!
! !OUTPUT PARAMETERS:
!
  INTEGER, INTENT (Out)               :: id_err       ! error value

! !DESCRIPTION:
! Subroutine "PSMILe_Trs_set_triple_links" gives information to the transformer
! in order for him to link a couple trans_in, trans_out with an epio
!
! !REVISION HISTORY:
!   Date      Programmer   Description
! ----------  ----------   -----------
! 03/12/2002  D. Declat      Creation 
!
!EOP
!-------------------------------------------------------------------------
! $Id: psmile_trs_set_triple_links.F90 2325 2010-04-21 15:00:07Z valcke $
! $Author: valcke $
!-------------------------------------------------------------------------
!
! 0. Local declarations
!
  CHARACTER(LEN=len_cvs_string), SAVE  :: mycvs = 
     '$Id: psmile_trs_set_triple_links.F90 2325 2010-04-21 15:00:07Z valcke $'

  INTEGER, DIMENSION(PSMILe_trans_Header_length) :: ila_args 
!
!----------------------------------------------------------------------
!
#ifdef VERBOSE
      print *, trim(ch_id), ': PSMILe_Trs_set_triple_links: start'
      call psmile_flushstd
#endif /* VERBOSE */

!
! 1. Set the header message
!
! 1.1. Initialize the contents to 999999

  ila_args = 999999

! 1.2. Content : action, global rank, tgt_comp_id, tgt_process,
!      tgt_comp_id, tgt_process, size

  ila_args(1) = PSMILe_trans_Set_triple_links
  ila_args(2) = global_rank
  ila_args(3) = id_trans_out_id
  ila_args(4) = id_trans_in_id
  ila_args(5) = id_epio_id

!
! 2. Send the header message to the transformer
!
  call psmile_trs_inform(ila_args, id_trans_rank, id_err)

  
#ifdef VERBOSE
      print *,trim(ch_id),': PSMILe_Trs_set_triple_links: eof ierror =', id_err
#endif /* VERBOSE */
  
END SUBROUTINE PSMILe_Trs_set_triple_links