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
read_xml
subroutine read_xml()
Definition
READ_xml.f:14
xml_perl_data::post_avblflds
type(post_avblfld_t), save post_avblflds
Parameters that are used to read in Perl XML processed flat file and handle parameter marshalling for...
Definition
xml_perl_data.f:114
xml_perl_data::paramset
type(paramset_t), dimension(:), pointer paramset
Parameters that are used to read in Perl XML processed flat file and handle parameter marshalling for...
Definition
xml_perl_data.f:113
READ_xml.f
Generated by
1.9.8