get_transi_io_numbers.F90

Go to the documentation of this file.

!------------------------------------------------------------------------
! Copyright 2006-2010, CERFACS, Toulouse, France.
! All rights reserved. Use is subject to license terms.
!------------------------------------------------------------------------
!BOP
!
!======================================================================
!
  SUBROUTINE get_transi_io_numbers ( id_XML_doc,  &
                                     id_nb_transi,       &
                                     ida_nb_stand_name,  &
                                     ida_nb_transi_in,   &
                                     ida_nb_transi_out,  &
                                     id_comp,            &
                                     ld_first_details,   &
                                     id_error  )

! !DESCRIPTION
! This routine gives the number of input and output for each transi
! of one smioc
!
!----------------------------------------------------------------------
!
    USE PSMILe_smioc
    IMPLICIT NONE
!
!EOP
!----------------------------------------------------------------------
! $Id: psmile_smioc.F90 1793 2008-11-25 14:58:31Z valcke $
! $Author: valcke $
!----------------------------------------------------------------------
!
! 0. Declaration
!
! handle of XML content of the smioc file
    INTEGER, INTENT(In) :: id_XML_doc

! number of transi variables for the component
    INTEGER, INTENT(In) :: id_nb_transi  

! number of standard name per transi for the component
    INTEGER, DIMENSION(id_nb_transi), INTENT(Out) :: ida_nb_stand_name

! number of input transi per transi for the component
    INTEGER, DIMENSION(id_nb_transi), INTENT(Out) :: ida_nb_transi_in

! number of output transi per transi for the component
    INTEGER, DIMENSION(id_nb_transi), INTENT(Out) :: ida_nb_transi_out

! Component id
    INTEGER, INTENT(In) :: id_comp

! logical flag first pass / second pass
    LOGICAL, INTENT(In)  :: ld_first_details

! returned error code
   INTEGER, INTENT(Out) :: id_error 

! loop index
    INTEGER   :: ib,  ib_nt, ib_xml, ib_u
    INTEGER   :: il_xml_transi
!
    INTEGER :: sasa_c_get_number_3rd_level, sasa_c_get_number_4th_level
    INTEGER :: sasa_c_get_number_5th_level
!
!----------------------------------------------------------------------
!
!  At first pass (called from prismdrv_get_udef_transients) :
!  id_nb_transi = il_xml_transi = number of transients in XML SMIOC file
!  At second pass (called from prismdrv_init_smioc_struct) :
!  id_nb_transi = total number of transients including "udef" transients
    IF ( ld_first_details ) THEN
       il_xml_transi = id_nb_transi
    ELSE
       il_xml_transi = id_nb_transi - iga_comp_nb_udef(id_comp)
    ENDIF

! For all the transient_in of the component
    DO ib =1, il_xml_transi
         id_error = &
         sasa_c_get_number_3rd_level(id_XML_doc,                             &
         'component', 0, 'transient', ib, 'transient_standard_name',    &
         ida_nb_stand_name(ib))
         print *,' get_transi_io_numbers id_error stand_name ib = ',ib, id_error

      id_error = &
         sasa_c_get_number_5th_level(id_XML_doc,              &
         'component', 0, 'transient', ib, 'intent', 0,   &
         'input', 0, 'origin', ida_nb_transi_in(ib))
         print *,' get_transi_io_numbers id_error transi_in ib = ',ib, id_error

      id_error = &
         sasa_c_get_number_4th_level(id_XML_doc,              &
         'component', 0, 'transient', ib, 'intent', 0,   &
         'output', ida_nb_transi_out(ib))
         print *,' get_transi_io_numbers id_error transi_out ib = ',ib, id_error
    END DO

!  At second pass (called from prismdrv_init_smioc_struct) :
!  we add indexes for userdef transients
!  It is supposed that the number of standard names are the same
!  in the associated "udef" transient
!  These numbers are copied from the geographical transient
!  In associated "gridless" transients, Number of origins = 1
!  and number of outputs = 1

    IF ( .NOT. ld_first_details ) THEN
!  "Udef" transients    
       ib_nt = 0
       DO ib_u = il_xml_transi + 1, id_nb_transi
          ib_nt = ib_nt + 1
!  ib_xml is the transient index in component XML SMIOC file
          ib_xml = sga_comp_udef_idx(id_comp)%iga_xml_trindex(ib_nt)
!  Number of standard names is the same in all associated "gridless" transients
          ida_nb_stand_name(ib_u) = ida_nb_stand_name(ib_xml)        
!  Number of origins is always 1 or 0 in gridless transients
          IF ( ida_nb_transi_in(ib_xml) .NE. 0 ) THEN 
             ida_nb_transi_in(ib_u) = 1
          ELSE
             ida_nb_transi_in(ib_u) = 0
          ENDIF
!  Number of outputs is always 1 or 0 in gridless transients
          IF ( ida_nb_transi_out(ib_xml) .NE. 0 ) THEN
             ida_nb_transi_out(ib_u) = 1
          ELSE
             ida_nb_transi_out(ib_u) = 0
          ENDIF 
       ENDDO

    ENDIF

  END SUBROUTINE get_transi_io_numbers

!
!======================================================================