source:
trunk/NEMO/TOP_SRC/SMS/sms.F90
@
853
Last change on this file since 853 was 719, checked in by ctlod, 17 years ago | |
---|---|
|
|
File size: 1.8 KB |
Rev | Line | |
---|---|---|
[186] | 1 | MODULE sms |
[336] | 2 | !!====================================================================== |
3 | !! *** sms *** | |
4 | !! passive tracers : set the passive tracers variables | |
5 | !!====================================================================== | |
6 | !! History : | |
7 | !! 9.0 ! 04-03 (C. Ethe) Free form and module | |
8 | !!---------------------------------------------------------------------- | |
[341] | 9 | !! TOP 1.0 , LOCEAN-IPSL (2005) |
[719] | 10 | !! $Header$ |
[341] | 11 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
[336] | 12 | !!---------------------------------------------------------------------- |
13 | !! * Modules used | |
[186] | 14 | #if defined key_passivetrc |
15 | ||
16 | USE par_oce | |
17 | USE par_trc | |
18 | USE par_sms | |
[617] | 19 | |
[186] | 20 | IMPLICIT NONE |
[336] | 21 | |
[617] | 22 | PUBLIC |
23 | ||
[336] | 24 | #if defined key_trc_lobster1 |
25 | !!---------------------------------------------------------------------- | |
26 | !! 'key_trc_lobster1' LOBSTER1 biological model | |
27 | !!---------------------------------------------------------------------- | |
28 | # include "sms_lobster1.h90" | |
29 | ||
30 | #elif defined key_trc_pisces | |
31 | !!---------------------------------------------------------------------- | |
32 | !! 'key_trc_pisces' PISCES biological model | |
33 | !!---------------------------------------------------------------------- | |
34 | # include "sms_pisces.h90" | |
35 | ||
36 | #elif defined key_cfc | |
37 | !!---------------------------------------------------------------------- | |
38 | !! 'key_cfc ' CFC model | |
39 | !!---------------------------------------------------------------------- | |
40 | # include "sms_cfc.h90" | |
41 | ||
42 | #endif | |
43 | ||
[186] | 44 | #else |
[336] | 45 | !!====================================================================== |
46 | !! Empty module : No passive tracer | |
47 | !!====================================================================== | |
[186] | 48 | #endif |
49 | ||
50 | END MODULE sms |
Note: See TracBrowser
for help on using the repository browser.