!
! $Header$
!
c-----------------------------------------------------------------------
      INTEGER KIDIA, KFDIA, KLON, KLEV
      PARAMETER (KIDIA=1,KFDIA=iim*(jjm-1)+2-1/jjm,
     .           KLON=KFDIA-KIDIA+1,KLEV=llm)
c-----------------------------------------------------------------------
      INTEGER nbtr ! nombre de vrais traceurs
      PARAMETER (nbtr=nqmx-2+1/(nqmx-1))
c-----------------------------------------------------------------------
      REAL zmasq(KLON)
      COMMON/terreoce/zmasq