!
! Geographic grid parameters:
!
      integer,parameter :: 
     |  nlat = 36,
     |  nlon = 72,
     |  nlev = NLEV+1
      real,parameter ::
     |  glat1 = -87.5, dlat = 5.,
     |  glon1 = -180., dlon = 5.,
     |  plev1 = ZBOT,  dlev = (ZTOP-ZBOT)/NLEV
!
! Magnetic grid:
      integer,parameter ::
     |  nmlat = jmaxm,
     |  nmlon = imaxmp,
     |  nmlev = zkmxp+3
!
! Common:
      real :: glon(nlon),glat(nlat),plev(nlev)
      real :: gmlon(nmlon),gmlat(nmlat),pmlev(nmlev)
      common/grid_com/ glon,glat,plev,gmlon,gmlat,pmlev
!