REAL
     1   P
     1  ,MONTG
     1  ,TA
     1  ,QVA
     1  ,UA
     1  ,VA
     1  ,OMEGA
     1  ,QCA
     1  ,QRA
     1  ,QIA
     1  ,QNIA
cjmb--add graupel for level 4 MM5 microphysics--16jan96
     1  ,QGA
cjmb--add cloud ice number concentration for lvl 4 MM5 microphysics--16jan96
     1  ,QNCA
     1  ,turke
     1  ,EXN,dfpa
     1  ,SCALE,SCALU,SCALV,SCALP2
     1  ,THETA
     1  , TSO, ETA


        COMMON/POINT3D/
     +       P(MIX,MJX,MKX)         
     +      ,MONTG(MIX,MJX,MKX)
     +      ,TA(MIX,MJX,MKX)
     +      ,QVA(MIX,MJX,MKX)
     +      ,UA(MIX,MJX,MKX)
     +      ,VA(MIX,MJX,MKX)
     +      ,OMEGA(MIX,MJX,MKX)
     +      ,QCA(MIXM,MJXM,MKXM)
     +      ,QRA(MIXM,MJXM,MKXM)
     +      ,QIA(MIXM,MJXM,MKXM)
     +      ,QNIA(MIXM,MJXM,MKXM)
cjmb--add graupel and number concentration of cloud ice (4 arrays)--16jan96
     +      ,qga (mixm,mjxm,mkxm)
     +      ,qnca(mixm,mjxm,mkxm)
     +      ,turke(mixm,mjxm,mkxm)
     +      ,EXN(MIX,MJX,MKX)       
     +      ,dfpa(MIX,MJX,MKX)       
     +      ,SCALE(MIX,MJX)            
     +      ,SCALU(MIX,MJX)              
     +      ,SCALV(MIX,MJX)              
     +      ,SCALP2(MIX,MJX)             
     +      ,THETA(MKX)
     +      ,TSO(MIX,MJX,MKXS),ETA(MIX,MJX,MKXS)