La pių classica delle carte: isobare (pressione al livello del mare) ed isoterme a 850 hPa*nomefile: fs.gs
*pressione al ldm e temperature a 850 hPa
'set display color white'
'c'
index=1
imax=17
'rgbset2'
'map europe'
'set map 1 1 4'
'set lev 850'
while(index<19)
'c'
'set grads off'
'set t 'index
'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)
say 't='index' ('ora_v') (ne restano 'imax')'
'draw title Pressione al ldm e isoterme 850 hPa\Valid: 'gg_set' 'giorno_v''mese_v''anno_v' at 'ora_v'Z '
'draw string 1.5 0.3 Dati GFS High Resolution - Elaborazione: V.Villasmunta'
'set cint 4'
'set csmooth on'
'set gxout shaded'
'd tmpprs-273.16'
'cbarn'
'set gxout contour'
'set ccolor 2'
'set cint 4'
'd tmpprs-273.16'
'set ccolor 4'
'set cint 4'
'set gxout contour'
'd prmslmsl/100'
'printim as_'index'.gif x800 y600'
index=index+1
imax=imax-1
endwhile
|  |
|
