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 |
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 | |
20 | IMPLICIT NONE |
21 | |
22 | PUBLIC |
23 | |
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 | |
44 | #else |
45 | !!====================================================================== |
46 | !! Empty module : No passive tracer |
47 | !!====================================================================== |
48 | #endif |
49 | |
50 | END MODULE sms |
Note: See TracBrowser
for help on using the repository browser.