求助，关于大气季节内振荡滤波问题

静夜安澜

老师给了一个程序，其中一段是这样的（这个好像表示东传的ISO，注释掉的部分表示西传的，但我想把这两个合成一个整体的强度）：
      do 127 i=2,6
!      do 127 i=144,140,-1
      do 127 k=1,nt      
      v2(i,k)=v1(i,k)     
127    continue      
   
      do 128 i=144,140,-1
!      do 128 i=2,6
      do 128 k=1,nt
      v2(i,k)=v1(i,k)
128    continue
     
      call fourt(v2,nn,2,+1,1,work)
            
      do 26 i=1,nx
      do 26 k=1,nt
      r2(i,j,k)=real(v2(i,k))      
26    continue

请教各位大神该怎么改呀？万分感激~

__明月__

你好~你问你在做季节内振荡的东西嘛，可以请教些问题嘛