温度.涡度平流计算程序，fortran REAL,PARAMETER:: Omega=7.292e-5,R=6371e+3,PI=3.1415926,Delta=1.00 INTEGER,PARAMETER :: nx=111,ny=61,nz=7,nt=4 INTEGER WtTopLevel(NX,NY,NT) REAl lat(ny),lon(nx),sigmadeltD CHARACTER timefile(4)*8 ,levelfile(5)*1,P(NZ)*2 real,alloc