数组越界了，想知道怎么修改

KYV

我想对pc时间序做每年的DJF合成，我的pc文件是8个模态，时间是40年*12月=480个，做合成的时候提醒我数组越界了，有没有大佬指导我修改一下？

以下是我的fortran程序：

program djf_pc_compst

implicit none

integer, parameter :: nt = 480, nm = 40, kvt=8  ！
integer :: i, k   !k是时间，i是模态
real, allocatable,dimension(:,:) :: F, pc_djf

open(11,file='D:\DATA\teleconnection\data\anomaly(tropical)\mveof\pc.dat',access='direct',recl=kvt)
do k=1, nt
   read(11,rec=k) (F(i,k),i=1,kvt)
enddo
close(11)

do i=1, kvt
    do k=1, nm-1
            pc_djf(i,k)=(F(i,12*(k-1)+12)+F(i,12*(k-1)+13)+F(i,12*(k-1)+14))/3
        enddo
enddo

open(13,file='D:\DATA\teleconnection\data\anomaly(tropical)\djf_pc_compst.dat',form='unformatted',access='direct',recl=kvt)
do i=1, kvt
   write(11,rec=i) (pc_djf(i,k),k=1,nm-1)
enddo
close(13)

end



报的错是这样的：

安达充

你的pc_djf数组没有allocate

KYV

安达充 发表于 2021-12-15 16:11
你的pc_djf数组没有allocate

谢谢你的回复！我修改了一下，但还是出错了，是哪里不对呢？

安达充

KYV 发表于 2021-12-15 23:08
谢谢你的回复！我修改了一下，但还是出错了，是哪里不对呢？

F 也没有。。。。

安达充

如果你不习惯用可分配数组，可以在定义的时候就写好数组大小，数组引用的时候也要注意不要超出数组下标

KYV

安达充 发表于 2021-12-16 10:36
如果你不习惯用可分配数组，可以在定义的时候就写好数组大小，数组引用的时候也要注意不要超出数组下标

嗯嗯，已经修改好了。在定义的时候就写了数组大小，谢谢你啦！