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