C  DCL /* ---------  interpolation GRID PARAMETERS  ----------------*/
C  DCL /* ---------      HORIZONTAL            ---------------------*/
C  DCL /*                                                           */
C  DCL /* IMAX       IMAX IS THE NUMBER OF  basis   GRID POINTS     */
C  DCL /*            IN THE EAST-WEST DIRECTION                     */
C  DCL /* JMAX       JMAX IS THE NUMBER OF   basis  GRID POINTS     */
C  DCL /*            IN THE NORTH-SOUTH DIRECTION                   */
C  DCL /*                                                           */

       INTEGER, PARAMETER:: IMAX=720
       INTEGER, PARAMETER:: JMAX=361

C-----------------------------------------------------------------------
C-----------------------parameters for NMMB model-----------------------
C-----------------------------------------------------------------------
C-------setting KB equal to KBETA indicates ETA model-------------------

C	INTEGER, PARAMETER :: IM=1300, JM=875, LM=60
C
	INTEGER, PARAMETER :: IM=954, JM=835, LM=60
        INTEGER, PARAMETER :: KB=2*IM+2*JM,KBETA=2*JM+2*IM
        INTEGER, PARAMETER :: KB_V=2*IM+2*JM-4
        INTEGER, PARAMETER :: IMJM=IM*JM-JM/2,JMP1=JM+1
        INTEGER, PARAMETER :: IMM1=IM-1,IMJMM1=IMJM-1
        INTEGER, PARAMETER :: KHL00=1,KHH00=IM*JM-JM/2,KNE=IM
        INTEGER, PARAMETER :: KNW=IM-1,KSW=-IM,KSE=-IM+1
	INTEGER, PARAMETER :: KSL=IMJM+KSE, KSLM1=KSL-1

C--------------HORIZONTAL GRID CONSTANTS - STANDARD RESOLUTION----------

        REAL, PARAMETER:: TLM0D=-106.0,TPH0D=54.0,WBD=-60.039,SBD=-45.036
        REAL, PARAMETER:: DLMD=0.126,DPHD=0.108