c  ntrac_bio number of biological tracers
c  NFLBIO number of biological fluxes

       logical use_bio, use_bio_old
       common /bio_para/ ntrac_bio, nflbio, use_bio, nstep_bio, nstep_propag
     *                  , use_bio_old

       character*80 fbnitrate
       common /bio_io/ n_nit,fbnitrate,idf_nit,i_propag_step

 
      dimension flxbio(1),
     *          xzm(1), xzmm(1),xze(1),xzem(1),xpar(1),xparm(1),
     *          xle(1),xlt(1), 
     *          xln(1),xlem(1),
     *          xltm(1),xlnm(1),kbio(1),fpar(1),dayl(1)
     *          ,xlm(1),xparze(1),xparzm(1),xlmm(1)
     *          ,zparr(1),zparg(1),zpar100(1)

      common /bio_data/ p_flxbio,p_xzm,p_xzmm,p_xze,p_xzem,p_xpar,
     *                  p_xle,p_xlt, p_xparm,
     *                  p_xln,p_xlem,
     *                  p_xltm,p_xlnm,p_kbio,p_fpar,p_dayl
     *                 ,p_xlm,p_xparze,p_xparzm,p_xlmm
     *                 ,p_zparr,p_zparg,p_zpar100

      pointer (p_flxbio,flxbio), 
     *        (p_xzm,xzm), (p_xzmm,xzmm), 
     *        (p_xze,xze), (p_xzem,xzem),(p_xpar,xpar),
     *        (p_xparm,xparm),
     *        (p_xle,xle), (p_xlt,xlt),
     *        (p_xln,xln), (p_xlem,xlem),
     *        (p_xltm,xltm), (p_xlnm,xlnm), 
     *        (p_kbio,kbio), (p_fpar,fpar), (p_dayl,dayl)
     *        ,(p_xlm,xlm),(p_xparze,xparze),(p_xparzm,xparzm)
     *        ,(p_xlmm,xlmm)
     *        ,(p_zparr,zparr),(p_zparg,zparg),(p_zpar100,zpar100)