怎么用grads转dat格式为txt格式？

YINGYAO

  现有dat格式的资料，想转为txt格式的  有哪位大神知道如何用grads转dat格式为txt格式？还是用Fortran比较方便？求知道~急急急

言深深

我一般都是用fortran转换的，grads不会。
贴一段fortran程序供参考
open(1,file='kaka.dat',access='direct',form='binary',recl=n*m*o*4)
read(1,rec=1) (((x(i,j,k),j=1,n),i=1,m),k=1,o)
close(1)     

open(2,file='*******.txt')
do i=1,m
print*,i
do j=1,n
write(2,"(<o>f10.2)")(x(i,j,k),k=1,o)
enddo
enddo
close(2)

YINGYAO

言深深 发表于 2014-8-25 11:25
我一般都是用fortran转换的，grads不会。
贴一段fortran程序供参考
open(1,file='kaka.dat',access='dire ...

您好~这是我写的程序，但是运行的时候老是出问题，您能帮忙瞧瞧不?
parameter(m=73,n=144,o=793)
dimension  x(m,n,o)
hx=180./(m-1)
hy=360./n
       
open(1,file='papa.dat',access='direct',form='binary',recl=n*m*o*4)
read(1,rec=1) (((x(i,j,k),j=1,n),i=1,m),k=1,o)
close(1)

open(2,file='lev500.txt')
do i=1,m
print*,i
do j=1,n
write(2,"(2f10.2,2x,<o>f10.2)")(i-1)*hx-90,(j-1)*hy,(x(i,j,k),k=1,o)
enddo
enddo
close(2)

YINGYAO

言深深 发表于 2014-8-25 11:25
我一般都是用fortran转换的，grads不会。
贴一段fortran程序供参考
open(1,file='kaka.dat',access='dire ...

f:/11

bjj948

看到这些没定义整、实型变量的程序，有点别扭。

YINGYAO

bjj948 发表于 2014-8-25 11:51
看到这些没定义整、实型变量的程序，有点别扭。

我是零基础的在学习，本身是地理专业的，好难过，一点都不懂，时间又非常紧张，马上要课题结题了。希望您能帮帮忙

言深深

YINGYAO 发表于 2014-8-25 11:33
您好~这是我写的程序，但是运行的时候老是出问题，您能帮忙瞧瞧不?
parameter(m=73,n=144,o=793)
dimen ...

zzzzzzzzz
你确定这是你写的？
这难道不是我写的nc2txt包里面的fortran程序部分？？？这个压缩包里面包括一个gs文件，一个f文件，还有一个pdf说明文件。【这个程序是用来转换nc文件到txt文件的，步骤是nc2dat，dat2txt】

ps：你在使用的时候哪里出错了，什么提示？

言深深

YINGYAO 发表于 2014-8-25 11:33
您好~这是我写的程序，但是运行的时候老是出问题，您能帮忙瞧瞧不?
parameter(m=73,n=144,o=793)
dimen ...

zzzzzzzzz
你确定这是你写的？
这难道不是我写的nc2txt包里面的fortran程序部分？？？这个压缩包里面包括一个gs文件，一个f文件，还有一个pdf说明文件。【这个程序是用来转换nc文件到txt文件的，步骤是nc2dat，dat2txt】

ps：你在使用的时候哪里出错了，什么提示？

言深深

YINGYAO 发表于 2014-8-25 11:33
您好~这是我写的程序，但是运行的时候老是出问题，您能帮忙瞧瞧不?
parameter(m=73,n=144,o=793)
dimen ...

zzzzzzzzz
你确定这是你写的？
这难道不是我写的nc2txt包里面的fortran程序部分？？？这个压缩包里面包括一个gs文件，一个f文件，还有一个pdf说明文件。【这个程序是用来转换nc文件到txt文件的，步骤是nc2dat，dat2txt】

ps：你在使用的时候哪里出错了，什么提示？

YINGYAO

言深深 发表于 2014-8-25 13:04
zzzzzzzzz
你确定这是你写的？
这难道不是我写的nc2txt包里面的fortran程序部分？？？这个压缩包里面包 ...

是参照你那个写的，但是还是运行不来。本来想发截图上来的，但是貌似发布出去啊~