C     ****
C     ****     /DYNPH / contains dynamo potentials, geopotential
C     ****     heights, ion drift velocity components, ui, vi, wi
C     ****
C     ****
C     ****     /DYNPHI/ CONTAINS DYNAMO POTENTIAL FIELD
C     ****
      real :: dynpot,phim,phim3d,phih,phihm,zzm,ex,ey,ez
      COMMON/DYNPHI/DYNPOT(IMAXGP,0:JMAXGP,ZKMXP),PHIM(IMAXMP,JMAXM),
     1  PHIM3D(IMAXMP,JMAXM,ZKMXP),PHIH(IMAXGP,0:JMAXGP),
     2  PHIHM(IMAXMP,JMAXM),ZZM(IMAXMP,JMAXM,ZKBM:ZKMXP),
     2  EX(IMAXGP,JMAXG,ZKMXP), EY(IMAXGP,JMAXG,ZKMXP),
     3  EZ(IMAXGP,JMAXG,ZKMXP)
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     ****      EX = 3-D zonal electric field in geographic space
C     ****      EY = 3-D meridional electric field in geographic space
C     ****      EZ = 3-D vertical electric field in geographic space
C     ****