implicit double precision (a-h,o-z)
      parameter(nbiotot=30,nsize=11000)

C	Parameter and array descriptors.
C--------------------------------------------------------------------+
C	bio(500,nbiotot)	! biology arrays
C	dz			! vertical resolution
C	delt			! time step 
C	nz			! no. of vertical levels
C	rlt			! average par for a given level
C--------------------------------------------------------------------+

        common/adv/HANi(50,nsize),HAAm(50,nsize),HAFe(50,nsize)
	common/eco/bio(50,nsize,nbiotot)
	common/input/wnsv(nbiotot),bbcnsv(nbiotot),HAnsv(nbiotot),
     &               Cnsv(nbiotot),aeonsv(nbiotot),unitnsv(nbiotot)
        common/forcing/ dz,cdays(nsize),qi(nsize),dml(nsize),
     &        Tdat(nsize,10),rlt,Temp(50),wvel(50,nsize),
     &        delt,rkz(50,nsize),aeoflux(nsize),reminrate,wtrap
	common/index/ nz,isteps,ntb,nsv,nbio,ipp,ichl
        common/index2/ nPPdat,nNdat,nSTdat,nZdat,nPrPrdat
        common/data/w(5),dayChl(330),zChl(330),Chl(330)
     &       ,dayN(650),zN(650),aNut(650),dayZ(330),zZ(330),aZoo(330),
     &       dayPrPr(330),zPrPr(330),aPrPr(330),STlag,
     &       dayST(500),timeST(500),ST(500),zST(500)

	common/nam/homedir
        common/nam2/datdir
        character*47 homedir
        character*37 datdir

        real*8 n2chl
	parameter(n2chl=1.59d0)