请问谁有micaps第四类转Grads的源代码

LEO

本人还是初学者  对编程不是很懂  把别人的源代码拿来用  出来的图不对
请大家帮帮忙哈  赶着交论文

mofangbao

不懂可以学啦，大家都是慢慢学的啦，学的过程中有啥问题可以提出来交流，你可以把别人的源码贴上来看看，别人的源码一般都是要修改才能用的吧

LEO

mofangbao 发表于 2011-8-1 15:56

                               
登录/注册后可看大图

不懂可以学啦，大家都是慢慢学的啦，学的过程中有啥问题可以提出来交流，你可以把别人的源码贴上来看看，别 ...

program bintd
       integer nflag,nlev,i,j
        real   qq(33)
        open(30,file='G:\lunwen\high500.000')
        open(40,file='G:\lunwen\tqq.dat',form='binary')
open(50,file='G:\lunwen\high500.dat')
        do i=1,18
  read(30,*)(qq(j),j=1,33)
          write(50,100)  (qq(j),j=1,33)
        end do   
        close(30)
        tim=0.0
        nflag=1
        nlev=1
          do i=1,18
          write(40)  (qq(j),j=1,33)
        end do
    100 format(1x,33f8.2)
    close(40)
        close(50)
end
请指点下  哪里出了问题  谢谢！

mofangbao

请参考这个帖子：
http://bbs.06climate.com/forum.php?mod=viewthread&tid=1598

LEO

mofangbao 发表于 2011-8-9 07:52

                               
登录/注册后可看大图

请参考这个帖子：
http://bbs.06climate.com/forum.php?mod=viewthread&tid=1598

谢谢 ！

慕容玄悟

试试看，在学习中

船头尺

好好学习，天天向上。