查看wrf输出结果求助

schLltt

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!将arwpost输出结果（.dat文件）转化为txt文件的fortran程序！！！！！！！！！！！！！！
program main
implicit none
integer,parameter:: nx=250,ny=207,nz=19,nt=1
real,allocatable :: U(:,:)
integer :: i,j,t,jrec

allocate(U(nx,ny)）

jrec = 0
open(101,file='D:/d01.dat',form='unformatted',access='direct',recl=nx*ny)
open(102,file='d01.txt')

do t=1,nt
jrec=jrec+1
  read(101,rec=jrec)((U(i,j),i=1,nx),j=1,ny)  
          write(102,*)((u(i,j),i=1,nx),j=1,ny)
enddo
close(101)
close(102)
deallocate(U)
end

！！！！！！！！！！转化后地面水平风分量如图！！！！！！！！！！！！！！！！！
请问，数值明显不对吧，为什么会这样呢？多谢。

letsdo8

是用错了big_endian / little_endian的问题吧

schLltt

letsdo8 发表于 2015-5-4 15:41
是用错了big_endian / little_endian的问题吧

能具体说说是什么，怎么修改吗，我不太懂这个。。

evlom

open(101,file='D:/d01.dat',form='unformatted',access='direct',recl=nx*ny)

在上面语句末尾加上“convert=big_endian”看看