*對于文件名有規律可循且文件格式整齊統一的grd來說，一個一個復制粘貼太喪盡天良地浪費時間了！
*雖然我好久沒用Fortran，可能編程的時間比粘貼的時間長。。。。學習嘛~熟悉了就好了
*....別問我為什么沒用matlab，我剛剛意識到自己傻逼了
*原帖地址http://bbs.06climate.com/forum.php?mod=viewthread&tid=7267
!try to write *.ctl documents automatically
program main
implicit none
integer mon
character(len=100)::istr,filename

do mon=1,12
??? write(istr,'(i2)')mon
??? filename=' dset E:\F\essay\data\data\NCEP\div\shum\'//trim(istr)//'_shum.grd'
??? open(37,file='E:\F\essay\data\data\NCEP\div\shum\'//trim(istr)//'shum.ctl',form='formatted')
?? !? write(37,'(a)',advance="no")'dset E:\F\essay\data\data\NCEP\div\shum\'

? write(37,'(a)')filename
！modify follows when U using. Make it fitting your environment.
? write(37,*)'undef -9.99e+8'
? write(37,*)'xdef? 28 linear? 70 2.5'
? write(37,*)'ydef? 17 linear? 15 2.5'
? write(37,*)'zdef? 8 levels 1000? 925 850 700 600 500 400 300'
? write(37,*)'tdef? 54 linear DEC1960 1yr'
? write(37,*)'vars 1'
? write(37,*)'shum? 8? 99? water vapor'
? write(37,*)'endvars'
close(37)
enddo
end

總結

以上是生活随笔為你收集整理的Fortran批量输出ctl文件格式的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。