source:
trunk/NEMO/TOP_SRC/trclsm.F90
@
336
Last change on this file since 336 was 335, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.9 KB |
Line | |
---|---|
1 | MODULE trclsm |
2 | !!=============================================================== |
3 | !! |
4 | !! *** MODULE trclsm **** |
5 | !! |
6 | !! READS specific NAMELIST for sms terms |
7 | !! |
8 | !!================================================================= |
9 | !! TOP 1.0, LOCEAN-IPSL (2005) |
10 | !!----------------------------------------------------------------- |
11 | #if defined key_passivetrc |
12 | !!------------------------------------------------------------- |
13 | !! * Modules used |
14 | !! ============== |
15 | USE oce_trc |
16 | USE trc |
17 | USE sms |
18 | |
19 | |
20 | IMPLICIT NONE |
21 | PRIVATE |
22 | |
23 | !! * Accessibility |
24 | PUBLIC trc_lsm |
25 | |
26 | |
27 | #if defined key_trc_lobster1 |
28 | !!---------------------------------------------------------------------- |
29 | !! 'key_trc_lobster1' LOBSTER1 biological model |
30 | !!---------------------------------------------------------------------- |
31 | # include "trclsm.lobster1.h90" |
32 | |
33 | #elif defined key_trc_pisces |
34 | !!---------------------------------------------------------------------- |
35 | !! 'key_trc_pisces' PISCES biological model |
36 | !!---------------------------------------------------------------------- |
37 | # include "trclsm.pisces.h90" |
38 | |
39 | #elif defined key_cfc |
40 | !!---------------------------------------------------------------------- |
41 | !! 'key_cfc ' CFC model |
42 | !!---------------------------------------------------------------------- |
43 | # include "trclsm.cfc.h90" |
44 | |
45 | !!---------------------------------------------------------------------- |
46 | !! Default option |
47 | !!---------------------------------------------------------------------- |
48 | # endif |
49 | |
50 | #else |
51 | |
52 | CONTAINS |
53 | |
54 | SUBROUTINE trc_lsm |
55 | !!================ |
56 | !! no passive tracers |
57 | END SUBROUTINE trc_lsm |
58 | |
59 | #endif |
60 | |
61 | END MODULE trclsm |
Note: See TracBrowser
for help on using the repository browser.