*pressione al livello del mare + massimo del getto
'set display color white'
'c'
index=1
'rgbset2'
'set map 1 1 8'
'map europe'
'set lev 300'
while(index<18)
'set t 'index
'c'
'query time'
curtime=subwrd(result,3)
ora_v=substr(curtime,1,2)
giorno_v=substr(curtime,4,2)
mese_v=substr(curtime,6,3)
anno_v=substr(curtime,9,4)
gg_set=subwrd(result,6)
'define u=ugrdprs*1.9438'
'define v=vgrdprs*1.9438'
'set grads off'
'set cint 10'
'set cmin 100'
'set csmooth on'
'set gxout shaded'
'd mag(u,v)'
'cbarn'
'set ccolor 2'
'set gxout stream'
'd u;v'
'set gxout contour'
*'set cint 60'
*'set ccolor 4'
*'d hgtprs'
'set cthick 6'
'set ccolor 4'
'set cint 4'
'set csmooth on'
'd prmslmsl/100'
'draw title Pressione al ldm e jet streaks a 300 hPa\Init: 'gg_set' 'giorno_v''mese_v''anno_v' at
'ora_v'Z '
'draw string 1.2 0.3 Dati GFS High Resolution - Elaborazione: V.Villasmunta'
'printim w300_'index'.gif x1100 y850'
index=index+1
endwhile
|  |  |  |  |  |  |  |  |  |
|
