*对于文件名有规律可循且文件格式整齐统一的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
*虽然我好久没用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