C --- Include file for igmv.f -------- contains all grid parameters ---
      PARAMETER (KX=72, JX=30, IX=301)
      COMMON /BLOC1/ Vr(KX,JX,IX), Vt(KX,JX,IX), Vp(KX,JX,IX),
     &               Br(KX,JX,IX), Bt(KX,JX,IX), Bp(KX,JX,IX),
     &               Ro(KX,JX,IX), Tp(KX,JX,IX)
      COMMON /BLOC2/ dTH, dPH, dR, dT
      COMMON /BLOC3/ TH(JX), PHI(KX), RAD(IX)
      COMMON /BLOC4/ IM,JM,KM, IC1,IC2, JC1,JC2, KC1,KC2
      REAL*8 Time
      COMMON /BLOC17/ Time