Spessore equivalente (equivalent thickness)Lo spessore equivalente si ottiene considerando l'incremento di temperatura che si avrebbe se tutta l'acqua contenuta condensasse. Il vantaggio ottenuto consiste nel rendere molto pių netti i gradienti frontali. *nomefile eqth.gs
*20150110
'set display color white'
'c'
'map europe'
'rgbset2'
'run constants.gs'
'define tcos = cos(lat*d2r)'
'set t 5'
'define thick=hgtprs(lev=850)-hgtprs(lev=1000)'
'define tave1=grav*thick/(log(1000/850)*rdry)'
'define q1=75*(spfhprs(lev=1000)+spfhprs(lev=925))/2'
'define q2=75*(spfhprs(lev=925)+spfhprs(lev=850))/2'
'define qave=(q1+q2)/150'
'define tave=tave1+(2.5e+6/cp)*qave'
'define eqth=tave*log(1000/850)*rdry/grav'
'set gxout shaded'
'd eqth'
'set gxout contour'
'd eqth'
'draw title Equivalent thikness (1000-850 hPa)'
'printim eqth.gif x800 y600' | 
|
| 
