下面的程序只是一部分，不是完整的，在你原来的程序里修改补充下面部分。
integer i,n,d_before,d_now
integer d(n) ! d为日期，有n个数据
real tmin(n)
character*2 dnum
d_before=0
do i=1,n
d_now=d(i)/1000 ！求年份
if(d_now.ne.d_before) then
! 当d_now不同于d_before，即d(i)的年份与d(i-1)不同时
if(d_before.ne.0) close(11)
write(dnum,'(i2.2)’) d_now
open(11,file='tmin_'//dnum//'.dat')
！open要write该年份的数据的文件
d_before=d_now
end if
write(11,*) mod(d(i)/1000), tmin(i)
！输出该年份的tmin值，如果不用写日期的话，去除第一项（mod(d(i)/1000),）
end do
close(11)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024