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