source:
trunk/NEMO/TOP_SRC/SMS/sms.F90
@
535
Last change on this file since 535 was 341, checked in by opalod, 19 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) |
10 | !! $Header$ | |
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 | |
19 | IMPLICIT NONE | |
[336] | 20 | |
21 | #if defined key_trc_lobster1 | |
22 | !!---------------------------------------------------------------------- | |
23 | !! 'key_trc_lobster1' LOBSTER1 biological model | |
24 | !!---------------------------------------------------------------------- | |
25 | # include "sms_lobster1.h90" | |
26 | ||
27 | #elif defined key_trc_pisces | |
28 | !!---------------------------------------------------------------------- | |
29 | !! 'key_trc_pisces' PISCES biological model | |
30 | !!---------------------------------------------------------------------- | |
31 | # include "sms_pisces.h90" | |
32 | ||
33 | #elif defined key_cfc | |
34 | !!---------------------------------------------------------------------- | |
35 | !! 'key_cfc ' CFC model | |
36 | !!---------------------------------------------------------------------- | |
37 | # include "sms_cfc.h90" | |
38 | ||
39 | #endif | |
40 | ||
[186] | 41 | #else |
[336] | 42 | !!====================================================================== |
43 | !! Empty module : No passive tracer | |
44 | !!====================================================================== | |
[186] | 45 | #endif |
46 | ||
47 | END MODULE sms |
Note: See TracBrowser
for help on using the repository browser.