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