C***  SET PRIMARY WAVE GRID PARAMETERS
      PARAMETER (RWEST  = -8.0, REAST  = 42.0)
      PARAMETER (RSOUT  = 29.0, RNORT  = 48.0)
      PARAMETER (DELTAL =   .05)
      PARAMETER (DELTAF =   .05)
      PARAMETER (NXP=(REAST-RWEST)/DELTAL+1)
      PARAMETER (NYP=(RNORT-RSOUT)/DELTAF+1)
C-------------------------------------------------------------
      INTEGER,PARAMETER :: ngx = NXP, ngy = NYP
      INTEGER,PARAMETER :: tagw=12345, tagi=123456
      INTEGER,PARAMETER :: tag1=111, tag2=112, tag3 = 113
      INTEGER,PARAMETER :: tag4=114, tag5 = 115
      INTEGER,PARAMETER :: tagu = 123, tagv=1234
      INTEGER,PARAMETER :: tagz = 321, tagh=4321
      INTEGER,PARAMETER :: tagd = 1777, tagm=1779, taga=1801, tags=1803
      INTEGER,PARAMETER :: tagr = 1810, tag0=1815
