分享一个将Micaps格式转化为GrADS格式的源代码给大家

蓝月亮

我也忘了从哪里淘来的了，我也还有不少的fortran源代码，呵呵，以后慢慢给大家发啊
给一点点预览：

1. 
   
2. 
   
3. !------------------------------------------------------------------------
   
4. !      本程序将Micaps格式站点数据转换为Grads格式数据
   
5. ! -----------------------------------------------------------------------
   
6.    program GKSTA
   
7.     parameter (inum=1000,kmax=9)     ! inum 站点数   kmax 层次数
   
8.        dimension nyear(kmax),nmon(kmax),nday(kmax),ntim(kmax)
   
9.        dimension lev(kmax),nsta(kmax)
   
10.        dimension slon(inum,kmax),slat(inum,kmax),h(inum,kmax)
    
11.        dimension t(inum,kmax), td(inum,kmax),orit(inum,kmax)
    
12.        dimension rr(inum,kmax), uu(inum,kmax),vv(inum,kmax)
    
13.        dimension state(inum,kmax)
    
14.        dimension pp(kmax)
    
15.        character*8 stid
    
16.   character*80 file1, file2,file3,file4,file5,file6,file7
    
17.   character*80 file8, file9,file00  !file10,file00
    
18.   character*8 yymmddhh
    
19.   character*2 mon(12),da(31)
    
20.   character*4 RIQI
    
21.   real YYYY
    
22.   integer  mon0,cc,ys,ll0,ll1
    
23.   character*2 tim0
    
24.   logical alive
    
25.   character*50 FilePath
    
26.   character*11 FilePath0
    
27. 
    
28.   character*4 cc0(9)
    

复制代码

Micaps格式站点数据转换为Grads格式数据.doc (42 KB, 下载次数: 413)

2011-6-25 21:10 上传

点击文件名下载附件

mofangbao

太好了，前段时间群里还有人要呢

157041245

太好了，前段时间群里还有人要呢

蓝月亮

157041245 发表于 2011-6-26 17:58

                               
登录/注册后可看大图

太好了，前段时间群里还有人要呢

干嘛学别人...

269984288

强悍啊~~~~~顶

喜上眉梢

好动西，寻求良久啊，赞一个， 谢谢分享！

/db←大哥

:lol前两天我还在群里问别人要呢

mofangbao

/db←大哥 发表于 2011-6-28 17:12

                               
登录/注册后可看大图

前两天我还在群里问别人要呢

原来是你...

新小子

好东西。。。。。。。顶

yjf2934

太好了，前段时间群里还有人要呢