- 积分
- 115
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-3-26
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
'reinit'
'open D:\grads\T639\1.ctl'
'set parea 2 6.5 0.75 4.25'
'set csmooth on'
start_time=2013070720
rct.1='000'
rct.2='003'
rct.3='006'
rct.4='009'
rct.5='012'
rct.6='015'
rct.7='018'
rct.8='021'
rct.9='024'
rct.10='027'
rct.11='030'
rct.12='033'
rct.13='036'
rct.14='039'
rct.15='042'
rct.16='045'
rct.17='048'
rct.18='051'
rct.19='054'
rct.20='057'
rct.21='060'
rct.22='063'
rct.23='066'
rct.24='069'
rct.25='072'
rct.26='075'
rct.27='078'
rct.28='081'
rct.29='084'
rct.30='087'
rct.31='090'
rct.32='093'
rct.33='096'
rct.34='099'
rct.35='102'
rct.36='105'
rct.37='108'
rct.38='111'
rct.39='114'
rct.40='117'
rct.41='120'
rtt.1=1
rtt.2=2
rtt.3=3
rtt.4=4
rtt.5=5
rtt.6=6
rtt.7=7
rtt.8=8
rtt.9=9
rtt.10=10
rtt.11=11
rtt.12=12
rtt.13=13
rtt.14=14
rtt.15=15
rtt.16=16
rtt.17=17
rtt.18=18
rtt.19=19
rtt.20=20
rtt.21=21
rtt.22=22
rtt.23=23
rtt.24=24
rtt.25=25
rtt.26=26
rtt.27=27
rtt.28=28
rtt.29=29
rtt.30=30
rtt.31=31
rtt.32=32
rtt.33=33
rtt.34=34
rtt.35=35
rtt.36=36
rtt.37=37
rtt.38=38
rtt.39=39
rtt.40=40
rtt.41=41
it=1
while(it<=41)
'set t 'rtt.it
'set lat 26.125 36.25'
'set lon 97 110.5'
'set lev 700'
'set xlopts 1 4 0.12'
'set ylopts 1 4 0.12'
'SET XLevs 97 100 103 106 109 '
'SET YLEVS 27 29 31 33 35 37'
'set grads off'
'set grid off'
'set mpdset cnworld'
'set map 15 1 1'
'draw map'
'set gxout contour'
'set csmooth on'
'set cthick 8'
'set cint 10'
'set clab on'
'set ccolor 1'
'set clevs -40 -120 -240 -360 10 120 320 620 '
'set clab forced'
'define prs=700'
'define hlx
'd hlx*100000000000'
'set gxout barb'
'set lev 700'
'set cthick 8'
'set digsiz 0.08'
'set ccolor 1'
'd 2.5*skip(UGRDprs,6,6);2.5*VGRDprs'
'q time'
rst=substr(result,8,12)
'set strsiz 0.16 0.16'
'draw string 1.0 6.7 'start_time'_'rct.it''
'printim d:\grads\micaps\T639_'start_time'\rhlxgif\700\'start_time'_'rct.it'.gif white'
'clear'
it=it+1
endwhile
'reinit'
|
|