whua991219.
New member
When i run prep-chem-src i get one error report
At line 818 of file prep_chem_sources_utils.f90 (unit = 19, file = '1-T-2018-01-30-000000-g1.gra')
Fortran runtime error: Write exceeds length of DIRECT access record
I have no idea about this
This is line 818 of prep_chem_sources_utils.f90
803 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
looking for your help
At line 818 of file prep_chem_sources_utils.f90 (unit = 19, file = '1-T-2018-01-30-000000-g1.gra')
Fortran runtime error: Write exceeds length of DIRECT access record
I have no idea about this
This is line 818 of prep_chem_sources_utils.f90
803 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
looking for your help