********************************************************************************
*        Include file for convection 
*        This file contains a global common block used by convect 
*        and other subroutines 
*        Author: P. Ferstl
* 
*        Feb 2001
* 
********************************************************************************

c     parameter (ntracermax = nuvzmax-1, nconvlevmax = nuvzmax-1,
C                na = nconvlevmax+1)
C     these parameters are defined in includepar now!

      real tlev(nconvlevmax), qlev(nconvlevmax), qslev(nconvlevmax)
      real ctralev(nconvlevmax,ntracermax),ftra(nconvlevmax,ntracermax)
      real plev(nconvlevmax), phlev(na), dp(nconvlevmax)
      real ft(nconvlevmax), fq(nconvlevmax)
      integer nconvlev,ntracer

      common /convectblock/
     &tlev,qlev,qslev,ctralev,ftra,plev,phlev,dp,ft,fq,nconvlev,ntracer

