prismdrv_init_smioc_struct.F90

Go to the documentation of this file.

!------------------------------------------------------------------------
! Copyright 2006-2010, CERFACS, Toulouse, France.
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: PRISMDrv_Init_smioc_struct
!
! !INTERFACE
SUBROUTINE PRISMDrv_Init_smioc_struct(id_err)

!
! !USES:
!
  USE PRISMDrv, dummy_interface => PRISMDrv_Init_smioc_struct
  USE PSMILE_smioc
  USE PSMILE_smioc_interface
!
  IMPLICIT NONE

!
! !PARAMETERS:
!

!
! ! RETURN VALUE
!
  INTEGER, INTENT (Out)               :: id_err   ! error value

! External routines (written in C)  
  INTEGER :: sasa_c_read_file, sasa_c_close

! !DESCRIPTION
! Subroutine "PRISMDrv_init_smioc_struct" initialize and set the driver
! smioc structures using the smioc api.
!
! !REVISED HISTORY
!   Date      Programmer   Description
! ----------  ----------   -----------
! 13/10/2003  S. Valcke     Creation
! 30/12/2003  D. Declat     Included in the driver
! 22/03/2010  JM Epitalon   Simultaneous access to multiple SMIOC files
!
! EOP
!----------------------------------------------------------------------
! $Id: prismdrv_init_smioc_struct.F90 3241 2011-06-23 09:55:11Z coquart $
! $Author: coquart $
!----------------------------------------------------------------------
!
! 0. Local declarations
!
  CHARACTER(LEN=80), SAVE  :: mycvs = 
     '$Id'

! Number of input and output transients and standard names per transients
! the ila arrays are local arrays used to fill up the global iga arrays 
  INTEGER, DIMENSION(:), ALLOCATABLE   :: ila_comp_nb_stand_name
  INTEGER, DIMENSION(:), ALLOCATABLE   :: ila_comp_nb_transi_in
  INTEGER, DIMENSION(:), ALLOCATABLE   :: ila_comp_nb_transi_out
 
! Definition of the different arrays used in the driver to store the
! SMIOC Informations.
! The sla/ila structures are component structures used to fill up the global 
! sga/iga structures
!
! Informations about the Fortran unit numbers
  INTEGER, DIMENSION(:,:), ALLOCATABLE :: ila_driver_unitsets
!
! Informations about the grids
  TYPE(smioc_grid), DIMENSION(:), ALLOCATABLE :: sla_driver_grids

! Informations about the transients
  TYPE(transient), DIMENSION(:), ALLOCATABLE, TARGET :: sla_driver_transi

! Informations about the persistents
  TYPE(persistent), DIMENSION(:), ALLOCATABLE :: sla_driver_persis

! Loop indices
  INTEGER :: ib_c, ib_nt, ib_a, ib_g, ib_ntt, ib_ntt2, ib_nin, ib, ib_nout

! Count integers
  INTEGER :: il_nu, il_ng, il_ntr, il_npe, ib_p, il_combi, il_source
  INTEGER :: il_npartinid, il_npartoutid, il_index1, il_index2
  INTEGER :: il_ntr_xml

! Logical
  LOGICAL :: ll_combi, ll_source

! arrays used for the smioc information exchanges
  INTEGER :: il_smioc_send_size_i, il_smioc_send_size_c, il_smioc_send_size_d
  INTEGER :: il_index_i, il_index_c, il_index_d

  INTEGER :: il_nb_int_i_fix, il_nb_int_i_in, il_nb_int_i_out
  INTEGER :: il_nb_int_d_fix, il_nb_int_d_in, il_nb_int_d_out
  INTEGER :: il_nb_int_c_fix, il_nb_int_c_in, il_nb_int_c_out

  CHARACTER(LEN=max_name) :: cla_file_name
  CHARACTER(LEN=max_name) :: cla_appli_name
  CHARACTER(LEN=max_name) :: cla_comp_name

  CHARACTER(LEN=max_name), DIMENSION(:), ALLOCATABLE :: cla_smioc_send
  INTEGER, DIMENSION(:), ALLOCATABLE                 :: ila_smioc_send
  INTEGER, DIMENSION(ig_nb_tot_pes)                  :: ila_tgt_proc
  DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE        :: dla_smioc_send
  REAL, DIMENSION(:), ALLOCATABLE                    :: rla_smioc_send

  INTEGER :: il_index, ib_bis, ib_ter, il_nb_comp_pes
  INTEGER :: il_length
! Search of used_defined interpolations ( first pass / second pass in XML )
  LOGICAL :: ll_userdef_details

!     ... for error handling
  INTEGER, PARAMETER  :: nerrp = 2
  INTEGER             :: ierrp (nerrp)
!
! arrays used to transfer the infos about the post id and info attributions
!
  INTEGER, DIMENSION(7) :: ila_dim_size
  INTEGER               :: il_orig_index, il_dest_index, il_loc_index 
  INTEGER               :: il_trans_orig_index, il_trans_dest_index
  INTEGER               :: il_cpl_rst_file_index, il_trans_interp_index

  INTEGER, DIMENSION(:,:), ALLOCATABLE :: ila_orig_comp_id
  INTEGER, DIMENSION(:,:), ALLOCATABLE :: ila_dest_comp_id
  INTEGER, DIMENSION(:,:), ALLOCATABLE :: ila_combi_loc
  INTEGER, DIMENSION(:,:), ALLOCATABLE :: ila_trans_orig_id
  INTEGER, DIMENSION(:,:), ALLOCATABLE :: ila_trans_dest_id

  INTEGER, DIMENSION(:,:), ALLOCATABLE :: ila_cpl_rst_file
  DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: dla_cpl_rst_file
  CHARACTER(len=max_name), DIMENSION(:,:), ALLOCATABLE :: cla_cpl_rst_file

  INTEGER, DIMENSION(:,:), ALLOCATABLE :: ila_trans_interp
  DOUBLE PRECISION, DIMENSION(:,:), ALLOCATABLE :: dla_trans_interp
  CHARACTER(len=max_name), DIMENSION(:,:), ALLOCATABLE :: cla_trans_interp
!
!----------------------------------------------------------------------
!----------------------------------------------------------------------
!
!
#ifdef VERBOSE
  PRINT *, '| | Enter PRISMDrv_init_smioc_struct'
  call psmile_flushstd
#endif
!
   nullify (sga_smioc_comp)
!
!-----------------------------------------------------------------------
!
! 1. Get the number of grids, transient variables and persistent variables
!
#ifdef VERBOSE
  PRINT *, '| | |  '
  PRINT *, '| | | Get the dimensionning numbers : first pass for transients'
  PRINT *, '| | | Count the number of user-defined interpolations, if any'
  call psmile_flushstd
#endif
! 1.1. Initialize the total numbers
  ig_nb_tot_unitsets   = 0
  ig_nb_tot_grids      = 0
  ig_nb_tot_xml_grids  = 0
  ig_nb_tot_transi     = 0
  ig_nb_tot_xml_transi = 0
  ig_nb_tot_persis     = 0

! 1.2. Initialize the XML doc id array per component
  ALLOCATE( iga_comp_id_doc_XML(ig_nb_tot_comps), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_comps
      id_err = 13

      call psmile_error_common ( id_err, 'iga_comp_id_doc_XML', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

! 1.3. Initialize the count arrays for the numbers per component

! Grids : total number of grids (XML + Userdef for UD transients)
  ALLOCATE( iga_comp_nb_grids(ig_nb_tot_comps), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_comps
      id_err = 13

      call psmile_error_common ( id_err, 'iga_comp_nb_grids', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
! Grids : Keep values of first pass (XML only) for init during second pass
  ALLOCATE( iga_xml_comp_nb_grids(ig_nb_tot_comps), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_comps
      id_err = 13

      call psmile_error_common ( id_err, 'iga_xml_comp_nb_grids', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

! Transients : Used during first and second pass 
  ALLOCATE( iga_comp_nb_transi(ig_nb_tot_comps), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_comps
      id_err = 13

      call psmile_error_common ( id_err, 'iga_comp_nb_transi', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
! Transients : Keep values of first pass for copy during second pass
  ALLOCATE( iga_xml_comp_nb_transi(ig_nb_tot_comps), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_comps
      id_err = 13

      call psmile_error_common ( id_err, 'iga_xml_comp_nb_transi', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

! transients "user-defined-interpolation" per component
  ALLOCATE( iga_comp_nb_udef(ig_nb_tot_comps), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_comps
      id_err = 13

      call psmile_error_common ( id_err, 'iga_comp_nb_udef', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

! Persistents
  ALLOCATE( iga_comp_nb_persis(ig_nb_tot_comps), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_comps
      id_err = 13

      call psmile_error_common ( id_err, 'iga_comp_nb_persis', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

! Fortran Units sets
  ALLOCATE( iga_comp_nb_unitsets(ig_nb_tot_comps), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_comps
      id_err = 13

      call psmile_error_common ( id_err, 'iga_comp_nb_unitsets', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

! Structures for infos on "user_defined_interpolation" transients
  ALLOCATE( sga_comp_udef_idx(ig_nb_tot_comps), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_comps
      id_err = 13

      call psmile_error_common ( id_err, 'sga_comp_udef_idx', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
!
! 1.4. For each comp (ie SMIOC) get the number of Fortran unit sets
!      the number of grids, transients and
!      persistents and compute the total numbers
!
!      * * *  First Pass : read XML files * * *
!
!      User_defined interpolations must be first detected  :
!      For each transient, and for each origin input or for each output using 
!      this interpolation a new "gridless" function must be created.
!
! Initialize numbers of "udef" transients
  iga_comp_nb_udef(:) = 0 
! Initialize transient and grids counters
  iga_xml_comp_nb_transi(:) = 0 
  iga_xml_comp_nb_grids(:) = 0

#ifdef CIM
  ! If at least one component
  if (ig_nb_tot_comps .ge. 1) then
    ! Open CIM file
    iga_comp_id_doc_XML(1) = sasa_c_read_file  ("cim.xml", 7)
  endif
  ! All component use the same CIM file
  DO ib_c = 2, ig_nb_tot_comps
    iga_comp_id_doc_XML(ib_c) = iga_comp_id_doc_XML(1)
  END DO
#else
! Open ALL SMIOC files and store the document handles into memory
  DO ib_c = 1, ig_nb_tot_comps
    call prismdrv_get_comp_names(ib_c, cla_appli_name, cla_comp_name, id_err)
    cla_file_name = TRIM(cla_appli_name)// &
                    "_"//                     &
                    TRIM(cla_comp_name)//     &
                    "_smioc.xml"
    il_length = LEN_TRIM(cla_file_name)
#ifdef VERBOSE
    PRINT *, '| | | Get the cla_file_name ', TRIM(cla_file_name)
    call psmile_flushstd
#endif
    iga_comp_id_doc_XML(ib_c) = sasa_c_read_file  (cla_file_name, il_length)
  END DO
#endif

! Count transients, origins and outputs involving a User_defined interpolation
! This is the "first pass" for extracting informations from the XML SMIOC files
! Compute the total numbers including "gridless" transients 
! Global structure is kept for copy during second pass (XML files are explored only once)

  call prismdrv_get_udef_transients ( id_err )
!
!
!     * * *  Second Pass : create udef transients if necessary and associated grids  * * *
!            From now on we are in the "second pass" in XML routines
!
  DO ib_c = 1, ig_nb_tot_comps
!
!  Set flag  for second pass : get total numbers (XML + User_defined)
    ll_userdef_details = .true.
    call prismdrv_get_comp_names(ib_c, cla_appli_name, cla_comp_name, id_err)
    call get_smioc_numbers ( iga_comp_id_doc_XML(ib_c),  &
                             iga_comp_nb_unitsets(ib_c), &
                             iga_comp_nb_grids(ib_c),    &
                             iga_comp_nb_transi(ib_c),   &
                             iga_comp_nb_persis(ib_c),   &
                             ib_c,                       &
                             cla_appli_name,             &
                             cla_comp_name,              &
                             ll_userdef_details,         &
                             id_err )
    IF (id_err .ne. 0) THEN
       PRINT *, '| | |WARNING: Pb in get_smioc_numbers'
    ENDIF
#ifdef VERBOSE
       PRINT *, '| | |  Component index: ', ib_c,' flag: ',ll_userdef_details
       PRINT *, '| | |  Nb of Fortran unit sets ',  iga_comp_nb_unitsets(ib_c)
       PRINT *, '| | |  Nb of grids      (+u_gl)',  iga_comp_nb_grids(ib_c)
       PRINT *, '| | |  Nb of transients (+u_gl)',  iga_comp_nb_transi(ib_c)  
       PRINT *, '| | |  Nb of persistents ',        iga_comp_nb_persis(ib_c)
       PRINT *, '| | |  * * *  Second pass for this Component  * * * '
       PRINT *, '| | |   '
#endif

    ig_nb_tot_unitsets = ig_nb_tot_unitsets + iga_comp_nb_unitsets(ib_c)  
! Here iga_comp_nb_grids(ib_c) contains the number of xml + userdef grids
    ig_nb_tot_grids = ig_nb_tot_grids + iga_comp_nb_grids(ib_c)
! Here iga_comp_nb_transi(ib_c) contains the number of xml + userdef transients
    ig_nb_tot_transi = ig_nb_tot_transi + iga_comp_nb_transi(ib_c)
    ig_nb_tot_persis = ig_nb_tot_persis + iga_comp_nb_persis(ib_c)

! 1.5. Send this information to the different components
    ALLOCATE(ila_smioc_send(4), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = 4
        id_err = 13

        call psmile_error_common ( id_err, 'ila_smioc_send', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF

    ila_smioc_send(1) = iga_comp_nb_unitsets(ib_c)
    ila_smioc_send(2) = iga_comp_nb_grids(ib_c)
    ila_smioc_send(3) = iga_comp_nb_transi(ib_c)
    ila_smioc_send(4) = iga_comp_nb_persis(ib_c)

    ila_tgt_proc(:) = -1
    il_nb_comp_pes = 0
!   for all processes except driver processes
    DO ib = 0, ig_nb_tot_pes + (ig_driver_nb_pes-1)
      IF ((ib < PRISMdrv_root) .OR. ((PRISMdrv_root + ig_driver_nb_pes) <= ib)) THEN
        DO ib_ter = 1, Drv_Procs(ib+1)%comps_per_rank
           IF (Drv_Procs(ib+1)%global_comp_id(ib_ter) .eq. ib_c) THEN
              il_nb_comp_pes = il_nb_comp_pes + 1
              ila_tgt_proc(il_nb_comp_pes) = Drv_Procs(ib+1)%global_rank(ib_ter)
           END IF
        END DO
      END IF
    END DO

    IF (il_nb_comp_pes .eq. 0) THEN
        call prismdrv_get_comp_names(ib_c, cla_appli_name, cla_comp_name, id_err)
        cla_file_name = TRIM(cla_appli_name)// &
                        "_"//                     &
                        TRIM(cla_comp_name)//     &
                        "_smioc.xml"
        PRINT *, '| | | The smioc information for file ', TRIM(cla_file_name),&
           ' has not been sent'
      ierrp(1) = il_nb_comp_pes
      ierrp(2) = Drv_Procs(ib)%comps_per_rank
      call psmile_error_common ( id_err, 'prismdrv_init_smioc_struct', &
         ierrp, 2, __FILE__, __LINE__ )
    END IF

    DO ib = 1, il_nb_comp_pes

      CALL MPI_Send (ila_smioc_send, 4, MPI_Integer, &
         ila_tgt_proc(ib), 1, comm_drv_trans, id_err)
#ifdef VERBOSE
      PRINT *, '| | | The transfer of smioc information from file ', &
         TRIM(cla_file_name), ' to process rank ', ila_tgt_proc(ib), ' begins.'
      PRINT *, '| | | '
#endif
    END DO

    DEALLOCATE(ila_smioc_send, stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'ila_smioc_send', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF

  END DO    !  ib_c    loop on components : 1 to ig_nb_tot_comps
#ifdef DEBUG
   PRINT *, '| | |Nb of unitsets total    : ', ig_nb_tot_unitsets
   PRINT *, '| | |Nb of grids total       : ', ig_nb_tot_grids
   PRINT *, '| | |Nb of transients total  : ', ig_nb_tot_transi
   PRINT *, '| | |Nb of persistents total : ', ig_nb_tot_persis
#endif

  Number_of_Grids_drv = ig_nb_tot_grids

#ifdef DEBUG
  PRINT *, '| | |   '
  PRINT *, '| | |  Got the dimensionning numbers - End of Second Pass '
  call psmile_flushstd
#endif
! 1.5. Allocate the global structures 
  IF ( .not. ASSOCIATED(sga_smioc_comp) ) &
  ALLOCATE(sga_smioc_comp(1), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = 1
      id_err = 13
      call psmile_error_common ( id_err, 'sga_smioc_comp', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  NULLIFY(sga_smioc_comp(1)%iga_smioc_unitsets)
  NULLIFY(sga_smioc_comp(1)%sga_smioc_grids)
  NULLIFY(sga_smioc_comp(1)%sga_smioc_transi)
  NULLIFY(sga_smioc_comp(1)%sga_smioc_persis)
!
  iga_smioc_unitsets => sga_smioc_comp(1)%iga_smioc_unitsets
  sga_smioc_grids => sga_smioc_comp(1)%sga_smioc_grids
  sga_smioc_transi => sga_smioc_comp(1)%sga_smioc_transi
  sga_smioc_persis => sga_smioc_comp(1)%sga_smioc_persis
!
  ALLOCATE ( iga_smioc_unitsets (ig_nb_tot_unitsets, 3), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_unitsets
      id_err = 13

      call psmile_error_common ( id_err, 'iga_smioc_unitsets', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

  ALLOCATE ( sga_smioc_grids (ig_nb_tot_grids), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_grids
      id_err = 13

      call psmile_error_common ( id_err, 'sga_smioc_grids', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

  ALLOCATE ( sga_smioc_transi (ig_nb_tot_transi), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_transi
      id_err = 13

      call psmile_error_common ( id_err, 'sga_smioc_transi', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

  ALLOCATE ( sga_smioc_persis (ig_nb_tot_persis), stat=id_err )
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_persis
      id_err = 13

      call psmile_error_common ( id_err, 'sga_smioc_persis', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

#ifdef VERBOSE
  PRINT *, '| | |  '
  PRINT *, '| | | Global structures allocated'
  call psmile_flushstd
#endif
!
!-----------------------------------------------------------------------
!
! 2. Get the Fortran unit sets component per component
!
#ifdef VERBOSE
  PRINT *, '| | |  '
  PRINT *, '| | | Get the Fortran unit sets component per component'
#endif
  il_nu = 0

  DO ib_c = 1, ig_nb_tot_comps

    IF (iga_comp_nb_unitsets(ib_c) .gt. 0) THEN

! 2.1. allocate the local structure
        ALLOCATE ( ila_driver_unitsets(iga_comp_nb_unitsets(ib_c),3), &
           stat=id_err )
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            ierrp (2) = iga_comp_nb_unitsets(ib_c)*3
            id_err = 13

            call psmile_error_common ( id_err, 'ila_driver_unitsets', &
               ierrp, 2, __FILE__, __LINE__ )
            RETURN
        ENDIF

! 2.2. get the Fortran unit sets information for the component
#ifdef CIM
        iga_comp_nb_unitsets(ib_c) = 0
#else
        CALL get_unitsets_details ( iga_comp_id_doc_XML(ib_c),   &
                                    iga_comp_nb_unitsets(ib_c),  &
                                    ila_driver_unitsets ,        &
                                    id_err )
        IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in get_unitsets_details'
#endif

! 2.3. Fill the global structure
        iga_smioc_unitsets (il_nu+1:il_nu+iga_comp_nb_unitsets(ib_c),:) = &
           ila_driver_unitsets (:,:)

        il_nu = il_nu + iga_comp_nb_unitsets(ib_c)

! 2.4. send the structure to the component
        ALLOCATE(ila_smioc_send(iga_comp_nb_unitsets(ib_c)*3), stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            ierrp (2) = iga_comp_nb_unitsets(ib_c)*3
            id_err = 13

            call psmile_error_common ( id_err, 'ila_smioc_send', &
               ierrp, 2, __FILE__, __LINE__ )
            RETURN
        ENDIF

        il_index = 1
        DO ib= 1, iga_comp_nb_unitsets(ib_c)

          ila_smioc_send(il_index)   = ila_driver_unitsets(ib,1)
          ila_smioc_send(il_index+1) = ila_driver_unitsets(ib,2)
          ila_smioc_send(il_index+2) = ila_driver_unitsets(ib,3)

          il_index = il_index + 3

        END DO

        ila_tgt_proc(:) = -1    
        il_nb_comp_pes = 0
!       for all processes except driver processes
        DO ib = 0, ig_nb_tot_pes + (ig_driver_nb_pes-1)
          IF ((ib < PRISMdrv_root) .OR. ((PRISMdrv_root + ig_driver_nb_pes) <= ib)) THEN
            DO ib_ter = 1, Drv_Procs(ib+1)%comps_per_rank
               IF (Drv_Procs(ib+1)%global_comp_id(ib_ter) .eq. ib_c) THEN
                  il_nb_comp_pes = il_nb_comp_pes + 1
                  ila_tgt_proc(il_nb_comp_pes) = Drv_Procs(ib+1)%global_rank(ib_ter)
               END IF
            END DO
          END IF
        END DO

        DO ib = 1, il_nb_comp_pes

          CALL MPI_Send (ila_smioc_send, iga_comp_nb_unitsets(ib_c)*3, &
             MPI_Integer, ila_tgt_proc(ib), 2, comm_drv_trans, id_err)

        END DO

        DEALLOCATE(ila_smioc_send, stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            id_err = 14

            call psmile_error_common ( id_err, 'ila_smioc_send', &
               ierrp, 1, __FILE__, __LINE__ )
            RETURN
        ENDIF

! 2.5 deallocate the local structure
        DEALLOCATE ( ila_driver_unitsets, stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            id_err = 14

            call psmile_error_common ( id_err, 'ila_driver_unitsets', &
               ierrp, 1, __FILE__, __LINE__ )
            RETURN
        ENDIF

    END IF

  END DO
#ifdef VERBOSE
  PRINT *, '| | |  '
  PRINT *, '| | |  Got the Fortran unit sets component per component'
  call psmile_flushstd
#endif
!
!-----------------------------------------------------------------------
!
! 3. Get the grids details component per component
!
#ifdef VERBOSE
  PRINT *, '| | |  '
  PRINT *, '| | | Get the grids details component per component'
  call psmile_flushstd
#endif
! 3.0 Initialize global structure for grids
  CALL init_grids (ig_nb_tot_grids, sga_smioc_grids, id_err )
  IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in init_grids'

  il_ng = 0
  DO ib_c = 1, ig_nb_tot_comps
  
    IF (iga_comp_nb_grids(ib_c) .gt. 0) THEN

! 3.1. allocate the local structure
        ALLOCATE ( sla_driver_grids(iga_comp_nb_grids(ib_c)) )
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            ierrp (2) = iga_comp_nb_grids(ib_c)
            id_err = 13

            call psmile_error_common ( id_err, 'sla_driver_grids', &
               ierrp, 2, __FILE__, __LINE__ )
            RETURN
        ENDIF

! 3.2. initialize and get the grid informations
        CALL init_grids (iga_comp_nb_grids(ib_c), sla_driver_grids, id_err )
        IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in init_grids'

        call prismdrv_get_comp_names(ib_c, cla_appli_name, cla_comp_name, id_err)
        CALL get_grids_details ( iga_comp_id_doc_XML(ib_c),     &
                                 iga_xml_comp_nb_grids(ib_c),   &
                                 cla_appli_name,                &
                                 cla_comp_name,                 &
                                 sla_driver_grids,              &
                                 id_err )
        IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in get_grids_details'
        
        CALL prismdrv_get_all_grids ( iga_comp_nb_grids(ib_c),     &
                                      iga_xml_comp_nb_grids(ib_c), &
                                      sla_driver_grids(:),         &
                                      ib_c,                        &
                                      id_err )
        IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in get_all_grids'

! 3.3. set the comp_id and global_grid_id in the grids structure
        sla_driver_grids(:)%ig_comp_id = ib_c
        DO ib = 1, iga_comp_nb_grids(ib_c)
          sla_driver_grids(ib)%ig_grid_id = il_ng+ib
        ENDDO

! 3.4. Fill the global structure
        sga_smioc_grids (il_ng+1:il_ng+iga_comp_nb_grids(ib_c)) = &
           sla_driver_grids

        il_ng = il_ng + iga_comp_nb_grids(ib_c)

! 3.5. send the structure to the component
        ALLOCATE(ila_smioc_send(5*iga_comp_nb_grids(ib_c)), stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            ierrp (2) = 3*iga_comp_nb_grids(ib_c)
            id_err = 13

            call psmile_error_common ( id_err, 'ila_smioc_send', &
               ierrp, 2, __FILE__, __LINE__ )
            RETURN
        ENDIF
        ALLOCATE(cla_smioc_send(iga_comp_nb_grids(ib_c)), stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            ierrp (2) = iga_comp_nb_grids(ib_c)
            id_err = 13

            call psmile_error_common ( id_err, 'cla_smioc_send', &
               ierrp, 2, __FILE__, __LINE__ )
            RETURN
        ENDIF
        DO ib = 1, iga_comp_nb_grids(ib_c)

          ila_smioc_send(1 + (ib-1)*5) = sla_driver_grids(ib)%ig_grid_id 
          ila_smioc_send(2 + (ib-1)*5) = sla_driver_grids(ib)%ig_comp_id 
          DO ib_bis = 1, 3
            ila_smioc_send(2 + ib_bis + (ib-1)*5) = &
               sla_driver_grids(ib)%iga_periodic(ib_bis)
          END DO

          cla_smioc_send(ib) = &
             sla_driver_grids(ib)%cg_grid_name

        END DO
        
        ila_tgt_proc(:) = -1    
        il_nb_comp_pes = 0
!       for all processes except driver processes
        DO ib = 0, ig_nb_tot_pes + (ig_driver_nb_pes-1)
          IF ((ib < PRISMdrv_root) .OR. ((PRISMdrv_root + ig_driver_nb_pes) <= ib)) THEN
            DO ib_ter = 1, Drv_Procs(ib+1)%comps_per_rank
              IF (Drv_Procs(ib+1)%global_comp_id(ib_ter) .eq. ib_c) THEN
                 il_nb_comp_pes = il_nb_comp_pes + 1
                 ila_tgt_proc(il_nb_comp_pes) = Drv_Procs(ib+1)%global_rank(ib_ter)
              END IF
            END DO
          END IF
        END DO

        DO ib = 1, il_nb_comp_pes
          
          CALL MPI_Send (ila_smioc_send, 3*iga_comp_nb_grids(ib_c), &
             MPI_Integer, ila_tgt_proc(ib), 3, comm_drv_trans, id_err)
          
          CALL MPI_Send (cla_smioc_send, max_name*iga_comp_nb_grids(ib_c), &
             MPI_Character, ila_tgt_proc(ib), 4, comm_drv_trans, id_err)
          
        END DO

        DEALLOCATE(ila_smioc_send, stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            id_err = 14

            call psmile_error_common ( id_err, 'ila_smioc_send', &
               ierrp, 1, __FILE__, __LINE__ )
            RETURN
        ENDIF

        DEALLOCATE(cla_smioc_send, stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            id_err = 14

            call psmile_error_common ( id_err, 'cla_smioc_send', &
               ierrp, 1, __FILE__, __LINE__ )
            RETURN
        ENDIF

! 3.6 deallocate the local structure
        DEALLOCATE ( sla_driver_grids, stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            id_err = 14

            call psmile_error_common ( id_err, 'sla_driver_grids', &
               ierrp, 1, __FILE__, __LINE__ )
            RETURN
        ENDIF

    END IF

  END DO
#ifdef VERBOSE
  PRINT *, '| | |  '
  PRINT *, '| | |  Got the grids details component per component'
  call psmile_flushstd
#endif
!
!-----------------------------------------------------------------------
!
! 4. Get the number of times the transient variables are sent and
!    the number of time they are received to allocate the global structure
!
#ifdef VERBOSE
  PRINT *, '| | |  '
  PRINT *, '| | | Get the transient numbers '
  call psmile_flushstd
#endif
! 4.1. Allocate the total count arrays 
!      for numbers of standard names, inputs and outputs
  ALLOCATE (iga_comp_nb_stand_name(ig_nb_tot_transi), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_transi
      id_err = 13

      call psmile_error_common ( id_err, 'iga_comp_nb_stand_name', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE (iga_comp_nb_transi_in(ig_nb_tot_transi), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_transi
      id_err = 13

      call psmile_error_common ( id_err, 'iga_comp_nb_transi_in', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE (iga_comp_nb_transi_out(ig_nb_tot_transi), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_transi
      id_err = 13

      call psmile_error_common ( id_err, 'Nb tot transi', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

  il_ntr = 0

  ! 4.3. For each comp
  DO ib_c = 1, ig_nb_tot_comps

    IF (iga_comp_nb_transi(ib_c) .gt. 0) THEN

! 4.3.1. Allocate the local count arrays
    ALLOCATE (ila_comp_nb_stand_name(iga_comp_nb_transi(ib_c)), stat=id_err) 
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi(ib_c)
        id_err = 13

        call psmile_error_common ( id_err, 'ila_comp_nb_stand_name', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF
    ALLOCATE (ila_comp_nb_transi_in(iga_comp_nb_transi(ib_c)), stat=id_err) 
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi(ib_c)
        id_err = 13

        call psmile_error_common ( id_err, 'ila_comp_nb_transi_in', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF
    ALLOCATE (ila_comp_nb_transi_out(iga_comp_nb_transi(ib_c)), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi(ib_c)
        id_err = 13

        call psmile_error_common ( id_err, 'ila_comp_nb_transi_out', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF

! 4.3.2. For all transients of the component, get the number of times they
!        are sent and the number of time they are received
!
!  Set flag for second pass
    ll_userdef_details = .false.
    call prismdrv_get_comp_names(ib_c, cla_appli_name, cla_comp_name, id_err)
    CALL get_transi_io_numbers ( iga_comp_id_doc_XML(ib_c),  &
                                 iga_comp_nb_transi(ib_c),   &
                                 ila_comp_nb_stand_name(:),  &
                                 ila_comp_nb_transi_in(:),   &
                                 ila_comp_nb_transi_out(:),  &
                                 ib_c,                       &
                                 cla_appli_name,             &
                                 cla_comp_name,              &
                                 ll_userdef_details,         &
                                 id_err )
    IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in get_transi_io_numbers'

! 4.3.3. set the global count array for transient in and out
#ifdef DEBUG
   print *, 'ib_c, iga_comp_nb_transi(ib_c) = ',ib_c, iga_comp_nb_transi(ib_c)
   print *, 'il_ntr = ', il_ntr
#endif
    iga_comp_nb_stand_name  &
       (il_ntr+1:il_ntr+iga_comp_nb_transi(ib_c)) &
       = ila_comp_nb_stand_name(:)
    iga_comp_nb_transi_in  &
       (il_ntr+1:il_ntr+iga_comp_nb_transi(ib_c)) &
       = ila_comp_nb_transi_in(:)
    iga_comp_nb_transi_out  &
       (il_ntr+1:il_ntr+iga_comp_nb_transi(ib_c)) &
       = ila_comp_nb_transi_out(:)

    il_ntr = il_ntr + iga_comp_nb_transi(ib_c)

! 4.3.4. Send this information to the different components
    ALLOCATE(ila_smioc_send(3*iga_comp_nb_transi(ib_c)), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi(ib_c)
        id_err = 13

        call psmile_error_common ( id_err, 'ila_smioc_send', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF

    DO ib = 1, iga_comp_nb_transi(ib_c)

      ila_smioc_send(1 + (ib-1)*3) = ila_comp_nb_stand_name(ib)
      ila_smioc_send(2 + (ib-1)*3) = ila_comp_nb_transi_in(ib)
      ila_smioc_send(3 + (ib-1)*3) = ila_comp_nb_transi_out(ib)

    END DO
    
    ila_tgt_proc(:) = -1    
    il_nb_comp_pes = 0
!   for all processes except driver processes
    DO ib = 0, ig_nb_tot_pes + (ig_driver_nb_pes-1)
      IF ((ib < PRISMdrv_root) .OR. ((PRISMdrv_root + ig_driver_nb_pes) <= ib)) THEN
        DO ib_ter = 1, Drv_Procs(ib+1)%comps_per_rank
          IF (Drv_Procs(ib+1)%global_comp_id(ib_ter) .eq. ib_c) THEN
            il_nb_comp_pes = il_nb_comp_pes + 1
            ila_tgt_proc(il_nb_comp_pes) = Drv_Procs(ib+1)%global_rank(ib_ter)
          END IF
        END DO
      END IF
    END DO


    DO ib = 1, il_nb_comp_pes

      CALL MPI_Send (ila_smioc_send, 3*iga_comp_nb_transi(ib_c), MPI_Integer, &
         ila_tgt_proc(ib), 6, comm_drv_trans, id_err)

    END DO

    DEALLOCATE(ila_smioc_send, stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14
        
        call psmile_error_common ( id_err, 'ila_smioc_send', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF

! 4.3.5. Deallocate component local counters
    DEALLOCATE (ila_comp_nb_stand_name, stat=id_err) 
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'ila_comp_nb_stand_name', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF
    DEALLOCATE (ila_comp_nb_transi_in, stat=id_err) 
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'ila_comp_nb_transi_in', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF
    DEALLOCATE (ila_comp_nb_transi_out, stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'ila_comp_nb_transi_out', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF

  END IF

  ENDDO   ! loop on components ib_c = 1, ig_nb_tot_comps
#ifdef DEBUG
  print *,' iga_comp_nb_stand_name = ', iga_comp_nb_stand_name(:)
  print *,' iga_comp_nb_transi_in (incl extra userdef) = ', iga_comp_nb_transi_in(:)
  print *,' iga_comp_nb_transi_out (incl extra userdef) = ', iga_comp_nb_transi_out(:)
#endif

! 4.4. Allocate standard name, transient_out, and transient_in 
!      in global transient structure
  DO ib_ntt = 1, ig_nb_tot_transi
    ALLOCATE (sga_smioc_transi(ib_ntt)%sg_transi_in%sga_in_orig &
       (iga_comp_nb_transi_in(ib_ntt)), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi_in(ib_ntt)
        id_err = 13

        call psmile_error_common ( id_err, 'sga_in_orig', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF
    ALLOCATE (sga_smioc_transi(ib_ntt)%sga_transi_out &
       (iga_comp_nb_transi_out(ib_ntt)), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi_out(ib_ntt)
        id_err = 13

        call psmile_error_common ( id_err, 'sga_transi_out', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF
    ALLOCATE (sga_smioc_transi(ib_ntt)%cga_stand_name &
       (iga_comp_nb_stand_name(ib_ntt)), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_stand_name(ib_ntt)
        id_err = 13

        call psmile_error_common ( id_err, 'cga_stand_name', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF
  ENDDO

! 4.5. Initialize the global transient structure
#ifdef VERBOSE
  PRINT *, '| | |  Before init_transi for gloabl structure sga_smioc_transi'
  call psmile_flushstd
#endif
  CALL init_transi (ig_nb_tot_transi,        &
                    iga_comp_nb_stand_name,  &
                    iga_comp_nb_transi_in,   &
                    iga_comp_nb_transi_out,  &
                    sga_smioc_transi,        &
                    id_err )
#ifdef VERBOSE
  PRINT *, '| | |  After init_transi'
  call psmile_flushstd
#endif
  IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in init_transi'

! 5. Get the transient details  (2nd pass)
  il_ntr = 0
  il_ntr_xml = 0
  il_npartinid = 0
  il_npartoutid = 0
  DO ib_c = 1, ig_nb_tot_comps        ! Loop on all components

! 5.1. Allocate and fill component transient structure 
    ALLOCATE (ila_comp_nb_stand_name(iga_comp_nb_transi(ib_c)), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi(ib_c)
        id_err = 13

        call psmile_error_common ( id_err, 'ila_comp_nb_stand_name', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF
    ALLOCATE (ila_comp_nb_transi_in(iga_comp_nb_transi(ib_c)), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi(ib_c)
        id_err = 13

        call psmile_error_common ( id_err, 'ila_comp_nb_transi_in', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF
    ALLOCATE (ila_comp_nb_transi_out(iga_comp_nb_transi(ib_c)), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi(ib_c)
        id_err = 13

        call psmile_error_common ( id_err, 'ila_comp_nb_transi_out', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF
    ALLOCATE (sla_driver_transi (iga_comp_nb_transi(ib_c)), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = iga_comp_nb_transi(ib_c)
        id_err = 13

        call psmile_error_common ( id_err, 'sla_driver_transi', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF

    ila_comp_nb_stand_name(:) = iga_comp_nb_stand_name  &
       (il_ntr+1:il_ntr+iga_comp_nb_transi(ib_c))
    ila_comp_nb_transi_in(:) = iga_comp_nb_transi_in  &
       (il_ntr+1:il_ntr+iga_comp_nb_transi(ib_c))
    ila_comp_nb_transi_out(:) = iga_comp_nb_transi_out  &
       (il_ntr+1:il_ntr+iga_comp_nb_transi(ib_c))

! 5.3. Allocate standard name and transient_out and transient_in 
!      in component transient structure
    DO ib_nt = 1, iga_comp_nb_transi(ib_c)
      ALLOCATE (sla_driver_transi(ib_nt)%sg_transi_in%sga_in_orig(ila_comp_nb_transi_in(ib_nt)), stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          ierrp (2) = ila_comp_nb_transi_in(ib_nt)
          id_err = 13

          call psmile_error_common ( id_err, 'sga_in_orig', &
             ierrp, 2, __FILE__, __LINE__ )
          RETURN
      ENDIF
      ALLOCATE (sla_driver_transi(ib_nt)%sga_transi_out(ila_comp_nb_transi_out(ib_nt)), stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          ierrp (2) = ila_comp_nb_transi_out(ib_nt)
          id_err = 13

          call psmile_error_common ( id_err, 'sga_transi_out', &
             ierrp, 2, __FILE__, __LINE__ )
          RETURN
      ENDIF
      ALLOCATE (sla_driver_transi(ib_nt)%cga_stand_name(ila_comp_nb_stand_name(ib_nt)), stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          ierrp (2) = ila_comp_nb_stand_name(ib_nt)
          id_err = 13

          call psmile_error_common ( id_err, 'cga_stand_name', &
             ierrp, 2, __FILE__, __LINE__ )
          RETURN
      ENDIF
    ENDDO

! 5.4. Initialize the component transient structure
#ifdef VERBOSE
  PRINT *, '| | |  Before init_transi bis for local (per component) sla_driver_transi'
  call psmile_flushstd
#endif
    CALL init_transi (iga_comp_nb_transi(ib_c),  &
                      ila_comp_nb_stand_name,    &
                      ila_comp_nb_transi_in,     &
                      ila_comp_nb_transi_out,    &
                      sla_driver_transi,         &
                      id_err )
#ifdef VERBOSE
  PRINT *, '| | |  After init_transi bis'
  call psmile_flushstd
#endif
    IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in init_transi'

! 5.5. Get transient details for all transients of the component (2nd pass)
!
! 5.5.1 Get details for all transients 
#ifdef VERBOSE
  PRINT *, '| | |  Before get_transi_details  second pass (XML + Udef transients)'
  call psmile_flushstd
#endif
!
!   Copy global structure for XML transients (from 1st pass) into sla_driver_transi
!
#ifdef DEBUG
  print *, ' ib_c il_ntr_xml nb_transi = ', ib_c, il_ntr_xml, iga_xml_comp_nb_transi(ib_c)
#endif
    sla_driver_transi(1:iga_xml_comp_nb_transi(ib_c)) =   &
        sga_xml_smioc_transi(il_ntr_xml+1:il_ntr_xml+iga_xml_comp_nb_transi(ib_c))
!
!   create the additional "udef" transients (if any) from existing XML transients
    CALL prismdrv_get_all_transi ( iga_comp_nb_transi(ib_c),   &
                                   sla_driver_transi(:),       &
                                   ib_c,                       &
                                   id_err )
!   Now, sla_driver_transi contains all transients including "udef" transients
#ifdef VERBOSE
  PRINT *, '| | |  After get_transi'
  call psmile_flushstd
#endif
    IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in get_transi_details'

! 5.5.2 Set the component, transient, grid, transient in and transient out ids 
!       Component id 
    sla_driver_transi(:)%ig_comp_id = ib_c
    DO ib_nt = 1, iga_comp_nb_transi(ib_c)
      ib_a = il_ntr+ib_nt
      !     Transient id
      sla_driver_transi(ib_nt)%ig_transi_id = ib_a
      ! Transient in id
      DO ib_nin= 1, sla_driver_transi(ib_nt)%sg_transi_in%ig_nb_in_orig
        sla_driver_transi(ib_nt)%sg_transi_in%sga_in_orig(ib_nin)%ig_transi_in_id &
           = il_npartinid + ib_nin
      ENDDO
      il_npartinid = il_npartinid + sla_driver_transi(ib_nt)%sg_transi_in%ig_nb_in_orig
      ! Transient out id
      DO ib_nout= 1, sla_driver_transi(ib_nt)%ig_nb_transi_out
        sla_driver_transi(ib_nt)%sga_transi_out(ib_nout)%ig_transi_out_id &
           = il_npartoutid + ib_nout
      ENDDO
      il_npartoutid = il_npartoutid + sla_driver_transi(ib_nt)%ig_nb_transi_out
    ENDDO

    ! 5.6. Put local transient details in global structure
    sga_smioc_transi (il_ntr+1:il_ntr+iga_comp_nb_transi(ib_c)) = &
       sla_driver_transi(:)

    ! 5.7. Set the sizes for the exchanges
    il_nb_int_i_fix = 27
    il_nb_int_i_in  = 54
    il_nb_int_i_out = 82

    il_smioc_send_size_i = 0
    DO ib = 1, iga_comp_nb_transi(ib_c)
      il_smioc_send_size_i = il_smioc_send_size_i       &
         + il_nb_int_i_fix                              &
         + il_nb_int_i_in * ila_comp_nb_transi_in(ib)   &
         + il_nb_int_i_out * ila_comp_nb_transi_out(ib)
    END DO
    ALLOCATE(ila_smioc_send(il_smioc_send_size_i), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = il_smioc_send_size_i
        id_err = 13
        
        call psmile_error_common ( id_err, 'ila_smioc_send', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF

    il_nb_int_d_fix = 6
    il_nb_int_d_in  = 15
    il_nb_int_d_out = 19

    il_smioc_send_size_d = 0
    DO ib = 1, iga_comp_nb_transi(ib_c)
      il_smioc_send_size_d = il_smioc_send_size_d       &
         + il_nb_int_d_fix                              &
         + il_nb_int_d_in * ila_comp_nb_transi_in(ib)   &
         + il_nb_int_d_out * ila_comp_nb_transi_out(ib)
    END DO
    ALLOCATE(dla_smioc_send(il_smioc_send_size_d), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = il_smioc_send_size_d
        id_err = 13
        
        call psmile_error_common ( id_err, 'dla_smioc_send', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF

    il_nb_int_c_fix = 4
    il_nb_int_c_in  = 10
    il_nb_int_c_out = 9

    il_smioc_send_size_c = 0
    DO ib = 1, iga_comp_nb_transi(ib_c)
      il_smioc_send_size_c = il_smioc_send_size_c       &
         + il_nb_int_c_fix                              &
         + ila_comp_nb_stand_name(ib)                   &
         + il_nb_int_c_in * ila_comp_nb_transi_in(ib)   &
         + il_nb_int_c_out * ila_comp_nb_transi_out(ib)
    END DO
    ALLOCATE(cla_smioc_send(il_smioc_send_size_c), stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        ierrp (2) = il_smioc_send_size_c
        id_err = 13
        
        call psmile_error_common ( id_err, 'cla_smioc_send', &
           ierrp, 2, __FILE__, __LINE__ )
        RETURN
    ENDIF

    ! 5.8. Set and Send the transient structure to the component
    il_index_i = 0
    il_index_c = 0
    il_index_d = 0

    DO ib = 1, iga_comp_nb_transi(ib_c)

      ! transient infos
      ila_smioc_send(1 + il_index_i) = sla_driver_transi(ib)%ig_nb_stand_name
      ila_smioc_send(2 + il_index_i) = sla_driver_transi(ib)%ig_comp_id
      ila_smioc_send(3 + il_index_i) = sla_driver_transi(ib)%ig_transi_id
      ila_smioc_send(4 + il_index_i) = sla_driver_transi(ib)%ig_transi_type
      ila_smioc_send(5 + il_index_i) = sla_driver_transi(ib)%ig_nb_bndl
      ila_smioc_send(6 + il_index_i) = sla_driver_transi(ib)%ig_datatype
      ila_smioc_send(7 + il_index_i) = sla_driver_transi(ib)%ig_nb_transi_out
      
      ! transient_in infos
      ila_smioc_send(8 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%ig_nb_in_orig
      ila_smioc_send(9 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%ig_exch_date_type
      ila_smioc_send(10 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%ig_debugmode
      ila_smioc_send(11 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%ig_tgt_timeop
      
      DO ib_ter = 1, 3
        ila_smioc_send(11 + ib_ter + il_index_i) = &
           sla_driver_transi(ib)%sg_transi_in%iga_stats(ib_ter)
      END DO

      ! min period infos
      ila_smioc_send(17 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_min_period%minute
      ila_smioc_send(18 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_min_period%hour
      ila_smioc_send(19 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_min_period%day
      ila_smioc_send(20 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_min_period%month
      ila_smioc_send(21 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_min_period%year
        
      ! tgt local trans
      ila_smioc_send(22 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_tgt_local_trans%ig_gather
      
      ! PSMILe exch date
      ila_smioc_send(23 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_exch_date%sg_period%minute
      ila_smioc_send(24 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_exch_date%sg_period%hour
      ila_smioc_send(25 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_exch_date%sg_period%day
      ila_smioc_send(26 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_exch_date%sg_period%month
      ila_smioc_send(27 + il_index_i) = &
         sla_driver_transi(ib)%sg_transi_in%sg_exch_date%sg_period%year

      il_index_i = il_index_i + 27

      DO ib_bis = 1, ila_comp_nb_transi_in(ib)

        ! transi_in infos
        ila_smioc_send(1 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           ig_transi_in_id
        ila_smioc_send(2 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           ig_orig_type
        ila_smioc_send(3 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           ig_orig_transi_id
        ila_smioc_send(4 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           ig_orig_comp_id
        ila_smioc_send(5 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           ig_conserv

        ! PSMILe_file_struct
        ila_smioc_send(6 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_orig_file%ig_suffix
        ila_smioc_send(7 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_orig_file%ig_file_format
        ila_smioc_send(8 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_orig_file%ig_file_set
        ila_smioc_send(9 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_orig_file%ig_file_iomode
        ila_smioc_send(10 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_orig_file%ig_file_pack

        ! PSMILe_file_struct
        ila_smioc_send(11 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_cpl_rst_file%ig_suffix
        ila_smioc_send(12 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_cpl_rst_file%ig_file_format
        ila_smioc_send(13 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_cpl_rst_file%ig_file_set
        ila_smioc_send(14 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_cpl_rst_file%ig_file_iomode
        ila_smioc_send(15 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_cpl_rst_file%ig_file_pack

        ! PSMILe_interp
        ila_smioc_send(16 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%ig_interp_type
        DO ib_ter = 1, 3
          ila_smioc_send(16 + ib_ter + il_index_i) =                        &
             sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
             sg_interp%iga_interp_meth(ib_ter)
          ila_smioc_send(19 + ib_ter + il_index_i) =                        &
             sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
             sg_interp%iga_arg1(ib_ter)
          ila_smioc_send(22 + ib_ter + il_index_i) =                        &
             sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
             sg_interp%iga_arg2(ib_ter)
          ila_smioc_send(25 + ib_ter + il_index_i) =                        &
             sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
             sg_interp%iga_arg3(ib_ter)
          ila_smioc_send(28 + ib_ter + il_index_i) =                        &
             sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
             sg_interp%iga_arg4(ib_ter)
          ila_smioc_send(31 + ib_ter + il_index_i) =                        &
             sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
             sg_interp%iga_arg5(ib_ter)
          ila_smioc_send(34 + ib_ter + il_index_i) =                        &
             sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
             sg_interp%iga_arg6(ib_ter)
          ila_smioc_send(37 + ib_ter + il_index_i) =                        &
             sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
             sg_interp%iga_arg7(ib_ter)
        END DO

        ! PSMILe_file_struct
        ila_smioc_send(41 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%sg_arg10%ig_suffix
        ila_smioc_send(42 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%sg_arg10%ig_file_format
        ila_smioc_send(43 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%sg_arg10%ig_file_set
        ila_smioc_send(44 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%sg_arg10%ig_file_iomode
        ila_smioc_send(45 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%sg_arg10%ig_file_pack

        ! PSMILe_combi_struct
        ila_smioc_send(46 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%sg_ext_mask_file%ig_suffix
        ila_smioc_send(47 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%sg_ext_mask_file%ig_file_format
        ila_smioc_send(48 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%sg_ext_mask_file%ig_file_set
        ila_smioc_send(49 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%sg_ext_mask_file%ig_file_iomode
        ila_smioc_send(50 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%sg_ext_mask_file%ig_file_pack
        ila_smioc_send(51 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%ig_location
        ila_smioc_send(52 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%ig_operand
        ila_smioc_send(53 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%ig_mask_type
        ila_smioc_send(54 + il_index_i) =                                &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%ig_combi_meth
           
        il_index_i = il_index_i + 54

      END DO

      DO ib_bis = 1, ila_comp_nb_transi_out(ib)

        ! transi_out infos
        ila_smioc_send(1 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           ig_transi_out_id
        ila_smioc_send(2 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           ig_dest_type
        ila_smioc_send(3 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           ig_dest_transi_id
        ila_smioc_send(4 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           ig_dest_comp_id
        ila_smioc_send(5 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           ig_exch_date_type
        ila_smioc_send(6 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           ig_debugmode
        ila_smioc_send(7 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           ig_lag
        ila_smioc_send(8 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           ig_src_timeop
        ila_smioc_send(9 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           ig_conserv
        DO ib_ter = 1, 3
          ila_smioc_send(9 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             iga_stats(ib_ter)
        END DO

        ! PSMILe_file_struct        
        ila_smioc_send(15 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_dest_file%ig_suffix
        ila_smioc_send(16 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_dest_file%ig_file_format
        ila_smioc_send(17 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_dest_file%ig_file_set
        ila_smioc_send(18 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_dest_file%ig_file_iomode
        ila_smioc_send(19 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_dest_file%ig_file_pack

        ! PSMILe_file_struct        
        ila_smioc_send(20 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_cpl_rst_file%ig_suffix
        ila_smioc_send(21 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_cpl_rst_file%ig_file_format
        ila_smioc_send(22 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_cpl_rst_file%ig_file_set
        ila_smioc_send(23 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_cpl_rst_file%ig_file_iomode
        ila_smioc_send(24 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_cpl_rst_file%ig_file_pack

        ! PRISM_time_struct
        ila_smioc_send(25 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_min_period%minute
        ila_smioc_send(26 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_min_period%hour
        ila_smioc_send(27 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_min_period%day
        ila_smioc_send(28 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_min_period%month
        ila_smioc_send(29 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_min_period%year

        ! PSMILe_exch_date
        ila_smioc_send(30 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_exch_date%sg_period%minute
        ila_smioc_send(31 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_exch_date%sg_period%hour
        ila_smioc_send(32 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_exch_date%sg_period%day
        ila_smioc_send(33 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_exch_date%sg_period%month
        ila_smioc_send(34 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_exch_date%sg_period%year

        ! PSMILe_src_local_trans
        ila_smioc_send(35 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_src_local_trans%ig_scatter
        DO ib_ter = 1, 4
          ila_smioc_send(35 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_src_local_trans%ig_reduc_type(ib_ter)
          ila_smioc_send(39 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_src_local_trans%ig_reduc_order(ib_ter)
        END DO

        ! PSMILe_interp
        ila_smioc_send(44 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_interp%ig_interp_type
        DO ib_ter = 1, 3
          ila_smioc_send(44 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_interp%iga_interp_meth(ib_ter)
          ila_smioc_send(47 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_interp%iga_arg1(ib_ter)
          ila_smioc_send(50 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_interp%iga_arg2(ib_ter)
          ila_smioc_send(53 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_interp%iga_arg3(ib_ter)
          ila_smioc_send(56 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_interp%iga_arg4(ib_ter)
          ila_smioc_send(59 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_interp%iga_arg5(ib_ter)
          ila_smioc_send(62 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_interp%iga_arg6(ib_ter)
          ila_smioc_send(65 + ib_ter + il_index_i) =             &
             sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
             sg_interp%iga_arg7(ib_ter)
        END DO
        
        ! PSMILe_file_struct
        ila_smioc_send(69 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_interp%sg_arg10%ig_suffix
        ila_smioc_send(70 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_interp%sg_arg10%ig_file_format
        ila_smioc_send(71 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_interp%sg_arg10%ig_file_set
        ila_smioc_send(72 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_interp%sg_arg10%ig_file_iomode
        ila_smioc_send(73 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_interp%sg_arg10%ig_file_pack
          
        ! PSMILe_combi_struct
        ila_smioc_send(74 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_combi%sg_ext_mask_file%ig_suffix
        ila_smioc_send(75 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_combi%sg_ext_mask_file%ig_file_format
        ila_smioc_send(76 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_combi%sg_ext_mask_file%ig_file_set
        ila_smioc_send(77 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_combi%sg_ext_mask_file%ig_file_iomode
        ila_smioc_send(78 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_combi%sg_ext_mask_file%ig_file_pack
        ila_smioc_send(79 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_combi%ig_location
        ila_smioc_send(80 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_combi%ig_operand
        ila_smioc_send(81 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_combi%ig_mask_type
        ila_smioc_send(82 + il_index_i) =             &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%            &
           sg_combi%ig_combi_meth

        il_index_i = il_index_i + 82

      END DO

      cla_smioc_send(1 + il_index_c) = sla_driver_transi(ib)%cg_local_name
      cla_smioc_send(2 + il_index_c) = sla_driver_transi(ib)%cg_long_name
      cla_smioc_send(3 + il_index_c) = sla_driver_transi(ib)%cg_comp_name
      cla_smioc_send(4 + il_index_c) = sla_driver_transi(ib)%cg_units

      il_index_c = il_index_c + 4

      DO ib_bis = 1, ila_comp_nb_stand_name(ib)

        cla_smioc_send(1 + il_index_c) = &
           sla_driver_transi(ib)%cga_stand_name(ib_bis)

        il_index_c = il_index_c + 1

      END DO

      DO ib_bis = 1, ila_comp_nb_transi_in(ib)

        cla_smioc_send(1 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           cg_transi_in_name
        cla_smioc_send(2 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           cg_orig_transi
        cla_smioc_send(3 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           cg_orig_comp_name
        cla_smioc_send(4 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_orig_file%cg_file_name
        cla_smioc_send(5 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_cpl_rst_file%cg_file_name
        cla_smioc_send(6 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%cg_arg9
        cla_smioc_send(7 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%sg_arg10%cg_file_name
        cla_smioc_send(8 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%cg_combi_name
        cla_smioc_send(9 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%cg_ext_mask_name
        cla_smioc_send(10 + il_index_c) =              &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%sg_ext_mask_file%cg_file_name
        
        il_index_c = il_index_c + 10

      END DO

      DO ib_bis = 1, ila_comp_nb_transi_out(ib)

        cla_smioc_send(1 + il_index_c) =              &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)% &
           cg_transi_out_name
        cla_smioc_send(2 + il_index_c) =              &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)% &
           cg_dest_transi
        cla_smioc_send(3 + il_index_c) =              &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)% &
           cg_dest_comp_name
        cla_smioc_send(4 + il_index_c) =              &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)% &
           sg_dest_file%cg_file_name
        cla_smioc_send(5 + il_index_c) =              &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)% &
           sg_cpl_rst_file%cg_file_name
        cla_smioc_send(6 + il_index_c) =              &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)% &
           sg_interp%cg_arg9
        cla_smioc_send(7 + il_index_c) =              &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)% &
           sg_interp%sg_arg10%cg_file_name
        cla_smioc_send(8 + il_index_c) =              &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)% &
           sg_combi%cg_ext_mask_name
        cla_smioc_send(9 + il_index_c) =              &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)% &
           sg_combi%sg_ext_mask_file%cg_file_name

        il_index_c = il_index_c + 9

      END DO

      dla_smioc_send(1 + il_index_d) = sla_driver_transi(ib)%dg_transi_min
      dla_smioc_send(2 + il_index_d) = sla_driver_transi(ib)%dg_transi_max
      dla_smioc_send(3 + il_index_d) = &
         sla_driver_transi(ib)%sg_transi_in%sg_min_period%second
      dla_smioc_send(4 + il_index_d) = &
         sla_driver_transi(ib)%sg_transi_in%sg_tgt_local_trans%dg_add_scalar
      dla_smioc_send(5 + il_index_d) = &
         sla_driver_transi(ib)%sg_transi_in%sg_tgt_local_trans%dg_mult_scalar
      dla_smioc_send(6 + il_index_d) = &
         sla_driver_transi(ib)%sg_transi_in%sg_exch_date%sg_period%second

      il_index_d = il_index_d + 6

      DO ib_bis = 1, ila_comp_nb_transi_in(ib)

        dla_smioc_send(1 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_orig_file%dg_file_scal
        dla_smioc_send(2 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_orig_file%dg_file_add
        dla_smioc_send(3 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_orig_file%dg_fill_val
        dla_smioc_send(4 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_cpl_rst_file%dg_file_scal
        dla_smioc_send(5 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_cpl_rst_file%dg_file_add
        dla_smioc_send(6 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_cpl_rst_file%dg_file_scal
        dla_smioc_send(7 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%dg_arg8
        dla_smioc_send(8 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%sg_arg10%dg_file_scal
        dla_smioc_send(9 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%sg_arg10%dg_file_add
        dla_smioc_send(10 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_interp%sg_arg10%dg_fill_val

        dla_smioc_send(11 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%sg_ext_mask_file%dg_file_scal
        dla_smioc_send(12 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%sg_ext_mask_file%dg_file_add
        dla_smioc_send(13 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%sg_ext_mask_file%dg_fill_val
        dla_smioc_send(14 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%dg_combi_param
        dla_smioc_send(15 + il_index_d) = &
           sla_driver_transi(ib)%sg_transi_in%sga_in_orig(ib_bis)% &
           sg_combi%dg_scalar

        il_index_d = il_index_d + 15

      END DO

      DO ib_bis = 1, ila_comp_nb_transi_out(ib)

        dla_smioc_send(1 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_dest_file% &
           dg_file_scal
        dla_smioc_send(2 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_dest_file% &
           dg_file_add
        dla_smioc_send(3 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_dest_file% &
           dg_fill_val
        dla_smioc_send(4 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_cpl_rst_file% &
           dg_file_scal
        dla_smioc_send(5 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_cpl_rst_file% &
           dg_file_add
        dla_smioc_send(6 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_cpl_rst_file% &
           dg_fill_val
        dla_smioc_send(7 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_min_period%second
        dla_smioc_send(8 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_exch_date% &
           sg_period%second
        dla_smioc_send(9 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_src_local_trans% &
           dg_add_scalar
        dla_smioc_send(10 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_src_local_trans% &
           dg_mult_scalar
        dla_smioc_send(11 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_interp%dg_arg8
        dla_smioc_send(12 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_interp% &
           sg_arg10%dg_file_scal
        dla_smioc_send(13 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_interp% &
           sg_arg10%dg_file_add
        dla_smioc_send(14 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_interp% &
           sg_arg10%dg_fill_val
        dla_smioc_send(15 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_combi% &
           sg_ext_mask_file%dg_file_scal
        dla_smioc_send(16 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_combi% &
           sg_ext_mask_file%dg_file_add
        dla_smioc_send(17 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_combi% &
           sg_ext_mask_file%dg_fill_val
        dla_smioc_send(17 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_combi% &
           dg_combi_param
        dla_smioc_send(17 + il_index_d) = &
           sla_driver_transi(ib)%sga_transi_out(ib_bis)%sg_combi% &
           dg_scalar

        il_index_d = il_index_d + 19

      END DO

    END DO

    ila_tgt_proc(:) = -1    
    il_nb_comp_pes = 0

!   for all processes except driver processes
    DO ib = 0, ig_nb_tot_pes + (ig_driver_nb_pes-1)
      IF ((ib < PRISMdrv_root) .OR. ((PRISMdrv_root + ig_driver_nb_pes) <= ib)) THEN
        DO ib_ter = 1, Drv_Procs(ib+1)%comps_per_rank
          IF (Drv_Procs(ib+1)%global_comp_id(ib_ter) .eq. ib_c) THEN
            il_nb_comp_pes = il_nb_comp_pes + 1
            ila_tgt_proc(il_nb_comp_pes) = Drv_Procs(ib+1)%global_rank(ib_ter)
          END IF
        END DO
      END IF
    END DO

    DO ib = 1, il_nb_comp_pes

      CALL MPI_Send (ila_smioc_send(1), il_smioc_send_size_i, MPI_Integer, &
         ila_tgt_proc(ib), 7, comm_drv_trans, id_err)

      CALL MPI_Send (cla_smioc_send(1), il_smioc_send_size_c*max_name, &
         MPI_Character, ila_tgt_proc(ib), 8, comm_drv_trans, id_err)

      CALL MPI_Send (dla_smioc_send(1), il_smioc_send_size_d, &
         MPI_Double_Precision, ila_tgt_proc(ib), 9, comm_drv_trans, &
         id_err)

    END DO

    DEALLOCATE(ila_smioc_send, stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'ila_smioc_send', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF
    DEALLOCATE(cla_smioc_send, stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'cla_smioc_send', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF
    DEALLOCATE(dla_smioc_send, stat=id_err)    
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'dla_smioc_send', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF

    ! 5.8. Deallocate the local arrays
    DEALLOCATE (ila_comp_nb_stand_name, stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'ila_comp_nb_stand_name', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF
    DEALLOCATE (ila_comp_nb_transi_in, stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'ila_comp_nb_transi_in', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF
    DEALLOCATE (ila_comp_nb_transi_out, stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'ila_comp_nb_transi_out', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF
    DEALLOCATE (sla_driver_transi, stat=id_err)
    IF (id_err > 0) THEN
        ierrp (1) = id_err
        id_err = 14

        call psmile_error_common ( id_err, 'sla_driver_transi', &
           ierrp, 1, __FILE__, __LINE__ )
        RETURN
    ENDIF
!
!  All transients  (2nd pass)
    il_ntr = il_ntr + iga_comp_nb_transi(ib_c)
!
!  XML transients  (1st pass)
    il_ntr_xml = il_ntr_xml + iga_xml_comp_nb_transi(ib_c)
#ifdef DEBUG
   print *, 'il_ntr_xml   il_ntr = ', il_ntr_xml, il_ntr
#endif

  END DO
!-----------------------------------------------------------------------
#ifdef DEBUGX
!
! 8. Write the different structures
!
  OPEN (file='driver_smioc.debug.000', unit=28, form='formatted')
!
! 8.1. Write the grid structure
  IF (ig_nb_tot_grids .gt. 0) THEN
      CALL write_grids_details (ig_nb_tot_grids,  &
         sga_smioc_grids, 28, id_err )
      IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in write_grids_details'
  END IF

! 8.2. Write the transient structure
  IF (ig_nb_tot_transi .gt. 0) THEN
      CALL write_transi_details (ig_nb_tot_transi,  &
         sga_smioc_transi, 28, id_err )
      IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in write_transi_details'
  END IF
!
  CLOSE (unit=28)
!
#endif
!
!-----------------------------------------------------------------------
!
! 6. Set the corresponding target or source component id 
!
! 6.1. Allocate the arrays used to tranfer the following attributions of infos
!
! Calculate the maximum size of the local arrays
  il_orig_index = 0
  il_dest_index = 0
  DO ib_ntt = 1, ig_nb_tot_transi
    DO ib_ntt2 = 1, ig_nb_tot_transi
      il_orig_index = il_orig_index + sga_smioc_transi(ib_ntt)%sg_transi_in%ig_nb_in_orig
      il_dest_index = il_dest_index + sga_smioc_transi(ib_ntt)%ig_nb_transi_out
    ENDDO
  ENDDO

! Allocate the arrays      
  ALLOCATE(ila_orig_comp_id(il_orig_index, 3), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_orig_index
      id_err = 13
      
      call psmile_error_common ( id_err, 'ila_orig_comp_id', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE(ila_dest_comp_id(il_dest_index, 3), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_dest_index
      id_err = 13
      
      call psmile_error_common ( id_err, 'ila_dest_comp_id', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE(ila_combi_loc(ig_nb_tot_transi, 2), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = ig_nb_tot_transi
      id_err = 13
      
      call psmile_error_common ( id_err, 'ila_combi_loc', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

  il_index1 = 0
  il_index2 = 0
  DO ib_ntt = 1, ig_nb_tot_transi
    il_index1 = il_index1 + sga_smioc_transi(ib_ntt)%ig_nb_transi_out
    il_index2 = il_index2 + sga_smioc_transi(ib_ntt)%sg_transi_in%ig_nb_in_orig
  ENDDO
  IF (il_index1 .GT. il_index2) il_index2 = il_index1 

  ALLOCATE(ila_trans_orig_id(il_index2, 3), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_index2
      id_err = 13
      
      call psmile_error_common ( id_err, 'ila_trans_orig_id', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE(ila_trans_dest_id(il_index2, 3), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_index2
      id_err = 13
      
      call psmile_error_common ( id_err, 'ila_trans_dest_id', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE(ila_cpl_rst_file(il_index2, 8), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_index2
      id_err = 13
      
      call psmile_error_common ( id_err, 'ila_cpl_rst_file', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE(dla_cpl_rst_file(il_index2, 3), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_index2
      id_err = 13
      
      call psmile_error_common ( id_err, 'dla_cpl_rst_file', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE(cla_cpl_rst_file(il_index2, 1), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_index2
      id_err = 13
      
      call psmile_error_common ( id_err, 'cla_cpl_rst_file', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE(ila_trans_interp(il_index2, 32), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_index2
      id_err = 13
      
      call psmile_error_common ( id_err, 'ila_trans_interp', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE(dla_trans_interp(il_index2, 4), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_index2
      id_err = 13
      
      call psmile_error_common ( id_err, 'dla_trans_interp', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF
  ALLOCATE(cla_trans_interp(il_index2, 2), stat=id_err)
  IF (id_err > 0) THEN
      ierrp (1) = id_err
      ierrp (2) = il_index2
      id_err = 13
      
      call psmile_error_common ( id_err, 'cla_trans_interp', &
         ierrp, 2, __FILE__, __LINE__ )
      RETURN
  ENDIF

  ila_orig_comp_id  = -1
  ila_dest_comp_id  = -1
  ila_combi_loc     = -1
  ila_trans_orig_id = -1
  ila_trans_dest_id = -1
  ila_cpl_rst_file = -1
  dla_cpl_rst_file = -1.0
  cla_cpl_rst_file = " "
  ila_trans_interp = -1

! 6.2. Set the orig_comp_id and dest_comp_id
  il_orig_index = 0
  il_dest_index = 0

  DO ib_ntt = 1, ig_nb_tot_transi
    DO ib_ntt2 = 1, ig_nb_tot_transi

      DO ib_nin = 1, sga_smioc_transi(ib_ntt)%sg_transi_in%ig_nb_in_orig
        IF (sga_smioc_transi(ib_ntt)%sg_transi_in%sga_in_orig(ib_nin)% &
           cg_orig_comp_name .EQ. sga_smioc_transi(ib_ntt2)%cg_comp_name) THEN

            sga_smioc_transi(ib_ntt)%sg_transi_in%sga_in_orig(ib_nin)% &
               ig_orig_comp_id = sga_smioc_transi(ib_ntt2)%ig_comp_id 

            il_orig_index = il_orig_index + 1
            ila_orig_comp_id(il_orig_index, 1) = ib_ntt
            ila_orig_comp_id(il_orig_index, 2) = ib_nin
            ila_orig_comp_id(il_orig_index, 3) = &
               sga_smioc_transi(ib_ntt2)%ig_comp_id

        ENDIF
      ENDDO

      DO ib_nout = 1, sga_smioc_transi(ib_ntt)%ig_nb_transi_out
        IF (sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)% &
           cg_dest_comp_name .EQ. sga_smioc_transi(ib_ntt2)%cg_comp_name) THEN

            sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)% &
               ig_dest_comp_id = sga_smioc_transi(ib_ntt2)%ig_comp_id 

            il_dest_index = il_dest_index + 1
            ila_dest_comp_id(il_dest_index, 1) = ib_ntt
            ila_dest_comp_id(il_dest_index, 2) = ib_nout
            ila_dest_comp_id(il_dest_index, 3) = &
               sga_smioc_transi(ib_ntt2)%ig_comp_id

        ENDIF
      ENDDO
    ENDDO
  ENDDO
    

! 6.3. Define where the combination will take place
  il_loc_index = 0

  DO ib_ntt2 = 1, ig_nb_tot_transi

    il_combi = 1
    il_source = 1
    ll_combi = .false.
    ll_source = .false.

    DO ib_nin = 2, sga_smioc_transi(ib_ntt2)%sg_transi_in%ig_nb_in_orig

      ! Check if there is a combination for that transient_in
      IF (sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)%        &
         sg_combi%cg_combi_name .NE. '    ' .AND. sga_smioc_transi(ib_ntt2)% &
         sg_transi_in%sga_in_orig(ib_nin)%sg_combi%cg_combi_name .EQ.        &
         sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin-1)%       &
         sg_combi%cg_combi_name) il_combi = il_combi + 1

      ! Check if the transient implied in combination come from same src comp
      IF (sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)%   &
         cg_orig_comp_name .EQ. sga_smioc_transi(ib_ntt2)%sg_transi_in% &
         sga_in_orig(ib_nin-1)%cg_orig_comp_name) il_source = il_source + 1

    ENDDO

    ! If there is a combination, put ll_combi to true
    IF (sga_smioc_transi(ib_ntt2)%sg_transi_in%ig_nb_in_orig .GT. 1 .AND.  &
       il_combi .EQ. sga_smioc_transi(ib_ntt2)%sg_transi_in%ig_nb_in_orig) &
       ll_combi = .TRUE.

    ! If the comb implies transients coming all from same src, ll_source = true
    IF (sga_smioc_transi(ib_ntt2)%sg_transi_in%ig_nb_in_orig .GT. 1 .AND.   &
       il_source .EQ. sga_smioc_transi(ib_ntt2)%sg_transi_in%ig_nb_in_orig) &
       ll_source = .TRUE.

    IF (ll_combi) THEN

        il_loc_index = il_loc_index + 1
        ila_combi_loc(il_loc_index,1) = ib_ntt2

        IF (ll_source) THEN
            sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(:)% &
               sg_combi%ig_location = PSMILe_source
            ila_combi_loc(il_loc_index,2) = PSMILe_source
        ELSE
            sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(:)% &
               sg_combi%ig_location = PSMILe_target
            ila_combi_loc(il_loc_index,2) = PSMILe_target
        ENDIF
    ENDIF
  ENDDO

! 6.2 Set transient out coupling restart files, interpolation, conservation 
!    and combination, and corresponding transient in or out id 
  il_trans_dest_index = 0
  il_trans_orig_index = 0
  il_cpl_rst_file_index = 0
  il_trans_interp_index = 0
  
  DO ib_ntt = 1, ig_nb_tot_transi
    DO ib_nout = 1, sga_smioc_transi(ib_ntt)%ig_nb_transi_out

      DO ib_ntt2 = 1, ig_nb_tot_transi
        DO ib_nin = 1, sga_smioc_transi(ib_ntt2)%sg_transi_in%ig_nb_in_orig

#ifdef DEBUG
! Check coherency between transi_in and transi_out information
          IF (TRIM(sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)%          &
             cg_transi_out_name) .EQ. trim(sga_smioc_transi(ib_ntt2)%         &
             sg_transi_in%sga_in_orig(ib_nin)%cg_orig_transi) .AND.           &
             trim(sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)% &
             cg_transi_in_name) .NE. trim(sga_smioc_transi(ib_ntt)%           &
             sga_transi_out(ib_nout)%cg_dest_transi)) THEN
              PRINT *, '| | |  Incoherency in corresponding source and target XML info'
              PRINT *, '| | |  for transient ', sga_smioc_transi(ib_ntt)%     &
                 sga_transi_out(ib_nout)%cg_dest_transi
              CALL PSMILe_abort
          ENDIF
          IF (TRIM(sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)%          &
             cg_transi_out_name) .NE. trim(sga_smioc_transi(ib_ntt2)%         &
             sg_transi_in%sga_in_orig(ib_nin)%cg_orig_transi) .AND.           &
             trim(sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)% &
             cg_transi_in_name) .EQ. trim(sga_smioc_transi(ib_ntt)%           &
             sga_transi_out(ib_nout)%cg_dest_transi)) THEN
              PRINT *, '| | |  Incoherency in corresponding source and target XML info'
              PRINT *, '| | |  for transient ', sga_smioc_transi(ib_ntt2)%    &
                 sg_transi_in%sga_in_orig(ib_nin)%cg_orig_transi
              CALL PSMILe_abort
          ENDIF
#endif
          IF (trim(sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)%          &
             cg_transi_out_name) .EQ. trim(sga_smioc_transi(ib_ntt2)%         &
             sg_transi_in%sga_in_orig(ib_nin)%cg_orig_transi) .AND.           &
             trim(sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)% &
             cg_transi_in_name) .EQ. trim(sga_smioc_transi(ib_ntt)%           &
             sga_transi_out(ib_nout)%cg_dest_transi)) THEN

              ! Corresponding global ids
              sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)%  &
                 ig_dest_transi_id = sga_smioc_transi(ib_ntt2)%  &
                 sg_transi_in%sga_in_orig(ib_nin)%ig_transi_in_id

              il_trans_dest_index = il_trans_dest_index + 1
#ifdef DEBUG
              IF (il_trans_dest_index .GT. il_index2) THEN
                  PRINT *, '| | |  Arrays with too small allocation'
                  PRINT *, '| | |  in prismdrv_init_smioc_struct.F90'
                  CALL PSMILe_abort
              ENDIF
#endif
              ila_trans_dest_id(il_trans_dest_index,1) = ib_ntt
              ila_trans_dest_id(il_trans_dest_index,2) = ib_nout
              ila_trans_dest_id(il_trans_dest_index,3) =           &
                 sga_smioc_transi(ib_ntt2)%                        &
                 sg_transi_in%sga_in_orig(ib_nin)%ig_transi_in_id

              sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)%  &
                 ig_orig_transi_id = sga_smioc_transi(ib_ntt)%             &
                 sga_transi_out(ib_nout)%ig_transi_out_id

              il_trans_orig_index = il_trans_orig_index + 1
              ila_trans_orig_id(il_trans_orig_index,1) = ib_ntt2
              ila_trans_orig_id(il_trans_orig_index,2) = ib_nin
              ila_trans_orig_id(il_trans_orig_index,3) =   &
                 sga_smioc_transi(ib_ntt)%                 &
                 sga_transi_out(ib_nout)%ig_transi_out_id

              ! Coupling restart file
              sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)%  &
                 sg_cpl_rst_file = sga_smioc_transi(ib_ntt2)%    &
                 sg_transi_in%sga_in_orig(ib_nin)%sg_cpl_rst_file

              il_cpl_rst_file_index = il_cpl_rst_file_index + 1
              ila_cpl_rst_file(il_cpl_rst_file_index,1) = ib_ntt
              ila_cpl_rst_file(il_cpl_rst_file_index,2) = ib_nout
              ila_cpl_rst_file(il_cpl_rst_file_index,3) = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%  &
                 sga_in_orig(ib_nin)%sg_cpl_rst_file%ig_suffix
              ila_cpl_rst_file(il_cpl_rst_file_index,4) = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%  &
                 sga_in_orig(ib_nin)%sg_cpl_rst_file%ig_file_format
              ila_cpl_rst_file(il_cpl_rst_file_index,5) = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%  &
                 sga_in_orig(ib_nin)%sg_cpl_rst_file%ig_file_set 
              ila_cpl_rst_file(il_cpl_rst_file_index,6) = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%  &
                 sga_in_orig(ib_nin)%sg_cpl_rst_file%ig_file_iomode
              ila_cpl_rst_file(il_cpl_rst_file_index,7) = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%  &
                 sga_in_orig(ib_nin)%sg_cpl_rst_file%ig_file_pack

              dla_cpl_rst_file(il_cpl_rst_file_index,1) = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%  &
                 sga_in_orig(ib_nin)%sg_cpl_rst_file%dg_file_scal
              dla_cpl_rst_file(il_cpl_rst_file_index,2) = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%  &
                 sga_in_orig(ib_nin)%sg_cpl_rst_file%dg_file_add
              dla_cpl_rst_file(il_cpl_rst_file_index,3) = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%  &
                 sga_in_orig(ib_nin)%sg_cpl_rst_file%dg_fill_val

              cla_cpl_rst_file(il_cpl_rst_file_index,1) = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%  &
                 sga_in_orig(ib_nin)%sg_cpl_rst_file%cg_file_name

              ! Interpolation
              print *,' transfer de sg_interp de in vers out '
              IF (sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)% &
                 ig_dest_type .EQ. PSMILe_comp) THEN

                  sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)%      &
                     sg_interp = sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp
              print *,' ib_ntt ib_nout  ib_ntt2 ib_nin = ',ib_ntt,ib_nout,ib_ntt2,ib_nin 

                  il_trans_interp_index = il_trans_interp_index + 1
              print *,' il_trans_interp_index = ',il_trans_interp_index
              print *,' il_trans_dest_index = ',il_trans_dest_index

                  ila_trans_interp(il_trans_dest_index,1) = ib_ntt
                  ila_trans_interp(il_trans_dest_index,2) = ib_nout
                  ila_trans_interp(il_trans_dest_index,3) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%ig_interp_type 
                  ila_trans_interp(il_trans_dest_index,4:6) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%iga_arg1(1:3)
                  ila_trans_interp(il_trans_dest_index,7:9) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%iga_arg2(1:3)
                  ila_trans_interp(il_trans_dest_index,10:12) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%iga_arg3(1:3)
                  ila_trans_interp(il_trans_dest_index,13:15) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%iga_arg4(1:3)
                  ila_trans_interp(il_trans_dest_index,16:18) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%iga_arg5(1:3)
                  ila_trans_interp(il_trans_dest_index,19:21) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%iga_arg6(1:3)
                  ila_trans_interp(il_trans_dest_index,22:24) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%iga_arg7(1:3)
                  ila_trans_interp(il_trans_dest_index,25:27) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%iga_interp_meth(1:3)
!JL sg_arg10 integer
                  ila_trans_interp(il_trans_dest_index,28) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%sg_arg10%ig_suffix
                  ila_trans_interp(il_trans_dest_index,29) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%sg_arg10%ig_file_format
                  ila_trans_interp(il_trans_dest_index,30) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%sg_arg10%ig_file_set
                  ila_trans_interp(il_trans_dest_index,31) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%sg_arg10%ig_file_iomode
                  ila_trans_interp(il_trans_dest_index,32) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%sg_arg10%ig_file_pack
    

                  dla_trans_interp(il_trans_dest_index,1) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%dg_arg8 
!JL sg_arg10 double precision
                  dla_trans_interp(il_trans_dest_index,2) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%sg_arg10%dg_file_scal 
                  dla_trans_interp(il_trans_dest_index,3) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%sg_arg10%dg_file_add 
                  dla_trans_interp(il_trans_dest_index,4) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%sg_arg10%dg_fill_val 


                  cla_trans_interp(il_trans_dest_index,1) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%cg_arg9
!JL sg_arg10 character
                  cla_trans_interp(il_trans_dest_index,2) = &
                     sga_smioc_transi(ib_ntt2)%sg_transi_in% &
                     sga_in_orig(ib_nin)%sg_interp%sg_arg10%cg_file_name

              END IF

              ! Conservation
              sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)%ig_conserv =  &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)% &
                 ig_conserv 

              ila_cpl_rst_file(il_cpl_rst_file_index,8) =                    &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)% &
                 ig_conserv 

              ! Combination
              IF (sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)% &
                 sg_combi%ig_location == PSMILe_source) &
                 sga_smioc_transi(ib_ntt)%sga_transi_out(ib_nout)%sg_combi = &
                 sga_smioc_transi(ib_ntt2)%sg_transi_in%sga_in_orig(ib_nin)% &
                 sg_combi               

          ENDIF

        ENDDO
      ENDDO

    ENDDO
  ENDDO

  ila_dim_size(1) = il_orig_index
  ila_dim_size(2) = il_dest_index
  ila_dim_size(3) = il_loc_index
  ila_dim_size(4) = il_trans_orig_index
  ila_dim_size(5) = il_trans_dest_index
  ila_dim_size(6) = il_cpl_rst_file_index
  ila_dim_size(7) = il_trans_interp_index
#ifdef VERBOSE
  PRINT *, '| | | '
  PRINT *, '| | |  Dimensions for post-treatment  ', ila_dim_size
  PRINT *, '| | |  Post-treatment  '
  call psmile_flushstd    
#endif
  DO ib_c = 1, ig_nb_tot_comps

    ila_tgt_proc(:) = -1    
    il_nb_comp_pes = 0

!   for all processes except driver processes
    DO ib = 0, ig_nb_tot_pes + (ig_driver_nb_pes-1)
      IF ((ib < PRISMdrv_root) .OR. ((PRISMdrv_root + ig_driver_nb_pes) <= ib)) THEN
        DO ib_ter = 1, Drv_Procs(ib+1)%comps_per_rank
          IF (Drv_Procs(ib+1)%global_comp_id(ib_ter) .eq. ib_c) THEN
            il_nb_comp_pes = il_nb_comp_pes + 1
            ila_tgt_proc(il_nb_comp_pes) = Drv_Procs(ib+1)%global_rank(ib_ter)
          END IF
        END DO
      END IF
    END DO

    DO ib = 1, il_nb_comp_pes

      CALL MPI_Send (ila_dim_size, 7, MPI_Integer, ila_tgt_proc(ib), 11, comm_drv_trans, id_err)

      IF (il_orig_index .gt. 0) THEN
          CALL MPI_Send (ila_orig_comp_id(1:il_orig_index,1:3), &
             il_orig_index*3, MPI_Integer, ila_tgt_proc(ib), 12, comm_drv_trans, id_err)
      END IF

      IF (il_dest_index .gt. 0) THEN
          CALL MPI_Send (ila_dest_comp_id(1:il_dest_index,1:3), &
             il_dest_index*3, MPI_Integer, ila_tgt_proc(ib), 13, comm_drv_trans, id_err)
      END IF

      IF (il_loc_index .gt. 0) THEN
          CALL MPI_Send (ila_combi_loc(1:il_loc_index,1:2), il_loc_index*2, &
             MPI_Integer, ila_tgt_proc(ib), 14, comm_drv_trans, id_err)
      END IF

      IF (il_trans_orig_index .gt. 0) THEN
          CALL MPI_Send (ila_trans_orig_id(1:il_trans_orig_index,1:3), &
             il_trans_orig_index*3, MPI_Integer, ila_tgt_proc(ib), 15, comm_drv_trans, id_err)
      END IF

      IF (il_trans_dest_index .gt. 0) THEN
          CALL MPI_Send (ila_trans_dest_id(1:il_trans_dest_index,1:3), &
             il_trans_dest_index*3, MPI_Integer, ila_tgt_proc(ib), 16, comm_drv_trans, id_err)
      END IF

      IF (il_cpl_rst_file_index .gt. 0) THEN
          CALL MPI_Send (ila_cpl_rst_file(1:il_cpl_rst_file_index,1:8), &
             il_cpl_rst_file_index*8, MPI_Integer, ila_tgt_proc(ib), 17, comm_drv_trans, id_err)
          CALL MPI_Send (dla_cpl_rst_file(1:il_cpl_rst_file_index,1:3), &
             il_cpl_rst_file_index*3, MPI_Double_Precision, ila_tgt_proc(ib), 18,      &
             comm_drv_trans, id_err)
          CALL MPI_Send (cla_cpl_rst_file(1:il_cpl_rst_file_index,1), &
             il_cpl_rst_file_index*max_name, MPI_Character, ila_tgt_proc(ib), 19, &
             comm_drv_trans, id_err)
      END IF

      IF (il_trans_interp_index .gt. 0) THEN
          CALL MPI_Send (ila_trans_interp(1:il_trans_interp_index,1:32),    &
             il_trans_interp_index*32, MPI_Integer, ila_tgt_proc(ib), 20, comm_drv_trans, &
             id_err)
          CALL MPI_Send (dla_trans_interp(1:il_trans_interp_index,1:4), &
             il_trans_interp_index*4, MPI_Double_Precision, ila_tgt_proc(ib), 21,     &
             comm_drv_trans, id_err)
          CALL MPI_Send (cla_trans_interp(1:il_trans_interp_index,1:2), &
             il_trans_interp_index*max_name*2, MPI_Character, ila_tgt_proc(ib), 22,   &
             comm_drv_trans, id_err)
      END IF

    END DO

  END DO

  IF (il_orig_index .gt. 0) THEN
      DEALLOCATE(ila_orig_comp_id, stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          id_err = 14
          
          call psmile_error_common ( id_err, 'ila_orig_comp_id', &
             ierrp, 1, __FILE__, __LINE__ )
          RETURN
      ENDIF
  END IF
  IF (il_dest_index .gt. 0) THEN
      DEALLOCATE(ila_dest_comp_id, stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          id_err = 14
          
          call psmile_error_common ( id_err, 'ila_dest_comp_id', &
             ierrp, 1, __FILE__, __LINE__ )
          RETURN
      ENDIF
  END IF
  IF (il_loc_index .gt. 0) THEN
      DEALLOCATE(ila_combi_loc, stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          id_err = 14
          
          call psmile_error_common ( id_err, 'ila_combi_loc', &
             ierrp, 1, __FILE__, __LINE__ )
          RETURN
      ENDIF
  END IF
  IF (il_trans_orig_index .gt. 0) THEN
      DEALLOCATE(ila_trans_orig_id, stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          id_err = 14
          
          call psmile_error_common ( id_err, 'ila_trans_orig_id', &
             ierrp, 1, __FILE__, __LINE__ )
          RETURN
      ENDIF
      DEALLOCATE(ila_combi_loc, stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          id_err = 14
          
          call psmile_error_common ( id_err, 'ila_combi_loc', &
             ierrp, 1, __FILE__, __LINE__ )
          RETURN
      ENDIF
  END IF
  IF (il_trans_dest_index .gt. 0) THEN
      DEALLOCATE(ila_trans_dest_id, stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          id_err = 14
          
          call psmile_error_common ( id_err, 'ila_trans_dest_id', &
             ierrp, 1, __FILE__, __LINE__ )
          RETURN
      ENDIF
  END IF
  IF (il_cpl_rst_file_index .gt. 0) THEN
      DEALLOCATE(ila_cpl_rst_file, dla_cpl_rst_file, cla_cpl_rst_file, stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          id_err = 14
          
          call psmile_error_common ( id_err, 'ila_cpl_rst_file', &
             ierrp, 1, __FILE__, __LINE__ )
          RETURN
      ENDIF
  END IF
  IF (il_trans_interp_index .gt. 0) THEN
      DEALLOCATE(ila_trans_interp, dla_trans_interp, cla_trans_interp, stat=id_err)
      IF (id_err > 0) THEN
          ierrp (1) = id_err
          id_err = 14
          
          call psmile_error_common ( id_err, 'ila_trans_interp', &
             ierrp, 1, __FILE__, __LINE__ )
          RETURN
      ENDIF
  END IF
!
#ifdef VERBOSE
  PRINT *, '| | | '
  PRINT *, '| | |  Got transient details  '
  call psmile_flushstd    
#endif
!
!-----------------------------------------------------------------------
!
! 7. get the persistents details
!
#ifdef VERBOSE
  PRINT *, '| | | '
  PRINT *, '| | | Get persistent details  '
  call psmile_flushstd    
#endif
! 7.1. Set the counter    
  il_npe = 0 
  
  DO ib_c = 1, ig_nb_tot_comps
  
    IF (iga_comp_nb_persis(ib_c) .gt. 0) THEN

! 7.2. allocate the local structure
        ALLOCATE (sla_driver_persis(iga_comp_nb_persis(ib_c)), stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            ierrp (2) = iga_comp_nb_persis(ib_c)
            id_err = 13
        
            call psmile_error_common ( id_err, 'sla_driver_persis', &
               ierrp, 2, __FILE__, __LINE__ )
            RETURN
        ENDIF
  
! 7.3. fill the local structure for a smioc
        CALL init_persis (iga_comp_nb_persis(ib_c), &
           sla_driver_persis,  &
           id_err )
        IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in init_persis'
   
#ifdef CIM
        iga_comp_nb_persis(ib_c) = 0
#else
        CALL get_persis_details (iga_comp_id_doc_XML(ib_c),   &
           iga_comp_nb_persis(ib_c), &
           sla_driver_persis,        &
           id_err )
        IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in get_persis_details'
#endif
  
! 3.5. send the structure to the component
        ALLOCATE(ila_smioc_send(4*iga_comp_nb_persis(ib_c)), stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            ierrp (2) = 4*iga_comp_nb_persis(ib_c)
            id_err = 13
        
            call psmile_error_common ( id_err, 'ila_smioc_send', &
               ierrp, 2, __FILE__, __LINE__ )
            RETURN
        ENDIF
        ALLOCATE(cla_smioc_send(5*iga_comp_nb_persis(ib_c)), stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            ierrp (2) = 5*iga_comp_nb_persis(ib_c)
            id_err = 13
        
            call psmile_error_common ( id_err, 'cla_smioc_send', &
               ierrp, 2, __FILE__, __LINE__ )
            RETURN
        ENDIF
        ALLOCATE(rla_smioc_send(3*iga_comp_nb_persis(ib_c)), stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            ierrp (2) = 3*iga_comp_nb_persis(ib_c)
            id_err = 13
        
            call psmile_error_common ( id_err, 'rla_smioc_send', &
               ierrp, 2, __FILE__, __LINE__ )
            RETURN
        ENDIF

        DO ib = 1, iga_comp_nb_persis(ib_c)
          
          ila_smioc_send(1 + (ib-1)*4) = sla_driver_persis(ib)%ig_comp_id
          ila_smioc_send(2 + (ib-1)*4) = sla_driver_persis(ib)%ig_persis_id
          ila_smioc_send(3 + (ib-1)*4) = sla_driver_persis(ib)%ig_persis_type
          ila_smioc_send(4 + (ib-1)*4) = sla_driver_persis(ib)%ig_datatype 

          cla_smioc_send(1 + (ib-1)*5) = sla_driver_persis(ib)%cg_local_name
          cla_smioc_send(2 + (ib-1)*5) = sla_driver_persis(ib)%cg_stand_name
          cla_smioc_send(3 + (ib-1)*5) = sla_driver_persis(ib)%cg_long_name
          cla_smioc_send(4 + (ib-1)*5) = sla_driver_persis(ib)%cg_comp_name
          cla_smioc_send(5 + (ib-1)*5) = sla_driver_persis(ib)%cg_units

          rla_smioc_send(1 + (ib-1)*3) = sla_driver_persis(ib)%rg_persis_min
          rla_smioc_send(2 + (ib-1)*3) = sla_driver_persis(ib)%rg_persis_max
          rla_smioc_send(3 + (ib-1)*3) = sla_driver_persis(ib)%rg_persis

        END DO


        ila_tgt_proc(:) = -1    
        il_nb_comp_pes = 0
!       for all processes except driver processes
        DO ib = 0, ig_nb_tot_pes + (ig_driver_nb_pes-1)
          IF ((ib < PRISMdrv_root) .OR. ((PRISMdrv_root + ig_driver_nb_pes) <= ib)) THEN
           DO ib_ter = 1, Drv_Procs(ib+1)%comps_per_rank
              IF (Drv_Procs(ib+1)%global_comp_id(ib_ter) .eq. ib_c) THEN
                 il_nb_comp_pes = il_nb_comp_pes + 1
                 ila_tgt_proc(il_nb_comp_pes) = Drv_Procs(ib+1)%global_rank(ib_ter)
              END IF
           END DO
          END IF
        END DO

        DO ib = 1, il_nb_comp_pes
          
          CALL MPI_Send (ila_smioc_send, 4*iga_comp_nb_persis(ib_c), &
             MPI_Integer, ila_tgt_proc(ib), 30, comm_drv_trans, id_err)

          CALL MPI_Send (cla_smioc_send, max_name*5*iga_comp_nb_persis(ib_c), &
             MPI_Character, ila_tgt_proc(ib), 31, comm_drv_trans, id_err)

          CALL MPI_Send (rla_smioc_send, 3*iga_comp_nb_persis(ib_c), &
             MPI_Real, ila_tgt_proc(ib), 32, comm_drv_trans, id_err)
#ifdef VERBOSE
          call prismdrv_get_comp_names(ib_c, cla_appli_name, cla_comp_name, id_err)
          PRINT *, '| | | The transfer of information for component ', &
             TRIM(cla_comp_name), ' to pes ',ila_tgt_proc(ib), ' ends.'
#endif
        END DO

        DEALLOCATE(ila_smioc_send, stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            id_err = 14
          
            call psmile_error_common ( id_err, 'ila_smioc_send', &
               ierrp, 1, __FILE__, __LINE__ )
            RETURN
        ENDIF
        DEALLOCATE(cla_smioc_send, stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            id_err = 14
          
            call psmile_error_common ( id_err, 'cla_smioc_send', &
               ierrp, 1, __FILE__, __LINE__ )
            RETURN
        ENDIF
        DEALLOCATE(rla_smioc_send, stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            id_err = 14
          
            call psmile_error_common ( id_err, 'rla_smioc_send', &
               ierrp, 1, __FILE__, __LINE__ )
            RETURN
        ENDIF

! 7.4. set the component id and the persistent id 
        sla_driver_persis(:)%ig_comp_id = ib_c
        DO ib_p = 1, iga_comp_nb_persis(ib_c)
          ib_a = il_npe+ib_p
          sla_driver_persis(ib_p)%ig_persis_id = ib_a 
        ENDDO
  
! 7.5. Set the global structure with the local structure
        sga_smioc_persis(il_npe+1:il_npe+iga_comp_nb_persis(ib_c)) = &
           sla_driver_persis(:)
  
        il_npe = il_npe + iga_comp_nb_persis(ib_c)
  
! 7.6 Deallocate the local structure
        DEALLOCATE(sla_driver_persis, stat=id_err)
        IF (id_err > 0) THEN
            ierrp (1) = id_err
            id_err = 14
          
            call psmile_error_common ( id_err, 'sla_driver_persis', &
               ierrp, 1, __FILE__, __LINE__ )
            RETURN
        ENDIF

    END IF

  END DO
#ifdef VERBOSE
  PRINT *, '| | | '
  PRINT *, '| | | The total number of persistents : ', il_npe
  call psmile_flushstd    
#endif
!
!-----------------------------------------------------------------------
!
! 8. Close all XML configuration files
!
#ifdef CIM
  ! If at least one component
  if (ig_nb_tot_comps .ge. 1) then
    ! Close CIM file
     ierrp (1)  = sasa_c_close  (iga_comp_id_doc_XML(1))
  endif
#else
  ! Close all SMIOC files
  DO ib_c = 1, ig_nb_tot_comps
     ierrp (1)  = sasa_c_close  (iga_comp_id_doc_XML(ib_c))
  END DO
#endif
!
!-----------------------------------------------------------------------
#ifdef DEBUG
!
! 9. Write the different structures
!
  OPEN (file='driver_smioc.debug.000', unit=28, form='formatted')
!
! 9.1. Write the grid structure
  IF (ig_nb_tot_grids .gt. 0) THEN
      CALL write_grids_details (ig_nb_tot_grids,  &
         sga_smioc_grids, 28, id_err )
      IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in write_grids_details'
  END IF
  
! 9.2. Write the transient structure
  IF (ig_nb_tot_transi .gt. 0) THEN
      CALL write_transi_details (ig_nb_tot_transi,  &
         sga_smioc_transi, 28, id_err )
      IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in write_transi_details'
  END IF

! 9.3. Write the persistent structure
  IF (ig_nb_tot_persis .gt. 0) THEN
      CALL write_persis_details (ig_nb_tot_persis,  &
         sga_smioc_persis, 28, id_err )
      IF (id_err .ne. 0) PRINT *, '| | |WARNING: Pb in write_persis_details'
  END IF
!
  CLOSE (unit=28)
!
#endif
!
!
#ifdef VERBOSE
  PRINT *, '| | | '
  PRINT *, '| | Quit PRISMDrv_init_smioc_struct'
  PRINT *, '| |'
  call psmile_flushstd
#endif
END SUBROUTINE PRISMDrv_init_smioc_struct