source: CONFIG/publications/ICOLMDZORINCA_CO2_Transport_GMD_2023/XIOS/src/test/parse_xml.f90 @ 6607

Last change on this file since 6607 was 6607, checked in by acosce, 10 months ago

XIOS used for ICOLMDZORINCA_CO2_Transport_GMD_2023

File size: 320 bytes
Line 
1PROGRAM parse_xml
2  USE, INTRINSIC :: ISO_C_BINDING
3  IMPLICIT NONE
4
5  INTERFACE
6    SUBROUTINE xios_init() BIND(C, name='cxios_init')
7    END SUBROUTINE
8  END INTERFACE
9
10  CALL xios_init() ! This will parse the XML file and report any parsing error
11  WRITE (*,*) 'Parsing finished successfully.'
12
13END PROGRAM parse_xml
Note: See TracBrowser for help on using the repository browser.