189 |
darwin_bbphy(i) = 0 _d 0 |
darwin_bbphy(i) = 0 _d 0 |
190 |
enddo |
enddo |
191 |
darwin_radtrans_kmax = Nr |
darwin_radtrans_kmax = Nr |
192 |
darwin_radtrans_niter = 1 |
darwin_radtrans_niter = -2 |
193 |
darwin_part_size_P = 1 _d -15 ! mmol P per particle |
darwin_part_size_P = 1 _d -15 ! mmol P per particle |
194 |
#endif |
#endif |
195 |
#endif /* WAVEBANDS */ |
#endif /* WAVEBANDS */ |
416 |
&' /* deepest level in which to compute irradiances */') |
&' /* deepest level in which to compute irradiances */') |
417 |
CALL WRITE_0D_I( darwin_radtrans_niter, INDEX_NONE, |
CALL WRITE_0D_I( darwin_radtrans_niter, INDEX_NONE, |
418 |
& 'darwin_radtrans_niter =', |
& 'darwin_radtrans_niter =', |
419 |
&' /* number of "radtrans improvement" iterations */') |
&' /* iterations/method for solveing 3-stream equations */') |
420 |
#endif /* DAR_RADTRANS */ |
#endif /* DAR_RADTRANS */ |
421 |
#endif /* WAVEBANDS */ |
#endif /* WAVEBANDS */ |
422 |
|
|