C common file for the biological model parameters
C -----------------------------------------------
c
c       COMBIO   BIOLOGICAL PARAMETERS  
c
c  JPBIO  max number of vertical layers for biology
c  NTRBIO number of biological tracers
c  NFLBIO number of biological fluxes
c  NDET   number for detritus in tracer array
c  NNUT   number for nutrients in tracer array
c  NPHY   number for phytoplankton in tracer array
c  NZOO   number for zooplankton in tracer array
c  APMIN  minimum phytoplancton concentration, mmole/m3
c  AZMIN  minimum zooplancton concentration, mmole/m3
c  ANMIN  minimum nutrients concentration, mmole/m3
c  ADMIN  minimum detritus concentration, mmole/m3
c  REDF   redfield ratio (C:N)
c  SLOPET van't Hoff "coefficient"          
c  TOPTP  optimal photosynthesis temperature
c  AKNUT  half-saturation nutrient, mmol/m3
c  RCCHL  Standard Carbone/Chlorophyl ratio, mgC.mgChla-1
c  RGAMMA Phytoplankton exudation fraction, %
c  TOPTGZ optimal temperature for zooplankton growth
c  TMAXGZ maximal temperature for zooplankton growth
c  RGZ    widtht of zooplankton temperature function
c  RPPZ   zooplankton nominal preference for phytoplancton food, %
c  TAUS   maximum specific zooplankton grazing rate, 0.75/86400 s-1=8.680555E-6
c  AKS    Half saturation constant for total zooplankton grazing, mmolN.m-3
c  FILMAX maximum mass clearance rate for zooplankton , 2.5/86400 m3.s-1.mmolN-1
c  RPNAZ  non-assimilated phytoplankton by zooplancton, %
c  RDNAZ  non-assimilated detritus by zooplankton, %
c  EGGZOO minimum for zooplankton concentration, mmolN.m-3, egg effect
c  TAUZN  zooplancton specific excretion rate, 0.1/86400 s-1
c  TMMAXP maximal phytoplancton mortality rate,  0.111/86400 s-1
c  TMMINP minimal phytoplancton mortality rate,  0.045/86400 s-1
c  TMMAXZ maximal zooplankton mortality rate,  0.045/86400 s-1
c  TMMINZ minimal zooplankton mortality rate,  0.03/86400 s-1
c  ANUMIN nutrient threshold for phytoplankton mortality, mmolN.m-3
c  AFDMIN food threshold for zooplankton mortality, mmolN.m-3
c  TAUDN  detrital breakdown rate, 0.09/86400 s-1
c  VSED   detritus sedimentation speed 5./86400 ms-1
c  TMUMAX maximal phytoplankton growth rate 2.00/86400 s-1
c  AKI    light photosynthesis half saturation constant 6.18 W/m2
c  TMAXR maximum coefficient for remineralisation damping 1 day
c  TMINR minimum coefficient  for remineralisation damping 20 days
c
c  ALPH  slope of P vs. I curve
c  TMUMAX maximum phytoplankton growth rate

      parameter (jpbiodef= 12)
      parameter (NTRBIOdef=4)
      parameter (NFLBIOdef=9)
      parameter (NDETdef=1)
      parameter (NZOOdef=2)
      parameter (NPHYdef=3)
      parameter (NNUTdef=4)
      parameter (APMINdef= 0.)
      parameter (AZMINdef = 0.)
      parameter (ANMINdef = 0.)
      parameter (ADMINdef = 0.)
      parameter (REDFdef  = 7.)
      parameter (SLOPETdef= 1.065)
      parameter (TOPTPdef = 15.)
      parameter (AKNUTdef = 0.5)
      parameter (RCCHLdef = 55.)
      parameter (RGAMMAdef= 0.05)
      parameter (TOPTGZdef= 15.)
      parameter (TMAXGZdef= 35.)
      parameter (RGZdef   = 20.)
      parameter (RPPZdef  = 0.5)
      parameter (TAUSdef  = 8.680555E-6)
      parameter (AKSdef   = 1.)
      parameter (FILMAXdef= 2.893518E-5)
      parameter (RPNAZdef = 0.3)
      parameter (RDNAZdef = 0.5)
      parameter (EGGZOOdef= 0.0143)
      parameter (TAUZNdef = 1.157407E-6)
      parameter (TMMAXPdef= 1.284722E-6 )
      parameter (TMMINPdef= 5.208333E-7)
      parameter (TMMAXZdef= 5.208333E-7)
      parameter (TMMINZdef= 3.472222E-7)
      parameter (ANUMINdef= 0.31)
      parameter (AFDMINdef= 1.6)
      parameter (TAUDNdef = 1.041666E-6)
      parameter (VSEDdef  = 5.787037E-5)
      parameter (AKIdef   = 33.33)
      parameter (TMAXRdef=    1.15E-5)
      parameter (TMINRdef=    5.79E-7)
      parameter (ALPHdef=    0.075/86400)
      parameter (TMUMAXdef=   0.6/86400)

      common/combio/ JPBIO, NDET, NNUT, NPHY, NZOO, 
     $               APMIN, AZMIN, ANMIN, ADMIN, REDF, SLOPET, 
     $               TOPTP, AKNUT, RCCHL, RGAMMA, TOPTGZ, 
     $               TMAXGZ, RGZ, RPPZ, TAUS, AKS, FILMAX, 
     $               RPNAZ, RDNAZ, EGGZOO, TAUZN, TMMAXP,
     $               TMMINP, TMMAXZ, TMMINZ, ANUMIN, AFDMIN,
     $               TAUDN, VSED, TMUMAX, AKI, TMAXR, TMINR, ALPH


c
c       COMOPT   OPTICAL PARAMETERS 
c
c  XKG0  green absorption coefficient of water
c  XKR0  red absorption coefficent of water
c  XKGP  green absorption coefficient of chl
c  XKRP  red absorption coefficient of chl
c  XLG   green chl exposant for absorption
c  XLR   red chl exposant for absorption
c  RPIG  chlahla+pheo ratio
c  XKD_A  coefficient to take diffused light into account
c  XPAR2PUR_R coeff to transform par to pur in red
c  XPAR2PUR_G coeff to transform par to pur in green
c

      parameter (XKG0def  = 0.0232)
      parameter (XKR0def  = 0.225)
      parameter (XKGPdef  = 0.074)
      parameter (XKRPdef  = 0.037)
      parameter (XLGdef   = 0.674)
      parameter (XLRdef   = 0.629)
      parameter (RPIGdef  = 0.7)
      parameter (XKD_Adef = 1.3)
      parameter (XPAR2PUR_Rdef  = 0.2)
      parameter (XPAR2PUR_Gdef  = 0.8)

      common/comopt/ XKG0, XKR0, XKGP, XKRP, XLG, XLR, RPIG, XKD_A,
     $               XPAR2PUR_R, XPAR2PUR_G

c
c
c  RAU0  density of reference
C  DELTAR density gradient for mixed layr depth criteria
c
      parameter (RAU0def  = 1000.)
      parameter (DELTARdef = 0.05)
      common/comzezm/RAU0, DELTAR

c
c       NAMOPT   OPTICAL PARAMETERS 
c
c
c  RAU0  density of reference
c

       common /print_error/ibio_key, nstep_bio_print

       parameter (IBIO_OUT = 82)
       character*80       f_bio
       common /bio_files/ n_bio, f_bio