1 | |
---|
2 | CCC $Header$ |
---|
3 | CCC TOP 1.0 , LOCEAN-IPSL (2005) |
---|
4 | C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
---|
5 | C --------------------------------------------------------------------------- |
---|
6 | CCC $Header$ |
---|
7 | CDIR$ LIST |
---|
8 | SUBROUTINE trcbio(kt) |
---|
9 | CCC--------------------------------------------------------------------- |
---|
10 | CCC |
---|
11 | CCC ROUTINE trcbio |
---|
12 | CCC ******************* |
---|
13 | CCC |
---|
14 | CCC PURPOSE : |
---|
15 | CCC --------- |
---|
16 | CCC compute the now trend due to biogeochemical processes |
---|
17 | CCC and add it to the general trend of passive tracers equations. |
---|
18 | CCC |
---|
19 | CCC Three options: |
---|
20 | CCC Default option : no biological trend |
---|
21 | CCC If 'key_trc_npzd' : NPZD model |
---|
22 | CCC IF 'key_trc_lobster1' : LOBSTER1 model |
---|
23 | CCC |
---|
24 | CC METHOD : |
---|
25 | CC ------- |
---|
26 | CC each now biological flux is calculated in FUNCTION of now |
---|
27 | CC concentrations of tracers. |
---|
28 | CC depending on the tracer, these fluxes are sources or sinks. |
---|
29 | CC the total of the sources and sinks for each tracer |
---|
30 | CC is added to the general trend. |
---|
31 | CC |
---|
32 | CC tra = tra + zf...tra - zftra... |
---|
33 | CC | | |
---|
34 | CC | | |
---|
35 | CC source sink |
---|
36 | CC |
---|
37 | CC |
---|
38 | CC IF 'key_trc_diabio' key is activated, the biogeochemical |
---|
39 | CC trends for passive tracers are saved for futher diagnostics. |
---|
40 | CC |
---|
41 | CC multitasked on vertical slab (jj-loop) |
---|
42 | CC |
---|
43 | CCC MODIFICATIONS: |
---|
44 | CC -------------- |
---|
45 | CC original : 95-02 (M. Levy, NPZD model) |
---|
46 | CC 99-07 (M. Levy, LOBSTER1 model) |
---|
47 | CCC--------------------------------------------------------------------- |
---|
48 | CCC OPA8, LODYC (15/11/96) |
---|
49 | CCC--------------------------------------------------------------------- |
---|
50 | #if defined key_passivetrc |
---|
51 | # if defined key_trc_npzd |
---|
52 | # include "trcbio.npzd.h" |
---|
53 | # elif defined key_trc_lobster1 |
---|
54 | # include "trcbio.lobster1.h" |
---|
55 | # else |
---|
56 | C |
---|
57 | C no biological model |
---|
58 | C |
---|
59 | # endif |
---|
60 | #endif |
---|
61 | C |
---|
62 | C |
---|
63 | RETURN |
---|
64 | END |
---|