source:
trunk/NEMO/TOP_SRC/trclsm.F90
@
310
Last change on this file since 310 was 274, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 2.0 KB |
Rev | Line | |
---|---|---|
[268] | 1 | MODULE trclsm |
2 | !!======================================================================================= | |
3 | !! | |
4 | !! *** MODULE trclsm **** | |
5 | !! | |
6 | !! READS specific NAMELIST for sms terms | |
7 | !! | |
8 | !!======================================================================================= | |
[274] | 9 | !! TOP 1.0, LOCEAN-IPSL (2005) |
10 | !! $Header$ | |
11 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt | |
12 | !!---------------------------------------------------------------------- | |
[268] | 13 | !!---------------------------------------------------------------------- |
14 | !! * Modules used | |
15 | !! ============== | |
16 | USE oce_trc | |
17 | USE trc | |
18 | USE sms | |
19 | ||
20 | ||
21 | IMPLICIT NONE | |
22 | PRIVATE | |
23 | ||
24 | !! * Accessibility | |
25 | PUBLIC trc_lsm | |
26 | ||
27 | CONTAINS | |
28 | ||
29 | #if defined key_passivetrc | |
30 | ||
31 | SUBROUTINE trc_lsm | |
32 | !!--------------------------------------------------------------------- | |
33 | !! | |
34 | !! ROUTINE trclsm | |
35 | !! ****************** | |
36 | !! PURPOSE : | |
37 | !! --------- | |
38 | !! READS specific NAMELIST for sms terms | |
39 | !! | |
40 | !! History: | |
41 | !! -------- | |
42 | !! original : 99-10 (M.A. Foujols, M. Levy) passive tracer | |
43 | !! 00-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD | |
44 | !! 02-05 (O. Aumont) AGE TRACER | |
45 | !! 03/2005 O. Aumont and A. El Moussaoui F90 | |
46 | !!---------------------------------------------------------------------- | |
47 | ||
48 | # if defined key_trc_npzd | |
49 | # include "trclsm.npzd.h90" | |
50 | # elif defined key_trc_lobster1 | |
51 | # include "trclsm.lobster1.h90" | |
52 | # elif defined key_trc_hamocc3 | |
53 | # include "trclsm.hamocc3.h90" | |
54 | # elif defined key_trc_age | |
55 | # include "trclsm.age.h90" | |
56 | # elif defined key_trc_pisces | |
57 | # include "trclsm.pisces.h90" | |
58 | # else | |
59 | !! user can define here his own sms namelist | |
60 | # endif | |
61 | ||
62 | END SUBROUTINE trc_lsm | |
63 | ||
64 | #else | |
65 | ||
66 | SUBROUTINE trc_lsm | |
67 | !!================ | |
68 | !! no passive tracers | |
69 | END SUBROUTINE trc_lsm | |
70 | ||
71 | #endif | |
72 | ||
73 | END MODULE trclsm |
Note: See TracBrowser
for help on using the repository browser.