!
! Geographic grid parameters:
!
      integer,parameter :: 
     |  nlat = 36,
     |  nlon = 72,
     |  nlev = 29
      real,parameter ::
     |  glat1 = -87.5, dlat = 5.,
     |  glon1 = -180., dlon = 5.,
     |  plev1 = -7.,   dlev = 0.5  
!
! Magnetic grid:
      integer,parameter ::
     |  nmlat = jmaxm,
     |  nmlon = imaxmp,
     |  nmlev = zkmxp+3
!
!     real,parameter :: p0 = 5.0e-4
!
      real :: glon(nlon),glat(nlat),plev(nlev)
      real :: gmlon(nmlon),gmlat(nmlat),pmlev(nmlev)
      common/grid_com/ glon,glat,plev,gmlon,gmlat,pmlev
!