*-------------------------------------------------------------------
* INCLUDE microtab.h
*
	 REAL wco,df_GP
         INTEGER nz,nrad,nztop

         parameter(nz=llm,nrad=10,nztop=1)  !VERSION X

         parameter(wco=177.,df_GP=2.)      !FOR FRACTAL PARTCICLES
c        parameter(wco=1.E+6,df_GP=3.)     !FOR SPHERE PARTICLES

      real rf(nrad),df(nrad),zf,aknc
      common/frac/rf,df,zf,aknc

*********************************************************************
* tcorrect, tx, microfi, cutoff: definis dans physiq.def (clesphys.h)
*------------
         ! WARNING: tx=production rate
         !          tcorrect is readjustment factor: =1 is continiuty
         !                                           =X is q()*X 
*------------
*(*1): si microfi=1, optcv et optci sont appeles a chaque appels de la 
*	physique  pour reactualiser les TAU's. De meme, pg2.F est 
*	active a chaque appel de la physique....
*      si microfi=0., optcv et optci, ainsi que pg2, ne sont appele qu'une
*       fois au debut, comme dans la version originale....
*------------
*       dans optci et optcv:
*      si cutoff=1, brume coupee facon Pascal -> T ok au sol et dans la strato
*                                             -> T tropopause mauvaise
*                                             -> albedo ok
*      si cutoff=2, brume coupee sous 100mbar -> T ok sol/tropopause/strato
*                                             -> mais albedo mauvais