如何用unformatted格式生成格点背景场

欢乐树的朋友们

这是用binary格式生成格点背景场的fortran程序：
program gen_grid
    implicit none
    integer :: i,j
    integer,parameter :: nx=144
    integer,parameter :: ny=73
    real :: grid
    grid=1.0
    open(10,file='grid.grd',form='binary')
    do j=1,ny
        do i=1,nx
            write(10)grid
        end do
    end do
    close(10)
end program gen_grid

但是我现在用的fortran不支持binary格式，如果用unformatted格式能生成用于grads做图的背景场吗，具体程序怎么写呢？
试了一天了也没弄出来

yuchen

open(10,file='grid.grd',form='unformatted',access='direct',recl=nx*ny*4)

欢乐树的朋友们

yuchen 发表于 2018-7-8 11:02
open(10,file='grid.grd',form='unformatted',access='direct',recl=nx*ny*4)

可以了，太谢谢你了

欢乐树的朋友们

yuchen 发表于 2018-7-8 11:02
open(10,file='grid.grd',form='unformatted',access='direct',recl=nx*ny*4)

可以了，太谢谢你了

欢乐树的朋友们

yuchen 发表于 2018-7-8 11:02
open(10,file='grid.grd',form='unformatted',access='direct',recl=nx*ny*4)

还想请教一下，如果是地面台站的资料生成grd，格式应该是怎样的呢
open(11,file='air0703.grd',status='replace',form='binary')
        tim=0.0
        nlev = 1
        flag = 1
        do i = 1,num1
                write(11)stat(i),lat(i),lon(i),tim,nlev,flag,tmp(i)
        end do
        nlev = 0
        write(11)stat(num1),lat(num1),lon(num1),tim,nlev,flag
        close(11)

yuchen

不用谢，台站试试这样：open(11,file='air0703.grd',FORM='UNFORMATTED', access='sequential')