grads绘制市县地图问题

四叶草

breeze_li 发表于 2016-9-11 21:25
尴尬，忘记了，这样方便的话我加你，有什么问题比较方便。

1464281863，我的QQ，可以交流交流。

breeze_li

四叶草 发表于 2016-9-12 12:36
1464281863，我的QQ，可以交流交流。

这种情况可能是什么原因？

四叶草

breeze_li 发表于 2016-9-14 10:34
这种情况可能是什么原因？

边界数据没闭合

四叶草

breeze_li 发表于 2016-9-14 10:34
这种情况可能是什么原因？

边界数据没闭合

breeze_li

四叶草 发表于 2016-9-15 07:12
边界数据没闭合

这根那五对数据没关系吧，是meteoinfo生成的？那怎么办

清闲

maskout需制作maskout数据文件，使用略不便。
basemap已有其他人贡献的out.txt文件，使用更方便。

四叶草

breeze_li 发表于 2016-9-17 20:59
这根那五对数据没关系吧，是meteoinfo生成的？那怎么办

你看看你的draw后面的第一组数据对与倒数第六组数据对是否一样？

breeze_li

清闲 发表于 2016-9-17 21:24
maskout需制作maskout数据文件，使用略不便。
basemap已有其他人贡献的out.txt文件，使用更方便。

市县也有吗，在哪找？

breeze_li

四叶草 发表于 2016-9-18 05:30
你看看你的draw后面的第一组数据对与倒数第六组数据对是否一样？

嗯，是不一样的，我发现我的fortran批处理程序读写不完全，只能读写到910行，410行等等，如果是913,416之类的就会少一部分数据。fortran程序是在论坛上找的，修改了一下，有空的话帮我看看这个程序问题出在哪
fortran程序：
program listfile
character*100 fPath
character*200 path
character*7 outPut
real lon(10),lat(10)
fPath="*.wmp"
outPut="dir.txt"
call ListToFile(fPath,outPut)
open(1,file='dir.txt',status='old')
10 continue
read(1,*,end=20)path
  print*,path
  open(2,file=''//trim(Path)//'',status='old')
  open(3,file=''//trim(Path)//'.txt',status='replace')
  read(2,*)
  read(2,*)
  read(2,*)
  30 Read(2,*,end=200)lon,lat
  Write(3,*)lon,lat
  goto 30
  200 continue
  close(2)
  close(3)
  !print*,lon
  !print*,lat
!endif
goto 10
20 close(1)

end program listfile

subroutine ListToFile(fPath,outPut)
  character*(*),InTent(In):: fPath,outPut
  character*100 CMD
  CMD="dir /a-d/b/s "//trim(fPath)//" >"//trim(outPut)
  call SYSTEM(CMD)
endsubroutine

四叶草

breeze_li 发表于 2016-9-18 09:46
嗯，是不一样的，我发现我的fortran批处理程序读写不完全，只能读写到910行，410行等等，如果是913,416 ...

这个程序我没看出什么毛病，这个问题暂时不能帮你解决你自己先研究研究