module define

        integer :: i,j,g,v,z,a,r,t,ifound,ii,jj,k,n,m,nz,cnt,iupd

        real :: pi,gam,kap,c0,minp,rad,tan,azimuth,radii,
     &adj,nx,ny,meddy,reddy,rpflux,vpflux,peddy

        real :: theta,dx,dy,us,vs,rg,cp,cv,rho,pinit,gr,cen,cor,rount

        real :: f0,aam,rmflux,vmflux,ermflux,evmflux,dr,
     &mrmfc,mvmfc,mermfc,mevmfc,dz,top,bot,weddy,rdx,rdy,
     &mrefc,mvefc,merefc,mevefc,qvuse,cpmix,cvmix,rgmix,prrcp

	real :: wght_lft,wght_rgt,wght_bot,wght_top

	real,dimension(320,71) :: pres,wind,psave,den,temp,pot,resg,resh,
     $pgrd1,pgrd2,ce,co

!	real,dimension(500,71) :: nwind

!	real,dimension(2700,720,71) :: windc,presc,denc,potc
        real,dimension(320,180) :: ndx,ndy

	real,dimension(71) :: zz
	end module define