- 积分
- 259
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-6-9
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2014-2-12 12:11:31
|
显示全部楼层
1 123.17 45.86 0
2 122.84 45.64 0
3 122.82 45.34 0
4 123.07 44.79 0
5 124.27 45.5 0
6 124.02 45 0
7 123.97 44.26 0
8 124.84 45.19 0
9 124.78 45.04 0
10 126 44.97 1.8
11 126.54 44.84 4.6
12 125.67 44.54 0.6
13 125.17 44.42 0
14 125.8 44.17 3.1
15 125.22 43.9 2.9
16 125.66 43.5 10.9
17 123.54 43.5 0
18 124.8 43.52 1
19 124.3 43.36 0
20 124.34 43.19 1.5
21 125.29 43.36 1.8
22 125.09 42.92 10.1
23 125.46 42.69 8.8
24 126.94 44.42 14.4
25 126.44 43.96 18.8
26 126.12 43.7 19.5
27 127.34 43.7 6.3
28 126.02 43.3 7.3
29 126.06 42.96 8.3
30 126.76 42.99 11.8
31 126.07 42.69 13.5
32 125.64 42.54 12.2
33 125.74 42.26 23
34 125.9 41.79 21.2
35 125.76 41.67 26.8
36 126.16 41.1 22.5
37 126.44 41.94 16.9
38 126.82 42.36 17.8
39 127.57 42.1 26
40 126.92 41.8 15.2
41 128.18 41.56 9.3
42 128.2 43.37 9.2
43 128.92 43.12 38.3
44 129.77 43.34 17.1
45 129.54 42.89 26.9
46 129.84 42.96 30.9
47 129.4 42.77 30.8
48 128.26 42.54 8.7
49 129 42.54 23.5
50 130.29 42.9 24.1
51 128.05 42.01 0
52 126.62 43.42 22.1
53 124.23 43.67 0
54 130.25 43.7 20.4
55 126.58 42.1 14.3
转化程序
program sta2grd
implicit none
!这里是程序的变量声明
character*8 stid
real lon,lat,rain,tim
integer nlev,flag
!变量声明结束
!程序开始
tim=0.0
nlev=1
flag=1
open(1,file='E:\gr\sy\zff\rainmm.txt',status='old')
open(2,file='sta.dat',status='replace',form='binary')
10 read(1,*,end=55)stid,lon,lat,rain
write(2)stid,lat,lon,tim,nlev,flag,rain
goto 10
55 continue
close(1)
nlev=0
write(2)stid,lat,lon,tim,nlev,flag
close(2)
!程序结束
end
gs文件'reinit'
'open e:\gr\sy\zff\rain.ctl'
'set lon 123 127'
'set lat 42 48'
'set grads off'
'set grid off'
'set mpdset sy'
*'set dignum 0.01'
'd rain'
'printim e:\gr\rainmap2.png white'
|
|