psmile_trs_inform.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_inform
!
! !INTERFACE:
subroutine psmile_trs_inform(ida_args, id_trans_rank, id_err)

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

  IMPLICIT NONE
!
! !INPUT PARAMETERS:
!
  INTEGER, DIMENSION(PSMILe_trans_Header_length), INTENT (In)    :: ida_args
  INTEGER, INTENT (In)    :: id_trans_rank

!
! !OUTPUT PARAMETERS:
!
  INTEGER, INTENT (Out)                 :: id_err   ! error value
  
! !DESCRIPTION:
! Subroutine "PSMILe_Trs_inform" informs the transformer that a process 
! requires an action through the header message sent.
!
! !REVISION HISTORY:
!   Date      Programmer   Description
! ----------  ----------   -----------
! 09/12/2002  D. Declat    Creation
!
!EOP
!----------------------------------------------------------------------
! $Id: psmile_trs_inform.F90 2325 2010-04-21 15:00:07Z valcke $
! $Author: valcke $
!----------------------------------------------------------------------
!
  CHARACTER(LEN=len_cvs_string), SAVE  :: mycvs = '$Id: psmile_trs_inform.F90 2325 2010-04-21 15:00:07Z valcke $'

!----------------------------------------------------------------------
!
#ifdef VERBOSE
      print *, trim(ch_id), ': PSMILe_Trs_inform: start'
      call psmile_flushstd
#endif /* VERBOSE */

!
! 1. Send the header message to the transformer
!
      CALL MPI_Send(ida_args(1), PSMILe_trans_Header_length, MPI_Integer, &
                      id_trans_rank, 0, comm_trans, id_err)

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