get_smioc_grids_transi_nb.F90

Go to the documentation of this file.
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_grids_transi_nb ( id_XML_doc,       &
00010                                  id_nb_grids,              &
00011                                  id_nb_transi,             &
00012                                  id_error )
00013 
00014 ! !DESCRIPTION
00015 ! This routine gives the numbers of grids and transients for one XML smioc
00016 ! Used if "first pass in XML",  called from PRISMDrv_get_udef_transients
00017 !----------------------------------------------------------------------
00018 !
00019     USE PSMILe_smioc
00020     IMPLICIT NONE
00021 ! 0. Declaration
00022 !
00023 !
00024 !EOP
00025 !----------------------------------------------------------------------
00026 ! $Id: psmile_smioc.F90 1793 2008-11-25 14:58:31Z valcke $
00027 ! $Author: valcke $
00028 !----------------------------------------------------------------------
00029 !
00030 ! handle of XML content of the smioc file
00031     INTEGER, INTENT(In) :: id_XML_doc
00032 
00033 ! number of grids variables for the component
00034     INTEGER, INTENT(Out) :: id_nb_grids  
00035 
00036 ! number of transi variables for the component
00037     INTEGER, INTENT(Out) :: id_nb_transi  
00038 
00039 ! returned error code
00040     INTEGER, INTENT(Out) :: id_error 
00041 !
00042     INTEGER :: sasa_c_get_number_2nd_level, sasa_c_get_number_3rd_level
00043     INTEGER :: sasa_c_get_number_1st_level, il_nbpc
00044 !
00045 !----------------------------------------------------------------------
00046 !
00047     il_nbpc = 0
00048     id_error = &
00049        sasa_c_get_number_1st_level(id_XML_doc,    &
00050        'prismcomponent', il_nbpc)
00051     IF (il_nbpc == 1) THEN
00052         PRINT *, '******************************************************'
00053         PRINT *, 'Since SVN revision 2633, "prismcomponent" must be '
00054         PRINT *, 'replaced by "component" in all SMIOC XML file'
00055         PRINT *, '******************************************************'
00056         CALL PSMILe_Flushstd
00057         CALL MPI_Abort(MPI_COMM_WORLD, 1, id_error)
00058     ENDIF
00059 
00060     id_error = &
00061        sasa_c_get_number_2nd_level(id_XML_doc,    &
00062        'component', 0, 'grid', id_nb_grids)
00063     print *, ' get_smioc_grids_transi_nb id_error nb_grids = ', id_error
00064 
00065     id_error = &
00066        sasa_c_get_number_2nd_level(id_XML_doc,    &
00067        'component', 0, 'transient', id_nb_transi)
00068     print *, ' get_smioc_grids_transi_nb id_error nb_transi = ', id_error
00069 
00070   END SUBROUTINE get_smioc_grids_transi_nb
00071 !
00072 !=====================================================================