c
      c o m m o n  /biovars/
     . bio(1000,nbio)        		      ! biology arrays
     .,inb
     .,frc(1000,nfrc)            !array containing forcing data
     .,dz                        !vertical resolution
     .,delt1                     !time step 
     .,nz                        !no. of vertical levels
     .,dydti(50,nbio)	         !individual term array
     .,dydt(1000,nbio+1)         !net bio rates
     .,zl1                       !depth in meters of top of current bio level 
     .,zl2                       !depth in meters of bottom of bio level 
     .,rlt            !average par for a given level
     .,rior           !longwave radiation at top of given level
     .,riob           !shortwave radiation at top of given level
c
      real bio,dydti,dydt,zl1,zl2,rlt,rior,riob,frc
      integer inb,nz
c
      c o m m o n  /bioparams/
     .in                        !bio array index for phyto
     .,idon                     !index for don
     .,iph                      !index for phyto
     .,it                       !index for trichodesmium
     .,ih                       !index for heterotrophs
     .,id                       !index for detritus
     .,gep            !H growth efficiency on P
     .,aep           !H assim. efficiency on P
     .,ged           !H growth efficiency on D
     .,aed           !H assim. efficiency on D
     .,geh           !H growth efficiency on H
     .,aeh           !H assim. efficiency on H
     .,get           !H growth efficiency on T
     .,aet           !H assim. efficiency on T
     .,gen           !H growth efficiency on DON
     .,aen           !H assim. efficiency on DON
     .,cmax          !max. Het. consumption rate
     .,hks           !H half sat. const.
     .,phip          !H preference for P
     .,phid          !H preference for D
     .,phih          !H preference for Z
     .,phit          !H preference for T
     .,phin          !H preference for DON
     .,umaxp         !P max. growth rate
     .,umaxt         !T max. growth rate
     .,pks           !P half sat. const.
     .,tks           !T half sat. const.
     .,sp            !P Senescence rate
     .,st            !T Senescence rate
     .,beta          !Senesence fraction to DETR
     .,alpha         !Partitioning of pripro. to T/P pools
     .,rltkp         !Sat. const. for P WATTS/M^2
     .,rltkt         !Sat. const. for T WATTS/M^2
     .,gamma         !Partitioning of excretion to DIN
     .,rltb          !P photoinh. parameter 					
c
      integer in,idon,iph,it,ih,id
      real gep,aep,ged,aed,geh,aeh,get,aet,gen,aen,cmax,hks,phip
     .,phid,phih,phit,phin,umaxp,umaxt,pks,tks,sp,st,beta,alpha
     .,rltkp,rltkt,gamma,rltb
c
      c o m m o n /lightparams/
     .rs              !fraction of QI that is longwave
     .,wkr            !red diffuse atten. coef. for water
     .,wkb            !blue diffuse atten. coef. for water
c     
      real rs,wkr,wkb 
c        
      common/sinkparams/
     .ws              !sinking rate of detritus   
c
      real ws       
c        
      common/diffusparams/
     .rnkz              !vertical diffusivity   
c
      real rnkz       
c
      common/boundaryparams/
     .bnutz              !bottom boundary DIN concentration   
c
      real bnutz       
c----------------------------------------------------------------------