75 lines
2.2 KiB
Fortran
75 lines
2.2 KiB
Fortran
c =====================================================================
|
|
c pgm: xmparm (iupr,ibug,line,num,istat)
|
|
c
|
|
c in: iupr .... print output unit number
|
|
c in: ibug .... debug indicator
|
|
c in: line .... input array
|
|
c in: num .... sequence number of parameter
|
|
c out: istat .... status
|
|
c =====================================================================
|
|
c
|
|
subroutine xmparm (iupr,ibug,line,num,istat)
|
|
c
|
|
c.......................................................................
|
|
c
|
|
c Routine to parse parameters defined for xmrg files.
|
|
c
|
|
c.......................................................................
|
|
c Initially written by
|
|
c Tim Sweeney, HL Apr 2000
|
|
c.......................................................................
|
|
c
|
|
character*(*) line
|
|
c
|
|
dimension ipm(10)
|
|
c
|
|
include 'xmrg_tbl'
|
|
C
|
|
C ================================= RCS keyword statements ==========
|
|
CHARACTER*68 RCSKW1,RCSKW2
|
|
DATA RCSKW1,RCSKW2 / '
|
|
.$Source: /fs/hseb/ob72/wfo_rfc/precip_proc/source/gribit/src/RCS/xmparm.f,v $
|
|
. $', '
|
|
.$Id: xmparm.f,v 1.1 2006/05/03 13:44:00 gsood Exp $
|
|
. $' /
|
|
C ===================================================================
|
|
C
|
|
c
|
|
c xmrg parameter
|
|
iptr = 1
|
|
nwid = 8
|
|
call uffch (line,iptr,nwid,xmproc(num),nxt,istat)
|
|
if (xmproc(num)(1:4).eq.'NONE') go to 20
|
|
c
|
|
c grib parameter
|
|
iptr = nxt
|
|
nwid = 5
|
|
call uffch (line,iptr,nwid,gribpm(num),nxt,istat)
|
|
c
|
|
c WMO identfier
|
|
iptr = nxt
|
|
nwid = 6
|
|
call uffch (line,iptr,nwid,xwmo(num),nxt,istat)
|
|
c
|
|
c additional GRIB parameters
|
|
nwid = 4
|
|
do 10 i=1,10
|
|
iptr = nxt
|
|
call uffir (line,iptr,nwid,ipm(i),r,nxt,istat)
|
|
10 continue
|
|
c
|
|
xmodlid(num) = ipm(1)
|
|
xngrid(num) = ipm(2)
|
|
xtunit(num) = ipm(3)
|
|
xnturef(num) = ipm(4)
|
|
xntufc(num) = ipm(5)
|
|
xtrang(num) = ipm(6)
|
|
xwidth(num) = ipm(7)
|
|
xbinf(num) = ipm(8)
|
|
xdec(num) = ipm(9)
|
|
xpkflg(num) = ipm(10)
|
|
c
|
|
20 return
|
|
c
|
|
end
|
|
|