!Robert Grumbine 2002

      INTEGER L, M, LM, MM, LP, MP, LMDP, LDO, LM2, MM2 
      INTEGER divisor
      PARAMETER (divisor = 1 )
      PARAMETER (L = 345/divisor - 1 )
      PARAMETER (M = 355/divisor - 1 )
      PARAMETER (LM = L-1)
      PARAMETER (MM = M-1)
      PARAMETER (LP = L+1)
      PARAMETER (MP = M+1)
      PARAMETER (LMDP = LP*MP)
      PARAMETER (MM2  = M-2  )
      PARAMETER (LM2  = L-2  )
      PARAMETER (LDO  = 32*(L+M) )

      REAL LATMIN, lonmin, DLAT, DLON, DXDEG, DX, DY, DT
      INTEGER PTYPE, proj
      REAL polei, polej, bedient

      PARAMETER (LATMIN = -81.25)
      PARAMETER (lonmin =  -90.0)
      PARAMETER (DLAT   =   2.5 )
      PARAMETER (DLON   =   5.0 )
      PARAMETER (PTYPE  = 3     )
      PARAMETER (proj   = 200   )   !Base projection for remapping
      PARAMETER (polei  = 150./divisor )
      PARAMETER (polej  = 180./divisor )
      PARAMETER (DXDEG  = 111.1E+3)
      PARAMETER (bedient = 15.0)
      PARAMETER (dx     = (381.E3/bedient)*divisor)
      PARAMETER (dy     = (381.E3/bedient)*divisor)
      PARAMETER (dt     = 3600.*6.)
      INTEGER NLEVEL
      PARAMETER (NLEVEL = 7)
!     Make mixed layer reference depth a regional parameter
      REAL HMLREF
      PARAMETER (HMLREF = 500.)

      REAL sgn, rearth, eccen2, slat, slon, xorig, yorig
      PARAMETER (sgn    =   -1.0)
      PARAMETER (rearth = 6378.160E3)
      PARAMETER (eccen2 =    0.006694604)
      PARAMETER (slat   =   60.0)  ! slat must be absolute value!!
      PARAMETER (slon   = +170.0)
      PARAMETER (xorig  = -(polei)*dx)
      PARAMETER (yorig  = -(polej)*dy)

!     NCEP GRIB table grid number
      INTEGER gridno
      PARAMETER (gridno = 220)
!     Decide on wmo output
      LOGICAL WMO
      PARAMETER (WMO = .TRUE.)