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, |
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) |
173 |
_RL phygrazmin |
_RL phygrazmin |
174 |
_RL ExportFracGraz(nzmax) |
_RL ExportFracGraz(nzmax) |
175 |
_RL ExGrazfracbig, ExGrazfracsmall |
_RL ExGrazfracbig, ExGrazfracsmall |
176 |
|
_RL hollexp |
177 |
#endif |
#endif |
178 |
_RL ZoomortSmall, ZoomortBig, ZooexfacSmall, ZooexfacBig |
_RL ZoomortSmall, ZoomortBig, ZooexfacSmall, ZooexfacBig |
179 |
|
_RL ZoomortSmall2, ZoomortBig2 |
180 |
_RL val_R_SiP_diatom, val_R_NP_diaz, val_RFeP_diaz, |
_RL val_R_SiP_diatom, val_R_NP_diaz, val_RFeP_diaz, |
181 |
& val_R_NP, val_RFeP, val_R_PC, val_R_PICPOC |
& val_R_NP, val_RFeP, val_R_PC, val_R_PICPOC |
182 |
_RL ngrowfac,ilight |
_RL ngrowfac,ilight |
192 |
#ifdef PART_SCAV |
#ifdef PART_SCAV |
193 |
_RL scav_rat, scav_inter, scav_exp |
_RL scav_rat, scav_inter, scav_exp |
194 |
#endif |
#endif |
195 |
|
#ifdef ALLOW_CDOM |
196 |
|
_RL fraccdom, cdomdegrd, cdombleach, PARcdom |
197 |
|
_RL rnp_cdom, rfep_cdom, rcp_cdom |
198 |
|
_RL cdomcoeff |
199 |
|
#endif |
200 |
INTEGER nsource(npmax) |
INTEGER nsource(npmax) |
201 |
INTEGER ngroups |
INTEGER ngroups |
202 |
|
|
230 |
COMMON/darwin_diags_param/ |
COMMON/darwin_diags_param/ |
231 |
& diver_thresh0, diver_thresh1, |
& diver_thresh0, diver_thresh1, |
232 |
& diver_thresh2, diver_thresh3, |
& diver_thresh2, diver_thresh3, |
233 |
& diver_thresh4 |
& diver_thresh4, shannon_thresh |
234 |
|
|
235 |
_RL diver_thresh0, diver_thresh1 |
_RL diver_thresh0, diver_thresh1 |
236 |
_RL diver_thresh2, diver_thresh3 |
_RL diver_thresh2, diver_thresh3 |
237 |
_RL diver_thresh4 |
_RL diver_thresh4, shannon_thresh |
238 |
|
|
239 |
#ifdef GEIDER |
#ifdef GEIDER |
240 |
c ANNA geider by mQyield instead of alpha |
c ANNA geider by mQyield instead of alpha |