00001 !------------------------------------------------------------------------ 00002 ! Copyright 2006-2010, CERFACS, Toulouse, France. 00003 ! All rights reserved. Use is subject to license terms. 00004 !------------------------------------------------------------------------ 00005 !BOP 00006 ! 00007 !====================================================================== 00008 ! 00009 SUBROUTINE get_smioc_transi_numbers ( id_XML_doc, & 00010 id_nb_transi, & 00011 id_error ) 00012 00013 ! !DESCRIPTION 00014 ! This routine gives the numbers of transients for one XML smioc 00015 ! 00016 !---------------------------------------------------------------------- 00017 ! 00018 USE PSMILe_smioc 00019 IMPLICIT NONE 00020 ! 0. Declaration 00021 ! 00022 ! 00023 !EOP 00024 !---------------------------------------------------------------------- 00025 ! $Id: psmile_smioc.F90 1793 2008-11-25 14:58:31Z valcke $ 00026 ! $Author: valcke $ 00027 !---------------------------------------------------------------------- 00028 ! 00029 ! handle of XML content of the smioc file 00030 INTEGER, INTENT(In) :: id_XML_doc 00031 00032 ! number of transi variables for the component 00033 INTEGER, INTENT(Out) :: id_nb_transi 00034 00035 ! returned error code 00036 INTEGER, INTENT(Out) :: id_error 00037 ! 00038 INTEGER :: sasa_c_get_number_2nd_level 00039 ! 00040 !---------------------------------------------------------------------- 00041 ! 00042 id_error = & 00043 sasa_c_get_number_2nd_level(id_XML_doc, & 00044 'component', 0, 'transient', id_nb_transi) 00045 print *, ' get_smioc_transi_numbers id_error nb_transi = ',id_error 00046 00047 END SUBROUTINE get_smioc_transi_numbers 00048 ! 00049 !=====================================================================
1.6.1