UPP (develop)
Loading...
Searching...
No Matches
READ_xml.f
Go to the documentation of this file.
1
12
13 SUBROUTINE read_xml()
14
15 use xml_perl_data,only: post_avblflds,paramset,read_postxconfig
16 use grib2_module, only: num_pset
17 use rqstfld_mod,only: num_post_afld,mxlvl,lvlsxml
18 use ctlblk_mod, only: me
19!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
20 implicit none
21!
22! DECLARE VARIABLES.
23!
24!******************************************************************************
25! START READCNTRL_XML HERE.
26!
28
29 call read_postxconfig()
30 num_post_afld=size(paramset(1)%param)
31 num_pset=size(paramset)
32
33! LinGan below line removed because now we only read one flat file
34!
35! if(size(post_avblflds%param)==0) then
36! call read_xml_file_post_t( 'post_avblflds.xml')
37! num_post_afld=size(post_avblflds%param)
38! allocate(lvlsxml(MXLVL,num_post_afld))
39! write(*,*)'in readxml, aft read post_avblflds.xml,num_post_afld=',num_post_afld
40! endif
41!
42! READ post cntrl file
43! write(*,*)'in readxml,bf readxml,size(paramset)=',size(paramset)
44! if(size(paramset)==0) then
45! call read_xml_file_post_t( 'postcntrl.xml')
46! num_pset=size(paramset)
47! write(*,*)'in readxml, aft read postcntrl.xml,num_pset=',num_pset
48! endif
49!
50
51 RETURN
52 end subroutine read_xml
53
subroutine read_xml()
Definition READ_xml.f:14
type(post_avblfld_t), save post_avblflds
Parameters that are used to read in Perl XML processed flat file and handle parameter marshalling for...
type(paramset_t), dimension(:), pointer paramset
Parameters that are used to read in Perl XML processed flat file and handle parameter marshalling for...