数组问题

liu0323

程序部分（头尾省略）
nyr=-1
ii=0
annavg=999.9

do n = 0,1,1
if (n.eq.0) then
kk=2
kkk=9
else
kk=1
kkk=2
end if
do k = kk,kkk,1
do j = 0,9,1
do i = 0,9,1
   annsum=0.
   nyr=nyr+1
do m = 1,12,1

   Tsave = 1.2
   Tsave!0 = "time"
   if (m.lt.10)
   in = addfile(pathdir1+slice+".cam2.h0."+n+k+j+i+"-0"+m+".nc","r")
   else
   in = addfile(pathdir1+slice+".cam2.h0."+n+k+j+i+"-"+m+".nc","r")
    end if
   T_temp = in->TS
   T_temp=T_temp-273.15
   gw    =in->gw
   glavg1=wgt_areaave(T_temp,gw,1.0,0)
   annsum=annsum+glavg1

end do

line 48 annavg(ii) = annsum/12.
ii=ii+1
end do
end do
end do
end do

报错：Copyright (C) 1995-2011 - All Rights Reserved
University Corporation for Atmospheric Research
NCAR Command Language Version 6.0.0
The use of this software is governed by a License Agreement.
See http://www.ncl.ucar.edu/ for more details.
fatal:Undefined identifier: (annavg) is undefined, can't continue
fatal:Execute: Error occurred at or near line 48 in file TS.ncl
我的数组有什么问题，各位大神求助

longlivehj

annavg=999.9
annavg不是数组！

liu0323

longlivehj 发表于 2015-4-21 17:06
annavg=999.9
annavg不是数组！

但是不是要给annavg赋一个值吗，如果没有这一句就会报错说annavg没有定义。我想把求出来的annsum/ 12不断的赋值给annavg要怎么实现？

innocent

你看一下怎么定义数组吧，在do循环里用new定义数组annavg就可以实现。

月是故乡明

liu0323 发表于 2015-4-21 19:48
但是不是要给annavg赋一个值吗，如果没有这一句就会报错说annavg没有定义。我想把求出来的annsum/ 12不断 ...

赋值也应该赋数组形式啊…………

longlivehj

liu0323 发表于 2015-4-21 19:48
但是不是要给annavg赋一个值吗，如果没有这一句就会报错说annavg没有定义。我想把求出来的annsum/ 12不断 ...

数组元素个数没法事先确定，是吗？

liu0323

longlivehj 发表于 2015-4-22 08:26
数组元素个数没法事先确定，是吗？

数组个数已知

longlivehj

liu0323 发表于 2015-4-22 09:33
数组个数已知

个数已知那就用new定义一个吧！

liu0323

longlivehj 发表于 2015-4-22 09:34
个数已知那就用new定义一个吧！

已解决，感谢！