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 |
Line | |
---|---|
1 | MODULE sms |
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 | !!---------------------------------------------------------------------- |
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 | !!---------------------------------------------------------------------- |
13 | !! * Modules used |
14 | #if defined key_passivetrc |
15 | |
16 | USE par_oce |
17 | USE par_trc |
18 | USE par_sms |
19 | IMPLICIT NONE |
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 | |
41 | #else |
42 | !!====================================================================== |
43 | !! Empty module : No passive tracer |
44 | !!====================================================================== |
45 | #endif |
46 | |
47 | END MODULE sms |
Note: See TracBrowser
for help on using the repository browser.