269 |
c set zoo mortality |
c set zoo mortality |
270 |
ZoomortSmall = 1.0 _d 0/(30.0 _d 0*pday) |
ZoomortSmall = 1.0 _d 0/(30.0 _d 0*pday) |
271 |
ZoomortBig = 1.0 _d 0/(30.0 _d 0*pday) |
ZoomortBig = 1.0 _d 0/(30.0 _d 0*pday) |
272 |
|
ZoomortSmall2 = 0. _d 0 |
273 |
|
ZoomortBig2 = 0. _d 0 |
274 |
c set zoo exportfrac |
c set zoo exportfrac |
275 |
ZooexfacSmall = 0.2 _d 0 |
ZooexfacSmall = 0.2 _d 0 |
276 |
ZooexfacBig = 0.7 _d 0 |
ZooexfacBig = 0.7 _d 0 |
307 |
Pa2Atm = 1.01325 _d 5 |
Pa2Atm = 1.01325 _d 5 |
308 |
#endif |
#endif |
309 |
|
|
310 |
|
#ifdef ALLOW_CDOM |
311 |
|
fraccdom=2. _d 0 / 100. _d 0 |
312 |
|
cdomdegrd= 1. _d 0 / (200 _d 0 *pday) |
313 |
|
cdombleach = 1. _d 0 / (15 _d 0 *pday) |
314 |
|
PARcdom = 20. _d 0 |
315 |
|
rnp_cdom = 16. _d 0 |
316 |
|
rfep_cdom = 1. _d -3 |
317 |
|
rcp_cdom = 120. _d 0 |
318 |
|
cdomcoeff = .1 _d -1 / 1.d -4 |
319 |
|
#endif |
320 |
|
|
321 |
C make sure we have reserved enough space in Ptracers |
C make sure we have reserved enough space in Ptracers |
322 |
IF ( nCompZooMax .LT. 4 ) THEN |
IF ( nCompZooMax .LT. 4 ) THEN |
323 |
WRITE(msgBuf,'(A,A,I3)') |
WRITE(msgBuf,'(A,A,I3)') |
349 |
diver_thresh3=.999 _d 0 |
diver_thresh3=.999 _d 0 |
350 |
c diver4 - fraction of maximum species |
c diver4 - fraction of maximum species |
351 |
diver_thresh4=1 _d -5 |
diver_thresh4=1 _d -5 |
352 |
|
c threshold on total biomass for contributing to Shannon and Simpson ind |
353 |
|
c (these become large at very small biomass) |
354 |
|
shannon_thresh = 1 _d -8 ! mmol P m-3 |
355 |
#endif |
#endif |
356 |
|
|
357 |
c set up diagnostics |
c set up diagnostics |