用fortran将TXT转grd

枕石听泉

因为论文需要，要把tio系数作为一个时间序列和空间场求相关，我是用grads的corr函数直接求相关，但是画出来的图很奇怪，相关特别小还不到0.1，怀疑是转格式的时候数据弄错了，想问一下将txt文件转换成grd格式的时间序列这样是否正确呢？

fortran程序：
program main
parameter (nx=3,nt=408)
dimension tio(nx,nt)
open(100,file='H:\fortran\tio.txt')
open(200,file='H:\fortran\tio.grd',form='binary')
read(100,*) ((tio(i,j),i=3,nx),j=1,nt)
write(200) ((tio(i,j),i=1,nx),j=1,nt)
end

txt里的数据是这个样子的：
1979   1   -0.04
1979   2   -0.08
1979   3   -0.15
1979   4   -0.24
1979   5   -0.34
1979   6   -0.11
1979   7   -0.24
1979   8   -0.35
1979   9   -0.34
1979  10   -0.20
1979  11   -0.16
1979  12   -0.08
1980   1   -0.14
1980   2   -0.20
……

ctl文件：
DSET D:\BaiduYunDownload\lw\tio.grd
undef -9.96921E+36
TITLE tio
XDEF 1  LINEAR 0 1
YDEF 1  LINEAR 0 1
ZDEF 1  LINEAR 0 1
TDEF 408 LINEAR 00Z01JAN1979 1mo
VARS 1
tio 1 999 u dataset
ENDVARS