Fortran Coder

查看: 10217|回复: 9
打印 上一主题 下一主题

[数学库] linux下使用netcdf代码的错误

[复制链接]

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

楼主
发表于 2017-4-16 21:06:59 | 显示全部楼层
1.可以
2.没有“按NC文件的翻译”这种说法
3.你遇到了什么错误?

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2017-4-17 08:21:07 | 显示全部楼层
第7行
integer,parameter::nCol
常数定义时必须赋值,比如
integer,parameter::nCol = 113
请根据自己的情况赋合理的值

第9行
nCol1 在主程序没有定义,没有赋值。可能应该是 nCol

第16行
real,dimension(792304)::lon_1,lat_1,
逗号后面没有内容,没有结束。
并且与第13行重复定义了 Lon_1 和 lat_1,删除此行

第17行
与第15行重复

第21行,22行
longtitude 拼写错误,应为 longitude

第25行
nCol1 没有定义,可能应该是 nCol

第32行
nCol和str位置颠倒了(改实参的顺序也可以)

第36行
integer,parameter::nCol=113     !Define a constant nCol equal to 113
nCol 与虚参重复。应改为 integer :: nCol

第65行
同32行

第69行
同上

第118行
write(*,*) X(899920),Y(899920),ALLOC_KEY(899920)
此处899920超出ALLOC_KEY定义的 796304

第146行
续行格式不对

第158行
longtitude 拼写错误

第191行
harvest 未定义,是否应该为 harvest_1 或 harvest_2

第210行
if(abs(lon_1(i)-lon_2(j))-mival(abs(lon_1(i)-lon_2(j))==0) then
此句括号不匹配,看不出来你的意图,也不知道应该怎么修改

第219行
同上

第 229行
没写 end do

第234行
同上

第238行
续行格式错误

第242行
没写 enddo

第 245 行
应该为 end subroutine linkall

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

板凳
发表于 2017-4-17 15:41:49 | 显示全部楼层
0. 出现 end-of-file during read 意思是,读取文件过程中,遇到了文件的尾部。(可能是文件不够长/行数太少,也可能是代码要求的行数太多)
1. 子程序不能单独运行。而且这里的错误并不是文件过长。(也不会有文件过长这个错误提示)
2. 可以直接 open,但前提是,之前的代码(不管是主程序还是子程序),已经 close 了这个文件。同一个文件,不能被程序打开多次(已经关闭的除外)。
   也可以直接 call sub2() 都是可以的。
  文件和子程序,并没有相互约束。只要符合文件的用法,符合子程序的用法。都是允许的。

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

地板
发表于 2017-4-17 16:59:50 | 显示全部楼层
它代码里有 nc 文件呀
/home/iga_qtong/fortran_xcao/gae_c/Wheat.nc

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

5#
发表于 2017-4-17 19:07:45 | 显示全部楼层
谢谢夸奖。
伸手党在这里也是不受欢迎的。至于速胜论,我想帮也帮不上。

这个楼主还是挺好学的,自己尝试去写了。我也是有强迫症,刚开始没想到错误这么多,就解释了几个。后来越看越多~~~
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-8 10:10

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表