GRIB conversion
Daniel Fritz
prodicalboxer at YAHOO.COM
Tue Oct 16 12:53:41 EDT 2007
Hello All,
I have coverted my grib file to ctl file, however there is one problem, the index file is not generating......here is what I type and what was responded:
grib2ctl.pl Y48659* > Y48659*.ctl : (everything was fine until I type the next line)
gribmap -i Y48659*.ctl -0
Error in the grid specification for GRIB grid type 29/30
Grid scaling must indicate 2 2.5 x 2.5 grid
Grid size must be 144 x 73
Grid must go from 0 to 357.5 and -90 to 90
could someone help me with this if I can get the index file to generate Grads will do the rest......
thanks
DANNY
Jennifer Adams <jma at COLA.IGES.ORG> wrote:
I use this script instead of 'draw title'.
* title.gs
*
* This is an alternative to the 'draw title' command in GrADS.
* Font characteristics are controlled by five script variables:
* height, width, color, thickness, and font number.
* The sole argument is a string of any length which may
* contain backslashes ("\") to indicate carriage returns.
* Written by Jennifer M. Adams, January 2007
*
function title (arg)
* Set the text characteristics
height=0.20
width=0.18
color=1
thickness=1
fnum=0
* Check for backslashes
nbreaks=0
len=math_strlen(arg)
i=1
while (i<=len)
char=substr(arg,i,1)
if (char = '\')
nbreaks=nbreaks+1
break.nbreaks = i
endif
i=i+1
endwhile
* Figure out where the title will go
'q gxinfo'
xlims=sublin(result,3)
ylims=sublin(result,4)
ytop=subwrd(ylims,6)
xleft=subwrd(xlims,4)
xright=subwrd(xlims,6)
xmid=xleft+(xright-xleft)/2
* Set up the string characteristics
'set string 'color' bc 'thickness
'set strsiz 'width' 'height
* Draw the title
if (nbreaks)
arg.1 = substr(arg,1,break.1-1)
if (nbreaks=1)
arg.2 = substr(arg,break.1+1,len-break.1);* two lines
nargs=2
else
i=2
while (i<=nbreaks)
s=i-1
start = break.s
start = start+1
e=i
end = break.e
length = end-start
arg.i = substr(arg,start,length)
i=i+1
endwhile
start = break.nbreaks
start = start+1
length = len-start+1
nargs=nbreaks+1
arg.nargs = substr(arg,start,length)
endif
i=1
while (i<=nargs)
'draw string 'xmid' 'ytop+(height)+((nargs-i)*(1.5*height))'
`'fnum''arg.i
i=i+1
endwhile
else
'draw string 'xmid' 'ytop+height' `'fnum''arg
endif
---------------------------------
Moody friends. Drama queens. Your life? Nope! - their life, your story.
Play Sims Stories at Yahoo! Games.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20071016/ac695db7/attachment.html
More information about the gradsusr
mailing list