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