!C***  SET PRIMARY GRID DIMENSIONS AND PRESSURE OUTPUT LEVELS
      PARAMETER (IM=227,JM=351,LM=38,LSM=20)
!C-------------------------------------------------------------
!C***  SET THE NUMBER OF PEs IN THE I-DIRECTION AND J-DIRECTION
      PARAMETER(INPES=18,JNPES=20)
!C-------------------------------------------------------------
!C
      PARAMETER(IGSTL=-5,IGSTR=5)
      PARAMETER(JGSTL=-5,JGSTR=5)
      PARAMETER(ITAIL=IM-(INPES*(IM/INPES)))
      PARAMETER(JTAIL=JM-(JNPES*(JM/JNPES)))
!C
      PARAMETER(IDIM1=IGSTL,IDIM2=IM/INPES+IGSTR+1)
      PARAMETER(JDIM1=JGSTL,JDIM2=JM/JNPES+JGSTR+1)
!C
!C-------------------------------------------------------------