source:
trunk/NEMO/TOP_SRC/trclsm.F
@
201
Last change on this file since 201 was 186, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.3 KB |
Rev | Line | |
---|---|---|
[186] | 1 | C $Id$ |
2 | CDIR$ LIST | |
3 | SUBROUTINE trclsm | |
4 | CCC--------------------------------------------------------------------- | |
5 | CCC | |
6 | CCC ROUTINE trclsm | |
7 | CCC ****************** | |
8 | CCC | |
9 | CCC PURPOSE : | |
10 | CCC --------- | |
11 | CCC READS specific NAMELIST for sms terms | |
12 | CCC | |
13 | CC METHOD : : no | |
14 | CC ------- | |
15 | CC | |
16 | CC INPUT : | |
17 | CC ----- | |
18 | CC | |
19 | CC OUTPUT : | |
20 | CC ------ | |
21 | CC | |
22 | CC WORKSPACE : : no | |
23 | CC --------- | |
24 | CC | |
25 | CC MODIFICATIONS: | |
26 | CC -------------- | |
27 | CC original : 99-10 (M.A. Foujols, M. Levy) passive tracer | |
28 | CC 00-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD | |
29 | CC 02-05 (O. Aumont) AGE TRACER | |
30 | CC---------------------------------------------------------------------- | |
31 | CC parameters and commons | |
32 | CC ====================== | |
33 | CDIR$ NOLIST | |
34 | USE oce_trc | |
35 | USE trc | |
36 | USE sms | |
37 | IMPLICIT NONE | |
38 | CDIR$ LIST | |
39 | ||
40 | #if defined key_passivetrc | |
41 | ||
42 | # if defined key_trc_npzd | |
43 | # include "trclsm.npzd.h" | |
44 | # elif defined key_trc_lobster1 | |
45 | # include "trclsm.lobster1.h" | |
46 | # elif defined key_trc_hamocc3 | |
47 | # include "trclsm.hamocc3.h" | |
48 | # elif defined key_trc_age | |
49 | # include "trclsm.age.h" | |
50 | # elif defined key_trc_pisces | |
51 | # include "trclsm.pisces.h" | |
52 | # else | |
53 | C user can define here his own sms namelist | |
54 | # endif | |
55 | #else | |
56 | C | |
57 | C no passive tracers | |
58 | C | |
59 | #endif | |
60 | RETURN | |
61 | END |
Note: See TracBrowser
for help on using the repository browser.