fortran编程时出现变量溢出怎么办

469482462

请问大家fortran编程时出现这个错怎么办，我设置的变量为  parameter(nl=30,nx=144,ny=73,nz=8,nt=365,nnt=291)
是不是数据太大了，fortran运行不了？求高手指点！

--------------------Configuration: hecheng850uv - Win32 Debug--------------------
Compiling Fortran...
D:\tmax\huanliu_daily\sqtl\hecheng850uv.for
D:\tmax\huanliu_daily\sqtl\hecheng850uv.for(4) : Error: A common block or variable may not exceed 2147483647 bytes
real q(nx,ny,nz,nnt,nl),cha(nx,ny,nz,nnt)
-------------^
Error executing df.exe.

hecheng850uv.obj - 1 error(s), 0 warning(s)

hhhgggqqq

数值开的太大，变小的。

469482462

hhhgggqqq 发表于 2013-10-24 11:35

                               
登录/注册后可看大图

数值开的太大，变小的。

怎么变小呢，就想对这个序列求多年平均啦

lqouc

别用那么大的数组，算个平均根本不用数组的。

469482462

lqouc 发表于 2013-10-24 12:23

                               
登录/注册后可看大图

别用那么大的数组，算个平均根本不用数组的。

求指点， 这是我的程序，怎么才能做到不用数组呢
    parameter(nl=30,nx=144,ny=73,nz=8,nt=365,nnt=291)
        real a(nx,ny,nz,nnt),q13(nx,ny,nz,nnt)
        real q(nx,ny,nz,nnt,nl),cha(nx,ny,nz,nnt)
        character*9 filename(nl)

        open(31,file='D:\tmax\huanliu_daily\sqtl\sj\u-2013.grd',
     &form='binary')
        !!!!!!2013年资料到第291天
        do t=1,nnt
             do k=1,nz
        do j=1,ny
        do i=1,nx
        read(31) q13(i,j,k,t)
        enddo;enddo;enddo;enddo
        close(31)

        open(11,file='D:\tmax\huanliu_daily\name.txt')
        do i=1,nl
        read(11,'(a9)')filename(i)
        enddo
        close(11)
      
        do nk=1,nl
        open(21,file='D:\tmax\huanliu_daily\sqtl\sj\u-
     &'//trim(filename(k))//'.grd',form='binary')
        do t=1,nnt
             do k=1,nz
        do j=1,ny
        do i=1,nx
        read(21) q(i,j,k,t,nk)
        enddo;enddo;enddo;enddo
        close(21)
        enddo

      do t=1,nnt
             do k=1,nz
        do j=1,ny
        do i=1,nx
        a(i,j,k,t)=0
        do nk=1,nl
        a(i,j,k,t)=a(i,j,k,t)+q(i,j,k,t,nk)
        enddo
        a(i,j,k,t)=a(i,j,k,t)/real(nl)
        enddo;enddo;enddo;enddo  

469482462

lqouc 发表于 2013-10-24 12:23

                               
登录/注册后可看大图

别用那么大的数组，算个平均根本不用数组的。

求指点， 这是我的程序，怎么才能做到不用数组呢
    parameter(nl=30,nx=144,ny=73,nz=8,nt=365,nnt=291)
        real a(nx,ny,nz,nnt),q13(nx,ny,nz,nnt)
        real q(nx,ny,nz,nnt,nl),cha(nx,ny,nz,nnt)
        character*9 filename(nl)

        open(31,file='D:\tmax\huanliu_daily\sqtl\sj\u-2013.grd',
     &form='binary')
        !!!!!!2013年资料到第291天
        do t=1,nnt
             do k=1,nz
        do j=1,ny
        do i=1,nx
        read(31) q13(i,j,k,t)
        enddo;enddo;enddo;enddo
        close(31)

        open(11,file='D:\tmax\huanliu_daily\name.txt')
        do i=1,nl
        read(11,'(a9)')filename(i)
        enddo
        close(11)
      
        do nk=1,nl
        open(21,file='D:\tmax\huanliu_daily\sqtl\sj\u-
     &'//trim(filename(k))//'.grd',form='binary')
        do t=1,nnt
             do k=1,nz
        do j=1,ny
        do i=1,nx
        read(21) q(i,j,k,t,nk)
        enddo;enddo;enddo;enddo
        close(21)
        enddo

      do t=1,nnt
             do k=1,nz
        do j=1,ny
        do i=1,nx
        a(i,j,k,t)=0
        do nk=1,nl
        a(i,j,k,t)=a(i,j,k,t)+q(i,j,k,t,nk)
        enddo
        a(i,j,k,t)=a(i,j,k,t)/real(nl)
        enddo;enddo;enddo;enddo  

lqouc

不要都把数据读出来再用循环进行求和平均，循环读取的时候完全可以直接进行累加，读完了除以记录数就好了。
你这么算效率很低。

river

什么资料居然用五维的数组啊，一般的数据不需要用这么大的数组