READ_xml.f

Go to the documentation of this file.

!                .      .    .     
      SUBROUTINE read_xml()
!

!
!     
!     INCLUDE ETA GRID DIMENSIONS.  SET/DERIVE PARAMETERS.
!
       use xml_perl_data,only: post_avblflds,paramset,read_postxconfig
       use grib2_module, only: num_pset
       use rqstfld_mod,only: num_post_afld,mxlvl,lvlsxml
       use ctlblk_mod, only: me
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       implicit none
!
!     DECLARE VARIABLES.
!     
!******************************************************************************
!     START READCNTRL_XML HERE.
!     
!     READ post available field table
      if (me==0) write(0,*)'in readxml,bf readxml,size(post_avblflds%param)=', &
                            size(post_avblflds%param)
      call read_postxconfig()
      num_post_afld=size(paramset(1)%param)
      num_pset=size(paramset)
      if (me==0) write(0,*)'in readxml, aft read flat file.xml,num_post_afld=', &
                            num_post_afld
      if (me==0) write(0,*)'in readxml, aft read flat file.xml,num_pset=',num_pset


! LinGan below line removed because now we only read one flat file
!
!      if(size(post_avblflds%param)==0) then
!        call read_xml_file_post_t( 'post_avblflds.xml')
!        num_post_afld=size(post_avblflds%param)
!        allocate(lvlsxml(MXLVL,num_post_afld))
!      write(0,*)'in readxml, aft read post_avblflds.xml,num_post_afld=',num_post_afld
!      endif
!
!     READ post cntrl file
!      write(0,*)'in readxml,bf readxml,size(paramset)=',size(paramset)
!      if(size(paramset)==0) then
!        call read_xml_file_post_t( 'postcntrl.xml')
!        num_pset=size(paramset)
!        write(0,*)'in readxml, aft read postcntrl.xml,num_pset=',num_pset
!      endif
!

      RETURN
      end subroutine read_xml