!
! Geographic grid parameters:
!
      integer,parameter :: 
     |  nlat = NLAT,
     |  nlon = NLON,
     |  nlev = NLEV+1
      real,parameter ::
     |  glat1 = -88.75, dlat = DLAT,
     |  glon1 = -180.,  dlon = DLON,
     |  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
!