      IMPLICIT NONE
      INTEGER, PARAMETER::DP=SELECTED_REAL_KIND(14)

      INTEGER,PARAMETER:: js=1, je=3901   !  East Start120E WEST END:110W ! ,JMAX=je-js+1 je=130deg*30=3900
      INTEGER,PARAMETER:: KS=1,ke=1321    ! SOUTH START: 18N  nORTH END: 62N          ke=44deg*30=1320
      REAL,PARAMETER::    R0=6370.E5
      REAL, PARAMETER::   RAD=  0.0174532930056254
      REAL,PARAMETER::    DL=1./30.         ! GRID STEP ALONG LONGITUDE  IN DEGREES
      REAL,PARAMETER::    DF=1./30.         ! GRID STEP ALONG LATITUDE  IN DEGREES
      REAL, PARAMETER::   HX =R0*DL*RAD     ! SPACE STEP ALONG 1DEG IN CM
      REAL, PARAMETER::   HY =R0*DF*RAD     ! SPACE STEP

      INTEGER,PARAMETER:: ME=  43200
      REAL, PARAMETER::   G = 980.0
      REAL, PARAMETER::   R = 0.003
      REAL, PARAMETER::   FC=1.4584E-4
      REAL, PARAMETER::   epsilon =0.01     ! originally e=1.e-3
      REAL, PARAMETER::   ALPHA =0.08
      REAL, PARAMETER::   TPF=1500.
      REAL, PARAMETER::   T=1.
      REAL, PARAMETER::   FCT= FC*T
      REAL, PARAMETER::   THX=T/HX
      REAL, PARAMETER::   THY=T/HY
      REAL, PARAMETER::   GTHX=G*THX
      REAL, PARAMETER::   GTHY=G*THY
      REAL, PARAMETER::   NS=1.
      REAL, PARAMETER::   NL=1.             ! spherical nonlinearity
      REAL, DIMENSION(1:JE,1:KE):: SLO, SLN, SLNN, UO, UN, h, HF, D, DHU, DHV, Q
      REAL, DIMENSION(1:JE,1:KE):: VO, VN, ETO, ETN, ZMAX, ETS, WBO, WBN, WSN, WSO
      REAL,DIMENSION(1:KE):: SIZ, SIV, CSZ, CSV, CSV1, CSVZ, CSVZ1
      REAL, DIMENSION(1:ME):: ZINP
      INTEGER*2, DIMENSION(1:JE,1:KE):: CELL, CELLX
      REAL, PARAMETER:: PI=3.141592653589793238462643383279502884197
      REAL::  SLMA
      INTEGER::M, IC, KK, K, J, JM, KM

