使用fortran批量将NC文件转为TXT文件

laoping

之前下载了nc格式的数据，不过使用fortran读取NC文件比较麻烦，就先把NC文件批量转为TXT文件再进行读取。主要是利用了nctcdf库的ncdump命令。由于不会写脚本，就用fortran语言写的。 program main
  implicit none
  integer,parameter::num_file = 95
  integer::i
  character*39 indfile(num_file)
!-------------------------------------载入文件名-----------------------

  open(20,file='CMORPHname.txt')!读取数据的文件名，取31个数据
        do i=1,num_file
         read(20,100) indfile(i)
        enddo
        100 FORMAT(A39)     !可以读取包括空格的字符串
  close(20)

  do i=1,num_file
    write(*,*) i
    call system("ncdump "//indfile(i)//" -v cmorph > "//indfile(i)(1:7)//indfile(i)(27:36)//".txt")   
  enddo
end

其中CMORPHname.txt储存的是NC文件的文件名，这样做是为了能够批量读取文件。

pefuen

请问楼主会转grib格式吗？grib转Excel或者TXT

laoping

pefuen 发表于 2020-4-28 17:09
请问楼主会转grib格式吗？grib转Excel或者TXT

抱歉，我用的grid格式都是直接用ncl读取的，没试过，不过你可以参考一下这个https://www.sogou.com/link?url=hedJjaC291OB0PrGj_c3jGjUmrAzPwCu1wDSmGXca6FomuBEhdSpHkUUZED5fr2OMuX-oMPaTlqk06yH63zPXgV5yLS5g4Db-7S-QshbD9A.

pefuen

laoping 发表于 2020-5-7 10:29
抱歉，我用的grid格式都是直接用ncl读取的，没试过，不过你可以参考一下这个https://www.sogou.com/link? ...

好的！感谢！