C     ****
C     ****     /DYNPH / contains dynamo potentials, geopotential
C     ****     heights, ion drift velocity components, ui, vi, wi
C     ****
      real :: dynpot,phim,phim3d,phih,phihm,zzm,ex,ey,ez,phisym,phiant
      COMMON/DYNPHI/DYNPOT(IMAXGP,0:JMAXGP,ZKMXP),PHIM(IMAXMP,JMAXM),
     1  PHIM3D(IMAXMP,JMAXM,-2:ZKMXP),PHIH(IMAXGP,0:JMAXGP),
     2  PHIHM(IMAXMP,JMAXM),ZZM(IMAXMP,JMAXM,-2:ZKMXP),
     2  EX(IMAXGP,JMAXG,ZKMXP), EY(IMAXGP,JMAXG,ZKMXP),
     3  EZ(IMAXGP,JMAXG,ZKMXP),
     4  PHISYM(IMAXMP,JMX0),PHIANT(IMAXMP,JMAXM)
C     ****
C     ****     Where:
C     ****
C     ****      DYNPOT = 3-d dynamo potential in geographic space
C     ****      PHIM = single level dynamo potential in geomagnetic
C     ****             coordinates as generated by MUD
C     ****      PHIM3D = 3-D dynamo potential in geomagnetic space
C     ****      PHIH = single level Heelis potential in geographic
C     ****             space
C     ****      PHIHM = single level Heelis potential in geomagnetic
C     ****             space
C     ****      ZZM = 3-d geopotential heights in geomagnetic space
C     ****      UI = 3-D zonal ion-drift velocity in geographic space
C     ****      VI = 3-D meridional ion-drift velocity in geographic
C     ****           space
C     ****      WI = 3-D vertical ion-drift velocity in geographic space
C     ****