温度.涡度平流计算程序，fortranREAL,PARAMETER::Omega=7.292e-5,R=6371e+3,PI=3.1415926,Delta=1.00INTEGER,PARAMETER::nx=111,ny=61,nz=7,nt=4INTEGERWtTopLevel(NX,NY,NT)REAllat(ny),lon(nx),sigmadeltDCHARACTERtimefile(4)*8,levelfile(5)*1,P(NZ)*2real,allocatable::temper(:,:,: