c23456789012345678901234567890123456789012345678901234567890123456789012


      SUBROUTINE Ca_zonx

c     ******************************************************************
c
c     This routine sets the error covariance matrix Ca^{-1} for integrated  
c     meridional transport
c
c     ******************************************************************

c     -------------
c     Declarations
c     -------------

c     ''''''''''''''''''''''
      implicit none
      include 'commonvar.f'      
c     ''''''''''''''''''''''

      integer	j




c     --------------------
c     Covariance matrix Ca
c     --------------------

      do j=1,n_zon
         Ca_zon_1(j) = e_zon0**2 
      enddo




c     -------------------------
c     Covariance matrix Ca^{-1}
c     -------------------------

      if (iflag.eq.2 .or. iflag.eq.3) then

         do j=1,n_zon
            Ca_zon_1(j) = 0.d0
         enddo

      else

         do j=1,n_zon
            Ca_zon_1(j) = 1.d0 / Ca_zon_1(j)
         enddo

      endif




c     -------------------
c     End of the routine
c     -------------------

      return

      end

c     ******************************************************************

