!************************************************************************************ !调用准备代码:省略变量声明 !读取海潮潮高球谐系数,负荷勒夫数 !给定时间IY,IM,ID,ih,imn,sec !读FES2004海潮模型文件oloadcsfl open(unit=8,file=oloadcsfl,status="old",iostat=status) if(status/=0)goto 902 read(8,'(a)') line read(8,'(a)') line !FES2004(11) read(8,'(a)') line !FES2004(11) i=0;fes=0.d0 do while(.not.eof(8)) read(8,*,end=903)st(1),fh,(st(j),j=2,3),tmp,tmp,tmp,tmp,(st(j),j=4,7) if(st(2)