20 |
C darwin_particleabsorbFile :: file name of particle absorption/scattering spectra |
C darwin_particleabsorbFile :: file name of particle absorption/scattering spectra |
21 |
C darwin_surfacespecFile :: file name of spectrum of incident light |
C darwin_surfacespecFile :: file name of spectrum of incident light |
22 |
C darwin_acdomFile :: file name of CDOM absorption spectrum |
C darwin_acdomFile :: file name of CDOM absorption spectrum |
23 |
|
C darwin_PARunits :: units of data in PAR file; one of Ein/m2/d, uEin/m2/s, W/m2 |
24 |
|
C darwin_PARFileConv :: conversion factor from PAR file units to uEin/m2/s |
25 |
|
C darwin_W_to_uEins :: conversion factor from W to uEin/s |
26 |
C darwin_forcingPeriod :: perioDARWIN forcing parameter specific for DARWIN (seconds) |
C darwin_forcingPeriod :: perioDARWIN forcing parameter specific for DARWIN (seconds) |
27 |
C darwin_forcingCycle :: perioDARWIN forcing parameter specific for DARWIN (seconds) |
C darwin_forcingCycle :: perioDARWIN forcing parameter specific for DARWIN (seconds) |
28 |
C darwin_seed :: seed for the random number generator |
C darwin_seed :: seed for the random number generator |
41 |
& darwin_waterabsorbFile, darwin_phytoabsorbFile, |
& darwin_waterabsorbFile, darwin_phytoabsorbFile, |
42 |
& darwin_surfacespecFile, darwin_acdomFile, |
& darwin_surfacespecFile, darwin_acdomFile, |
43 |
& darwin_particleabsorbFile, |
& darwin_particleabsorbFile, |
44 |
|
& darwin_PARunits, darwin_PARFileConv, |
45 |
|
& darwin_W_to_uEins, |
46 |
& darwin_forcingPeriod, darwin_forcingCycle, |
& darwin_forcingPeriod, darwin_forcingCycle, |
47 |
& darwin_seed |
& darwin_seed |
48 |
|
|
65 |
CHARACTER*(MAX_LEN_FNAM) darwin_particleabsorbFile |
CHARACTER*(MAX_LEN_FNAM) darwin_particleabsorbFile |
66 |
CHARACTER*(MAX_LEN_FNAM) darwin_surfacespecFile |
CHARACTER*(MAX_LEN_FNAM) darwin_surfacespecFile |
67 |
CHARACTER*(MAX_LEN_FNAM) darwin_acdomFile |
CHARACTER*(MAX_LEN_FNAM) darwin_acdomFile |
68 |
|
CHARACTER*(MAX_LEN_FNAM) darwin_PARunits |
69 |
|
|
70 |
_RL darwin_relaxscale |
_RL darwin_relaxscale |
71 |
_RL darwin_forcingPeriod |
_RL darwin_forcingPeriod |
72 |
_RL darwin_forcingCycle |
_RL darwin_forcingCycle |
73 |
|
_RL darwin_PARFileConv |
74 |
|
_RL darwin_W_to_uEins |
75 |
INTEGER darwin_seed |
INTEGER darwin_seed |
76 |
|
|
77 |
c INPUT: |
c INPUT: |
194 |
INTEGER DAR_cons_unit7 |
INTEGER DAR_cons_unit7 |
195 |
#endif |
#endif |
196 |
|
|
197 |
|
#ifdef CALC_RATE_TOTALS |
198 |
|
COMMON /DARWIN_RATE_TOT/ |
199 |
|
& DAR_ratetot_unit, DAR_fluxtot_unit |
200 |
|
INTEGER DAR_ratetot_unit |
201 |
|
INTEGER DAR_fluxtot_unit |
202 |
|
#endif |
203 |
|
|
204 |
#ifdef ALLOW_PAR_DAY |
#ifdef ALLOW_PAR_DAY |
205 |
C PARday :: array for accumulating/storing daily-averaged PAR |
C PARday :: array for accumulating/storing daily-averaged PAR |
206 |
COMMON /DARWIN_PAR_DAY/ PARday, |
COMMON /DARWIN_PAR_DAY/ PARday, |