C     ****
C     ****     /DYNAMO/ STORE FIELDS NEEDED FOR DYNAMO CALCULATION
C     ****
      real :: sigma1,sigma2,z,h,u,v,w
      COMMON/DYNAMO/SIGMA1(ZIMXP1,ZJMX,ZKMX),SIGMA2(ZIMXP1,ZJMX,ZKMX),
     1  Z(ZIMXP1,ZJMX,ZKMXP),H(ZIMXP1,ZJMX,ZKMX),U(ZIMXP1,ZJMX,ZKMX),
     2  V(ZIMXP1,ZJMX,ZKMX),W(ZIMXP1,ZJMX,ZKMX)
C     ****
C     ****     WHERE:
C     ****       ZIMX=72, ZJMX=36, ZKMX=24
C     ****     AND:
C     ****       ZIMXP1=ZIMX+1, ZKMXP=ZKMX+1
C     ****     SIGMA1 = PEDESEN CONDUCTIVITY
C     ****     SIGMA2 = HALL CONDUCTIVITY
C     ****     Z      = GEOPOTENIAL HEIGHT             CM
C     ****     H      = SCALE HEIGHT = RT/(MBAR*G)     CM
C     ****     U      = EASTWARD VELOCITY              CM/SEC
C     ****     V      = NORTHWARD VELOCITY             CM/SEC
C     ****     W      = VERTICAL VELOCITY              CM/SEC
C     ****
C