| 17 |
c ksatlight = half sat coeff wrt light, phyto specific |
c ksatlight = half sat coeff wrt light, phyto specific |
| 18 |
c graze = grazing rate, phyto specific for each zooplankton |
c graze = grazing rate, phyto specific for each zooplankton |
| 19 |
c mortzoo = mortality rate for each zooplankton |
c mortzoo = mortality rate for each zooplankton |
| 20 |
|
c mortzoo2 = quadratic mortality rate for each zooplankton |
| 21 |
c wsink = sinking speed, phyto specific |
c wsink = sinking speed, phyto specific |
| 22 |
c R_XY = stoichiometric ratios of nutrients in phytoplankton |
c R_XY = stoichiometric ratios of nutrients in phytoplankton |
| 23 |
c specific to each functional group, relative to Phos |
c specific to each functional group, relative to Phos |
| 44 |
& zooTempCoeff, zooTempExp, zooTempOptimum, kinhib, |
& zooTempCoeff, zooTempExp, zooTempOptimum, kinhib, |
| 45 |
& diatomgraz, coccograz, olargegraz, |
& diatomgraz, coccograz, olargegraz, |
| 46 |
& mortphy, ExportFracP, |
& mortphy, ExportFracP, |
| 47 |
|
& mortzoo2, |
| 48 |
& Smallgrow, Biggrow, Smallmort, Bigmort, |
& Smallgrow, Biggrow, Smallmort, Bigmort, |
| 49 |
& Smallgrowrange, Biggrowrange, Smallmortrange, |
& Smallgrowrange, Biggrowrange, Smallmortrange, |
| 50 |
& Bigmortrange, |
& Bigmortrange, |
| 60 |
& SmallPsatrange, BigPsatrange, ProcPsatrange, |
& SmallPsatrange, BigPsatrange, ProcPsatrange, |
| 61 |
& prochlPsat, |
& prochlPsat, |
| 62 |
& UniDzPsat, UniDzPsatrange, |
& UniDzPsat, UniDzPsatrange, |
| 63 |
& depthdenit, o2crit, denit_np, |
& depthdenit, o2crit, denit_np, denit_no3, no3crit, |
| 64 |
#ifdef OLD_GRAZE |
#ifdef OLD_GRAZE |
| 65 |
& graze, |
& graze, |
| 66 |
& kgrazesat, |
& kgrazesat, |
| 74 |
& phygrazmin, |
& phygrazmin, |
| 75 |
& ExportFracGraz, |
& ExportFracGraz, |
| 76 |
& ExGrazfracbig, ExGrazfracsmall, |
& ExGrazfracbig, ExGrazfracsmall, |
| 77 |
|
& hollexp, |
| 78 |
#endif |
#endif |
| 79 |
& ZoomortSmall, ZoomortBig, ZooexfacSmall, ZooexfacBig, |
& ZoomortSmall, ZoomortBig, ZooexfacSmall, ZooexfacBig, |
| 80 |
|
& ZoomortSmall2, ZoomortBig2, |
| 81 |
& val_R_SiP_diatom, val_R_NP_diaz, val_RFeP_diaz, |
& val_R_SiP_diatom, val_R_NP_diaz, val_RFeP_diaz, |
| 82 |
& val_R_NP, val_RFeP, val_R_PC, |
& val_R_NP, val_RFeP, val_R_PC, |
| 83 |
& val_R_PICPOC, |
& val_R_PICPOC, |
| 92 |
#ifdef PART_SCAV |
#ifdef PART_SCAV |
| 93 |
& ,scav_rat, scav_inter, scav_exp |
& ,scav_rat, scav_inter, scav_exp |
| 94 |
#endif |
#endif |
| 95 |
|
#ifdef ALLOW_CDOM |
| 96 |
|
& , fraccdom, cdomdegrd, cdombleach, PARcdom |
| 97 |
|
& , rnp_cdom, rfep_cdom, rcp_cdom |
| 98 |
|
& , cdomcoeff |
| 99 |
|
#endif |
| 100 |
& ,nsource,ngroups |
& ,nsource,ngroups |
| 101 |
|
|
| 102 |
_RL mu(npmax) |
_RL mu(npmax) |
| 108 |
_RL ksatFeT(npmax) |
_RL ksatFeT(npmax) |
| 109 |
_RL ksatPAR(npmax) |
_RL ksatPAR(npmax) |
| 110 |
_RL mortzoo(nzmax) |
_RL mortzoo(nzmax) |
| 111 |
|
_RL mortzoo2(nzmax) |
| 112 |
_RL wsink(npmax) |
_RL wsink(npmax) |
| 113 |
_RL R_NP(npmax) |
_RL R_NP(npmax) |
| 114 |
_RL R_FeP(npmax) |
_RL R_FeP(npmax) |
| 154 |
_RL UniDzPsat, UniDzPsatrange |
_RL UniDzPsat, UniDzPsatrange |
| 155 |
_RL depthdenit |
_RL depthdenit |
| 156 |
_RL o2crit |
_RL o2crit |
| 157 |
_RL denit_np |
_RL denit_np, denit_no3 |
| 158 |
|
_RL no3crit |
| 159 |
_RL ksatNH4fac, ksatNO2fac |
_RL ksatNH4fac, ksatNO2fac |
| 160 |
_RL sig1,sig2,sig3 |
_RL sig1,sig2,sig3 |
| 161 |
_RL val_ksatsi |
_RL val_ksatsi |
| 174 |
_RL phygrazmin |
_RL phygrazmin |
| 175 |
_RL ExportFracGraz(nzmax) |
_RL ExportFracGraz(nzmax) |
| 176 |
_RL ExGrazfracbig, ExGrazfracsmall |
_RL ExGrazfracbig, ExGrazfracsmall |
| 177 |
|
_RL hollexp |
| 178 |
#endif |
#endif |
| 179 |
_RL ZoomortSmall, ZoomortBig, ZooexfacSmall, ZooexfacBig |
_RL ZoomortSmall, ZoomortBig, ZooexfacSmall, ZooexfacBig |
| 180 |
|
_RL ZoomortSmall2, ZoomortBig2 |
| 181 |
_RL val_R_SiP_diatom, val_R_NP_diaz, val_RFeP_diaz, |
_RL val_R_SiP_diatom, val_R_NP_diaz, val_RFeP_diaz, |
| 182 |
& val_R_NP, val_RFeP, val_R_PC, val_R_PICPOC |
& val_R_NP, val_RFeP, val_R_PC, val_R_PICPOC |
| 183 |
_RL ngrowfac,ilight |
_RL ngrowfac,ilight |
| 193 |
#ifdef PART_SCAV |
#ifdef PART_SCAV |
| 194 |
_RL scav_rat, scav_inter, scav_exp |
_RL scav_rat, scav_inter, scav_exp |
| 195 |
#endif |
#endif |
| 196 |
|
#ifdef ALLOW_CDOM |
| 197 |
|
_RL fraccdom, cdomdegrd, cdombleach, PARcdom |
| 198 |
|
_RL rnp_cdom, rfep_cdom, rcp_cdom |
| 199 |
|
_RL cdomcoeff |
| 200 |
|
#endif |
| 201 |
INTEGER nsource(npmax) |
INTEGER nsource(npmax) |
| 202 |
INTEGER ngroups |
INTEGER ngroups |
| 203 |
|
|
| 231 |
COMMON/darwin_diags_param/ |
COMMON/darwin_diags_param/ |
| 232 |
& diver_thresh0, diver_thresh1, |
& diver_thresh0, diver_thresh1, |
| 233 |
& diver_thresh2, diver_thresh3, |
& diver_thresh2, diver_thresh3, |
| 234 |
& diver_thresh4 |
& diver_thresh4, shannon_thresh |
| 235 |
|
|
| 236 |
_RL diver_thresh0, diver_thresh1 |
_RL diver_thresh0, diver_thresh1 |
| 237 |
_RL diver_thresh2, diver_thresh3 |
_RL diver_thresh2, diver_thresh3 |
| 238 |
_RL diver_thresh4 |
_RL diver_thresh4, shannon_thresh |
| 239 |
|
|
| 240 |
#ifdef GEIDER |
#ifdef GEIDER |
| 241 |
c ANNA geider by mQyield instead of alpha |
c ANNA geider by mQyield instead of alpha |