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_ironUnits :: units of data in iron file; one of mol Fe/m2/s, kg dust/m2/s |
27 |
|
C darwin_dustFrac :: fraction of dust by weight that is iron |
28 |
C darwin_forcingPeriod :: perioDARWIN forcing parameter specific for DARWIN (seconds) |
C darwin_forcingPeriod :: perioDARWIN forcing parameter specific for DARWIN (seconds) |
29 |
C darwin_forcingCycle :: perioDARWIN forcing parameter specific for DARWIN (seconds) |
C darwin_forcingCycle :: perioDARWIN forcing parameter specific for DARWIN (seconds) |
30 |
C darwin_seed :: seed for the random number generator |
C darwin_seed :: seed for the random number generator |
43 |
& darwin_waterabsorbFile, darwin_phytoabsorbFile, |
& darwin_waterabsorbFile, darwin_phytoabsorbFile, |
44 |
& darwin_surfacespecFile, darwin_acdomFile, |
& darwin_surfacespecFile, darwin_acdomFile, |
45 |
& darwin_particleabsorbFile, |
& darwin_particleabsorbFile, |
46 |
|
& darwin_PARunits, darwin_ironUnits, |
47 |
|
& darwin_PARFileConv, darwin_ironFileConv, |
48 |
|
& darwin_dustFrac, |
49 |
|
& darwin_W_to_uEins, |
50 |
& darwin_forcingPeriod, darwin_forcingCycle, |
& darwin_forcingPeriod, darwin_forcingCycle, |
51 |
& darwin_seed |
& darwin_seed |
52 |
|
|
69 |
CHARACTER*(MAX_LEN_FNAM) darwin_particleabsorbFile |
CHARACTER*(MAX_LEN_FNAM) darwin_particleabsorbFile |
70 |
CHARACTER*(MAX_LEN_FNAM) darwin_surfacespecFile |
CHARACTER*(MAX_LEN_FNAM) darwin_surfacespecFile |
71 |
CHARACTER*(MAX_LEN_FNAM) darwin_acdomFile |
CHARACTER*(MAX_LEN_FNAM) darwin_acdomFile |
72 |
|
CHARACTER*(MAX_LEN_FNAM) darwin_PARunits |
73 |
|
CHARACTER*(MAX_LEN_FNAM) darwin_ironUnits |
74 |
|
|
75 |
_RL darwin_relaxscale |
_RL darwin_relaxscale |
76 |
_RL darwin_forcingPeriod |
_RL darwin_forcingPeriod |
77 |
_RL darwin_forcingCycle |
_RL darwin_forcingCycle |
78 |
|
_RL darwin_PARFileConv |
79 |
|
_RL darwin_W_to_uEins |
80 |
|
_RL darwin_ironFileConv |
81 |
|
_RL darwin_dustFrac |
82 |
INTEGER darwin_seed |
INTEGER darwin_seed |
83 |
|
|
84 |
c INPUT: |
c INPUT: |
122 |
c Zoograzave - average zooplankton consumption |
c Zoograzave - average zooplankton consumption |
123 |
c Parave - average PAR |
c Parave - average PAR |
124 |
c Chlave - average chlorophyll |
c Chlave - average chlorophyll |
125 |
c npzd_timeave - time for averaging |
c npzd_timeave - time for averaging |
126 |
|
c Nlim,Flim,etc- Quota model average limitation factors |
127 |
|
|
128 |
COMMON /DARWIN_OUPUT/ |
COMMON /DARWIN_OUPUT/ |
129 |
& PPave, Nfixave, Zoograzave, |
& PPave, Nfixave, Zoograzave, |
130 |
& PARave, Chlave, Denitave, |
& PARave, Chlave, Denitave, |
131 |
|
#ifdef QUOTA_DIAG_LIMIT |
132 |
|
& Nlimave,Flimave,Ilimave,Tlimave, |
133 |
|
#endif |
134 |
c ANNA_TAVE |
c ANNA_TAVE |
135 |
#ifdef WAVES_DIAG_PCHL |
#ifdef WAVES_DIAG_PCHL |
136 |
& Pchlave, |
& Pchlave, |
161 |
_RL PARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy) |
_RL PARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy) |
162 |
_RL Chlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy) |
_RL Chlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy) |
163 |
_RL Denitave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy) |
_RL Denitave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy) |
164 |
|
#ifdef QUOTA_DIAG_LIMIT |
165 |
|
_RL Nlimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy, npmax) |
166 |
|
_RL Flimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy, npmax) |
167 |
|
_RL Ilimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy, npmax) |
168 |
|
_RL Tlimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy) |
169 |
|
#endif |
170 |
c ANNA_TAVE |
c ANNA_TAVE |
171 |
#ifdef WAVES_DIAG_PCHL |
#ifdef WAVES_DIAG_PCHL |
172 |
_RL Pchlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax) |
_RL Pchlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax) |
211 |
INTEGER DAR_cons_unit7 |
INTEGER DAR_cons_unit7 |
212 |
#endif |
#endif |
213 |
|
|
214 |
|
#ifdef CALC_RATE_TOTALS |
215 |
|
COMMON /DARWIN_RATE_TOT/ |
216 |
|
& DAR_ratetot_unit, DAR_fluxtot_unit |
217 |
|
INTEGER DAR_ratetot_unit |
218 |
|
INTEGER DAR_fluxtot_unit |
219 |
|
#endif |
220 |
|
|
221 |
#ifdef ALLOW_PAR_DAY |
#ifdef ALLOW_PAR_DAY |
222 |
C PARday :: array for accumulating/storing daily-averaged PAR |
C PARday :: array for accumulating/storing daily-averaged PAR |
223 |
COMMON /DARWIN_PAR_DAY/ PARday, |
COMMON /DARWIN_PAR_DAY/ PARday, |