|
第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 |
|