!     Last change:  ZK    9 Jun 2012   10:01 am
  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=30*1800 !20000

!  INTEGER,PARAMETER::ME=2000 !20000


  REAL, PARAMETER::G = 980.0
  REAL, PARAMETER::R = 0.003
  REAL, PARAMETER::epsilon =0.01     ! original e=1.e-3
  REAL, PARAMETER::      T=2.

  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,DHU,DHV !D
  REAL, DIMENSION(1:JE,1:KE):: VO,VN,ZMAX,ETS
  REAL, DIMENSION(1:KE):: SIZ,SIV,CSZ,CSV,CSV1,CSVZ,CSVZ1
!  REAL, DIMENSION(1:ME):: ZINP
  INTEGER*2, DIMENSION(1:JE,1:KE):: CELL,PCELL
  REAL::  SLMA,T1,T2
  INTEGER::M,K,J,JM,KM
!  INTEGER::KK,IC
  
  


