98 lines
4 KiB
Fortran
98 lines
4 KiB
Fortran
block data bdxmrg
|
|
c
|
|
c initialize attributes used when creating GRIB files from xmrg file
|
|
c
|
|
include 'xmrg_pm'
|
|
character*62 xla(16),xlb(14)
|
|
C
|
|
C ================================= RCS keyword statements ==========
|
|
CHARACTER*68 RCSKW1,RCSKW2
|
|
COMMON / RCSBDXMRG / RCSKW1,RCSKW2
|
|
DATA RCSKW1,RCSKW2 / '
|
|
.$Source: /fs/hseb/ob82/ohd/pproc/src/gribit/RCS/bdxmrg.f,v $
|
|
. $', '
|
|
.$Id: bdxmrg.f,v 1.1 2006/10/19 16:06:04 dsa Exp $
|
|
. $' /
|
|
C ===================================================================
|
|
C
|
|
equivalence (xline(1),xla(1)),(xline(17),xlb(1))
|
|
|
|
c -1:9:-1:xmrg xmrg to GRIB library updated 11/07/2000
|
|
c
|
|
c Modified by David T. Miller, RSIS, Sept 2007
|
|
c added EMPE processes and lined up the field names
|
|
c to the columns below
|
|
c
|
|
c fields are:
|
|
c xmrg_process
|
|
c wmoid
|
|
c ngrid
|
|
c nturef
|
|
c itrang
|
|
c ibinf
|
|
c GRIB_parm
|
|
c modlid
|
|
c itunit
|
|
c ntufc
|
|
c iwidth
|
|
c idec
|
|
c ipkflg
|
|
c
|
|
c
|
|
c xmproc wmoid modlid itunit ntufc ibinf
|
|
c Grib_parm ngrid nturef iwidth ipkflg
|
|
c itrang idec
|
|
data numx / 30 /
|
|
data xla/
|
|
+'QPE01 QPE01 ZETA98 152 240 1 0 1 4 4 3 0 0 ',
|
|
+'QPE06 QPE06 ZETA98 154 240 1 0 6 4 4 3 0 0 ',
|
|
+'QPE24 QPE24 ZETA98 155 240 1 0 24 4 4 3 0 0 ',
|
|
+'P1A01 APCP ZETA98 156 240 1 0 1 4 4 3 0 0 ',
|
|
+'P1M01 APCP ZETA98 157 240 1 0 1 4 4 3 0 0 ',
|
|
+'P2A01 APCP ZETA98 158 240 1 0 1 4 4 3 0 0 ',
|
|
+'P2M01 APCP ZETA98 159 240 1 0 1 4 4 3 0 0 ',
|
|
+'MPA01 APCP ZETA98 160 240 1 0 1 4 4 3 0 0 ',
|
|
+'MPM01 APCP ZETA98 161 240 1 0 1 4 4 3 0 0 ',
|
|
+'PA* APCP ZETA98 170 240 1 -1 -1 4 4 3 0 0 ',
|
|
+'XN* APCP ZETA98 171 240 1 -1 -1 4 4 3 0 0 ',
|
|
+'MM* APCP ZETA98 172 240 1 -1 -1 4 4 3 0 0 ',
|
|
+'SATA* APCP ZETA98 190 240 1 -1 -1 4 4 3 0 0 ',
|
|
+'SATM* APCP ZEGA98 191 240 1 -1 -1 4 4 3 0 0 ',
|
|
+'QPA* APCP YEIG98 180 218 1 -1 -1 4 4 3 0 0 ',
|
|
+'QPM* APCP YEIG98 180 218 1 -1 -1 4 4 3 0 0 '/
|
|
c
|
|
data xlb/
|
|
+'FFG* FFG* ZEGZ98 151 240 1 0 24 2 4 0 0 0 ',
|
|
+'FFR* FFR* ZEGZ98 151 240 1 0 24 2 4 0 0 0 ',
|
|
+'gridff* FFG* ZEGZ98 151 240 1 0 24 2 4 0 0 0 ',
|
|
+'gridro* FFR* ZEGZ98 151 240 1 0 24 2 4 0 0 0 ',
|
|
+'stage2 APCP ZETA98 152 240 1 0 1 4 4 3 0 0 ',
|
|
+'autoS3 APCP ZETA98 154 240 1 0 1 4 4 3 0 0 ',
|
|
+'manualS3 APCP ZETA98 155 240 1 0 1 4 4 3 0 0 ',
|
|
+'P1 APCP ZETA98 156 240 1 0 1 4 4 3 0 0 ',
|
|
+'rfcwide APCP ZETA98 160 240 1 0 1 4 4 3 0 0 ',
|
|
+'DHR* PR ZETA98 165 240 0 0 0 0 4 3 0 0 ',
|
|
+'BDHR* PR ZETA98 166 240 0 0 0 0 4 3 0 0 ',
|
|
+'DSP* STPA ZETA98 165 240 0 0 0 0 4 3 0 0 ',
|
|
+'BDSP* STPA ZETA98 166 240 0 0 0 0 4 3 0 0 ',
|
|
+ 1*
|
|
+'NONE '/
|
|
|
|
c
|
|
c -1:-1:-1:qpfwmo
|
|
data xqpfwmo /
|
|
+ '001:YEIG98 ',
|
|
+ '002:YEIM98 ',
|
|
+ '003:YEIN98 ',
|
|
+ '004:YEIO98 ',
|
|
+ '005:YEIP98 ',
|
|
+ '006:YEIQ98 ',
|
|
+ '007:YEIR98 ',
|
|
+ '008:YEIS98 ',
|
|
+ '009:YEIS88 ',
|
|
+ '010:YEIT98 ',
|
|
+ '011:YEIT88 ',
|
|
+ '012:YEIU98 ' /
|
|
c
|
|
end
|
|
|