- 积分
- 204
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2019-7-8
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2019-8-29 16:30:40
|
显示全部楼层
'reinit'
'open d:\python\fnl_20190511_00_00.ctl'
'set mpdset cnworld'
'set lon 60 140'
'set lat 10 60'
'set lev 700 100'
"define t=TMPprs"
"define u=UGRDprs"
"define v=VGRDprs"
"define pp=lev"
"define coriol=2*7.29e-5*sin(lat*3.1415/180)"
"define dudy=cdiff(u,y)/(111177*cdiff(lat,y))"
"define dvdx=cdiff(v,x)/(111177*cdiff(lon,x)*cos(lat*3.1415/180))"
"define dt=t(z-1)*pow(1000/PP(z-1),0.286)-t(z+1)*pow(1000/PP(z+1),0.286)"
"define dp=100*(PP(z-1)-PP(z+1))"
"define dtdp=dt/dp"
"define part1="isen(dvdx,t,PP,320)
"define part2="isen(dudy,t,PP,320)
"define part3="isen(dtdp,t,PP,320)
"define pv320=-9.8*(coriol+part1-part2)*part3"
"set z 1"
'set lon 60 140'
'set lat 10 60'
"d pv320*1000000"
'printim d:/python/PVU20190511_00_00.jpg x1024 y768 white'
function isen(field,tgrid,pgrid,tlev) |
|