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