prep-chem-src运行报错

2627962138

朋友们，运行prep-chem-src时遇到了这个问题

At line 818 of file prep_chem_sources_utils.f90 (unit = 19, file = 'A-T-2018-02-01-000000-g1.gra')
Fortran runtime error: Write exceeds length of DIRECT access record



prep-chem-sources-untils.f90 818行内容如下
subroutine write_bin(iunit,nrec,nx,ny,nvert,nxa,nxb,nya,nyb,rout)
804 implicit none
805 integer, intent(inout) :: nrec
806 integer, intent(in) :: iunit,nx,ny,nvert,nxa,nxb,nya,nyb
807 real, intent(in), dimension(nx,ny,nvert):: rout
808 integer i,j,k
809
810 do k=1,nvert
811   nrec=nrec+1
812
813   !PRINT*, '*****************************'
814   PRINT*, 'max:', maxval(rout(:,:,k))
815   PRINT*, 'min:', minval(rout(:,:,k), MASK=rout(:,:,k) .GT. 1.e-20)
816   PRINT*, '*****************************'
817
818   write (iunit,rec=nrec) ((rout(i,j,k),i=nxa,nxb),j=nya,nyb)
819 enddo
820 end subroutine write_bin


报错信息是说我 prep-chem-src.inp设置的不对吗    认真看了看.inp文件没发现什么问题

朋友们有遇见过这个问题吗 或者对此有什么看法吗    求帮助