prismdrv_get_comp_names.F90

Go to the documentation of this file.

!------------------------------------------------------------------------
! Copyright 2006-2010, CERFACS, Toulouse, France.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: PRISMDrv_Get_comp_names
!
! !INTERFACE
subroutine prismdrv_get_comp_names(id_comp_id,       &
                                    cda_appli_name,   &
                                    cda_comp_name,    &
                                    id_err)

!
! !USES:
!
  USE PRISMDrv, dummy_interface => PRISMDrv_Get_comp_names

  IMPLICIT NONE

!
! !PARAMETERS:
!
  INTEGER, INTENT (In)                :: id_comp_id
!
! ! RETURN VALUE
!
  CHARACTER(LEN=max_name), INTENT (Out) :: cda_appli_name
  CHARACTER(LEN=max_name), INTENT (Out) :: cda_comp_name
  INTEGER, INTENT (Out)                 :: id_err   ! error value

! !DESCRIPTION
! Subroutine "PRISMDrv_Get_smioc_names" receive the comp_id and gives back
! the names of the appli and component.
!
! !REVISED HISTORY
!   Date      Programmer    Description
! ----------  ----------    -----------
! 19/10/2010  JM Epitalon    Creation
!
! EOP
!----------------------------------------------------------------------
! $Id: prismdrv_get_comp_names.F90 2399 2010-06-21 08:09:39Z coquart $
! $Author: coquart $
!----------------------------------------------------------------------
!
! 0. Local declarations
!
  CHARACTER(LEN=len_cvs_string), SAVE  :: mycvs = 
     '$Id: prismdrv_get_comp_names.F90 2399 2010-06-21 08:09:39Z coquart $'
!
  INTEGER                             :: ib, ib_ter
  LOGICAL                             :: ll_found
  INTEGER, PARAMETER                  :: nerrp=2
  INTEGER                             :: ierrp(nerrp)
!
! ---------------------------------------------------------------------
!
  id_err = 0
!
! 1. With the comp_id get the comp name and the application name
!
  ll_found = .false.

!  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) == id_comp_id) THEN

            cda_appli_name = Drv_Procs(ib+1)%appli_name
            cda_comp_name = Drv_Procs(ib+1)%comp_name(ib_ter)
            ll_found = .true.
            EXIT
         END IF
      ENDDO
      IF ( ll_found ) EXIT
    END IF
  END DO

  IF (.NOT. ll_found) THEN
      ierrp(1) = ig_nb_tot_pes+(ig_driver_nb_pes-1)
      ierrp(2) = ib
      call psmile_error_common ( id_err, 'PRISMDrv_Get_comp_names', &
         ierrp, 2, __FILE__, __LINE__ )
  END IF

!

end subroutine prismdrv_get_comp_names