相应的程序段是:
if (t.lt.2000 .and. mod(t,20).eq.0) then
write(888,'(A3, 3X, F15.7, 3X, F20.10, 3X, F15.1, 3X, F15.13, 3X, F15.13, 3X, F15.13)')&
& 't2',t2,sum,num,defra,pftin,pfaln
end if
if (t.lt.200000 .and. mod(t,4000).eq.0) then
write(888,'(A3, 3X, F15.7, 3X, F20.10, 3X, F15.1, 3X, F15.13, 3X, F15.13, 3X, F15.13)')&
& 't2',t2,sum,num,defra,pftin,pfaln
end if
if (t.lt.2000000 .and. mod(t,200000).eq.0) then
write(888,'(A3, 3X, F15.7, 3X, F20.10, 3X, F15.1, 3X, F15.13, 3X, F15.13, 3X, F15.13)')&
& 't2',t2,sum,num,defra,pftin,pfaln
end if
if (t.lt.20000000 .and. mod(t,2000000.eq.0) then
write(888,'(A3, 3X, F15.7, 3X, F20.10, 3X, F15.1, 3X, F15.13, 3X, F15.13, 3X, F15.13)')&
& 't2',t2,sum,num,defra,pftin,pfaln
end if |