实习一(6)

END

SUBROUTINE OUTVT(KVT,N,M,MNH,S,F,EGVT,ECOF) C THIS SUBROUTINE PRINTS STANDARD EIGENVECTORS C AND ITS TIME-COEFFICENT SERIES

DIMENSION F(N,M),S(MNH,MNH),EGVT(N,KVT),ECOF(M,KVT) WRITE(16,560)

560 FORMAT(30X,'STANDARD EIGENVECTORS',/) WRITE(16,570) (IS,IS=1,KVT) 570 FORMAT(3X,80I7) DO 550 I=1,N

IF(M.GE.N) THEN

WRITE(16,580) I,(S(I,JS),JS=1,KVT) 580 FORMAT(1X,I3,80F7.3,/) DO 11 JS=1,KVT EGVT(I,JS)=S(I,JS) 11 CONTINUE ELSE

WRITE(16,590) I,(F(I,JS),JS=1,KVT) 590 FORMAT(1X,I3,80F7.3) DO 12 JS=1,KVT EGVT(I,JS)=F(I,JS) 12 CONTINUE ENDIF 550 CONTINUE WRITE(16,720) 720 FORMAT(//) WRITE(16,610)

610 FORMAT(30X,'TIME-COEFFICENT SERIES OF S. E.'/) WRITE(16,620) (IS,IS=1,KVT) 620 FORMAT(3X,80I7) DO 600 J=1,M IF(M.GE.N) THEN

WRITE(16,630) J,(F(IS,J),IS=1,KVT) 630 FORMAT(1X,I3,80F7.1) DO 13 IS=1,KVT ECOF(J,IS)=F(IS,J) 13 CONTINUE ELSE

WRITE(16,640) J,(S(J,IS),IS=1,KVT) 640 FORMAT(1X,I3,80F7.1) DO 14 IS=1,KVT ECOF(J,IS)=S(J,IS)

14 CONTINUE ENDIF 600 CONTINUE RETURN END

程序运行：

1949、1950、1951、1953、1955、1956、1960-1963、1968、1971、1972、1974、1976、1979、1981、1985、1989这些年份，赤道太平洋中部至东部的海温都是较正常水平偏低的，而在1952、1954、1958、1964、1966、1969、1973、1977、1978、1980、1982-1983、1987、1991这些年份，赤道太平洋中部至东部的海温是偏高的，尤其是1982-1983年，据记载，这段时间出现了厄尔尼诺现象。

由图可以得知，1948-1954、1955-1958、1965、1969、1972、1974-1977、1979、1983-1985、1987、1989这些年份，赤道太平洋地区的海温是偏低的，而其余年份尤其是1954、1959、1964、1967、1968、1973、1978、1980、1982、1986、1988、1991这些年份，赤道太平洋地区的海温是偏高的。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库实习一(6)在线全文阅读。