fortran 将一个二进制文件分解多个二进制文件

nickbsb

program main
implicit none
real uwnd(144,29,17,3630)
integer i,j,nz,nday
open(50,file='E:\uwndfield\uwnd.grd',form='binary')
read(50) ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=1,3630)

open(11,file='e:\uwndfield\readuwnd\uwnd1.grd',form='binary')
write(11)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=1,121)

open(12,file='e:\uwndfield\readuwnd\uwnd2.grd',form='binary')
write(12)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=122,242)
open(13,file='e:\uwndfield\readuwnd\uwnd3.grd',form='binary')
write(13)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=243,363)
open(14,file='e:\uwndfield\readuwnd\uwnd4.grd',form='binary')
write(14)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=364,484)
open(15,file='e:\uwndfield\readuwnd\uwnd5.grd',form='binary')
write(15)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=485,605)
open(16,file='e:\uwndfield\readuwnd\uwnd6.grd',form='binary')
write(16)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=606,726)
open(17,file='e:\uwndfield\readuwnd\uwnd7.grd',form='binary')
write(17)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=727,847)
open(18,file='e:\uwndfield\readuwnd\uwnd8.grd',form='binary')
write(18)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=848,968)
open(19,file='e:\uwndfield\readuwnd\uwnd9.grd',form='binary')
write(19)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=969,1089)
open(20,file='e:\uwndfield\readuwnd\uwnd10.grd',form='binary')
write(20)  ((((uwnd(i,j,nz,nday),i=1,144),j=1,29),nz=1,17),nday=1090,1210）




以此类推 一直到nday=3510,3630
我这样把一个grd文件分解为多个grd 文件，并写入相应文件中  这样写格式正确吗

言深深

这样写未免有点儿累了····可以创建一个字符数组充当文件名，这样可以自动生成文件名，然后逐一写进去。

nickbsb

言深深 发表于 2012-6-21 10:04

                               
登录/注册后可看大图

这样写未免有点儿累了····可以创建一个字符数组充当文件名，这样可以自动生成文件名，然后逐一写进去。 ...

版主 我这个是笨方法， 您认为我这按时间分成这些 个grd文件  可以吗

言深深

nickbsb 发表于 2012-6-21 10:09

                               
登录/注册后可看大图

版主 我这个是笨方法， 您认为我这按时间分成这些 个grd文件  可以吗

可以的

topmad

巧用循环，几行就做出来了，这样不仅费时，费力，还容易出错

nickbsb

言深深 发表于 2012-6-21 10:44

                               
登录/注册后可看大图

可以的

谢谢斑竹        

kongfeng0824

不知道楼主的问题解决了吗？我也在做类似的，可以分享你下你的解决办法吗？