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 |