source:
trunk/NEMO/TOP_SRC/trcdia.F
@
247
Last change on this file since 247 was 247, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 694 bytes |
Line | |
---|---|
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 | CDIR$ LIST |
7 | SUBROUTINE trcdia(kt,kindic) |
8 | IMPLICIT NONE |
9 | INTEGER kt, kindic |
10 | C |
11 | C outputs for tracer concentration |
12 | C |
13 | CALL trcdit(kt,kindic) |
14 | #if defined key_trc_diatrd |
15 | C |
16 | C outputs for dynamical trends |
17 | C |
18 | CALL trcdid(kt,kindic) |
19 | |
20 | #endif |
21 | #if defined key_trc_diaadd |
22 | C |
23 | C outputs for additional arrays |
24 | C |
25 | CALL trcdii(kt,kindic) |
26 | #endif |
27 | #if defined key_trc_diabio |
28 | C |
29 | C outputs for biological trends |
30 | C |
31 | CALL trcdib(kt,kindic) |
32 | #endif |
33 | RETURN |
34 | END |
Note: See TracBrowser
for help on using the repository browser.