UPP (upp-srw-2.2.0)
Loading...
Searching...
No Matches
RQSTFLD.f
1 module rqstfld_mod
2!--------------------------------------------------------------------
3! revision history
4! 2011-02-06 Jun Wang add grib2 option
5! 2011-10-18 Sarah Lu add GOCART aerosol fields
6! 2011-12-18 Sarah Lu add GOCART aerosol optical properties, mass
7! fields, and production/removal fluxes
8! 2011-12-29 Sarah Lu add GOCART AOD at multiple channels
9! 2012-01-06 Sarah Lu add GOCART SS, OC, BC, SU aerosols
10! 2012-01-07 Sarah Lu add air density and dpres
11! 2012-01-27 Sarah Lu use index 601-700 for GOCART
12! 2012-01-30 Jun Wang add post available fields from xml file for grib2
13! 2012-05-07 Tricia Slovacek use index 800-899 for satellite
14! use index 900-949 for HWRF
15! 2014-12-09 William Lewis added MSG/SEVIRI imager,
16! GOES-13 and GOES-15 imagers,
17! and completed SSMI and SSMIS (F13-F20)
18! 2019-04-01 Sharon Nebuda added GOES-16 GOES-17 ABI IR Channels 7-16
19! 2019-04-22 Wen Meng increased model MXLVL to 500
20! 2019-05-08 Wen Meng added continuous accumulated precipitations(417, 418,
21! 419).
22! 2019-09-03 Jesse Meng added cape related variables for hrrr (950-957)
23! 2021-08-31 Lin Zhu added ssmis-f17 channels 15-18 grib2 output
24! 2021-11-03 Tracy Hertneky removed all grib1 settings
25!--------------------------------------------------------------------
26
27 implicit none
28!
29! increase MXFLD each time you add a new field
30 INTEGER, PARAMETER :: MXFLD=1200
31 INTEGER, PARAMETER :: MXLVL=500
32
33 CHARACTER*6 DATSET
34!
35 LOGICAL RITEHD
36!
37 integer :: NFLD,IGET(MXFLD), &
38 LVLS(MXLVL,MXFLD), &
39 IDENT(MXFLD),IAVBLFLD(MXFLD), &
40 ID(25)
41 integer :: num_post_afld
42 integer,allocatable :: LVLSXML(:,:)
43
44 end module rqstfld_mod