RQSTFLD.f

Go to the documentation of this file.

 
!--------------------------------------------------------------------
    module rqstfld_mod
 
      implicit none
!
!     increase MXFLD each time you add a new field
      INTEGER, PARAMETER :: mxfld=1200
      INTEGER, PARAMETER :: mxlvl=500
      
      CHARACTER*20 datset
!
      LOGICAL ritehd
!
      integer :: nfld &                   !< Number of requested output fields
                 ,iget(mxfld) &           !< The "get field" flag array indicating which fields to get
                 ,lvls(mxlvl,mxfld) &     !< 2D array of model and field levels
                 ,ident(mxfld) &          !< Array of UPP ID numbers corresponding to the GRIB2 fields produced by UPP
                 ,iavblfld(mxfld) &       !< _____?
                 ,id(25)
      integer :: num_post_afld
      integer,allocatable :: lvlsxml(:,:)
 
   end module rqstfld_mod