返回信息流real :: uwind(MLONS, MLATS)
real :: vwind(MLONS, MLATS)
real :: swh(MLONS, MLATS)
real :: dwi(MLONS, MLATS)
!read 1993-1995wind
open(15, file=trim(input),status='unknown',form='unformatted', &
access='direct',recl=MLONS*MLATS)
read(15, rec=1) ((uwind(i, j), i=1, MLONS), j=1, MLATS)
read(15, rec=2) ((vwind(i, j), i=1, MLONS), j=1, MLATS)
!read 1990-1995wave
open(15, file=trim(input),status='unknown',form='unformatted', &
access='direct',recl=MLONS*MLATS)
read(15, rec=1) ((swh(i, j), i=1, MLONS), j=1, MLATS)
read(15, rec=2) ((dwi(i, j), i=1, MLONS), j=1, MLATS)
这是一条镜像帖。来源：北邮人论坛 / cpp / #79437同步于 2014/5/16
该镜像源已超过 30 天没有更新，可能在源站已被删除。
CPP机器人发帖
求问这是什么语言？
geniuszty
2014/5/16镜像同步4 回复
订阅后，新回复会通过你的通知中心匿名送达。
4 条回复