*******************************************************************************
*                                                                             *
*       Variable List for fp0.5.f - contains common variables and parameters. *
*                                                                             *
*       Version 0.5 - Last Modified 7/14/04                                   *
*                                                                             *
*******************************************************************************

        PARAMETER (NZ=126,NX=106,ST=-5)
        PARAMETER (PI=3.141592654)
        REAL N,NT,XX,ZZ

        COMMON N(ST:NZ,ST:NX),PHI(ST:NZ,ST:NX)
        COMMON /WX1/DZ,DX,Z0,X0,MOZ,MOX,ALT(ST:NZ)
        COMMON /TIMES/DT,T,TMAX,TLOCAL,SEASONAL
        COMMON /INFO/YEAR,MONTH,DAY,TIME,LAT,LONG,DATE,POLE
        common /wx3/b,gg,tem,eox,eoy,eoz,uox,uoz,uebx
        COMMON /WAVES/U1X0,U1Z0,XK,ZK,W,ZKI,UKI
        common /wx5/vin(ST:NZ),ven(ST:NZ)
        common /wx61/rvi(ST:NZ),rix1(ST:NZ),riz1(ST:NZ),ri2(ST:NZ)
        common /wx62/rve(ST:NZ),rex1(ST:NZ),rez1(ST:NZ),re2(ST:NZ)
        common /wx7/ti(ST:NZ),te(ST:NZ),sini,cosi
        COMMON /WX8/EPC,DPERP
        COMMON /DENSITIES/N0(ST:NZ),NE(ST:NZ),RHO(ST:NZ)
        COMMON /PROFILE/PRODU(ST:NZ),RECOM(ST:NZ),HH(ST:NZ)
        common /wx21/cnx(ST:NZ),cnz(ST:NZ),dn(ST:NZ)
        common /wx22/fx(ST:NZ,ST:NX),fz(ST:NZ,ST:NX)
        common /wx32/dntd(ST:NZ,ST:NX)
        common /wx33/dxz
        common /wx34/u1x(ST:NZ,ST:NX),u1z(ST:NZ,ST:NX)
        common /wx35/u1x0h(ST:NZ),u1z0h(ST:NZ),zkr(ST:NZ)