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, |
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) |
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 |
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 |