我做的是Noah-MP模式，在编辑的时候netcdf报错

那一片云

subroutine get_var_sum(simple,obser)
   implicit none
   integer,parameter  ::n=2920,m=82
   integer            ::i
   real               ::sim(n),obs(m)
   real               ::simple,obser

write(*,*)'Enter subroutine get_var_sum '

   call get_sim

   open(991, file='../output/lai_sim.txt')
      do i=1,n
        read(991,*)sim(i)
      end do
  simple=sum(sim(1041:2073))
   close(991)
   open(992, file='../output/lai_obs.txt')
      do i=1,m
        read(992,*)obs(i)
      end do
  obser=sum(obs(40:73))
   close(992)

!  simple=sum(sim(1041:2073))
!  obser=sum(obs(40:73))

end subroutine get_var_sum
这是我的报错的程序，下面是报错的内容：
NetCDF: Index exceeds dimension bound                                          
STOP stopped