|
发表于 2012-12-3 13:27:30
|
显示全部楼层
楼主的gs要这样贴
'reinit'
'sdfopen c:\2012\air.2012.nc'
'sdfopen c:\2012\rhum.2012.nc'
'set lev 1000 100'
if(air>263.0);
'define a1=0.622*6.11*exp(17.26*(air-273.16)/(air-35.86))'
'define b1=lev-0.278*exp(17.26*(air-273.16)/(air-35.86))'
'define qs1=a1/b1'
endif
if(air<=263.0);
'define a1=0.622*6.11*EXP(21.87*(air-273.16)/(air-7.66))'
'define b1=lev-0.278*EXP(21.87*(air-273.16)/(air-7.66))'
'define qs1=a1/b1'
endif
'define q1=qs1*rhum.2'
'define e1=lev*q1/100./(0.62197+q1/100.0)'
'define tk1=55.0+2840.0/(3.5*log(air)-log(e1)-4.805)'
'define pot1=air*pow((1000/lev),(0.2854*(1.0-0.28*q1/100.0)))'
'define ept1=pot1*exp(((3376./tk1)-2.54)*q1/100.0*(1.0+0.81*q1/100.0))'
'set lon 116'
'set lat 32 42'
'set t 773'
'set cint 3'
'd ept1'
'printim c:\shi.gif gif white'
; |
|