source:
tags/nemo_dev_x9/NEMO/TOP_SRC/par_trc.F90
@
8095
Last change on this file since 8095 was 186, checked in by opalod, 20 years ago | |
---|---|
|
|
File size: 1.4 KB |
Line | |
---|---|
1 | MODULE par_trc |
2 | !!====================================================================== |
3 | !! *** par_trc *** |
4 | !! passive tracers : set the passive tracers parameters |
5 | !!====================================================================== |
6 | !! History : |
7 | !! 8.2 ! 96-01 (M. Levy) Original code |
8 | !! ! 99-07 (M. Levy) for LOBSTER1 or NPZD model |
9 | !! ! 00-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD |
10 | !! 9.0 ! 04-03 (C. Ethe) Free form and module |
11 | !!---------------------------------------------------------------------- |
12 | !! OPA 9.0, LODYC-IPSL (2004) |
13 | !!---------------------------------------------------------------------- |
14 | !! * Modules used |
15 | #if defined key_passivetrc |
16 | |
17 | USE par_trc_trp |
18 | |
19 | IMPLICIT NONE |
20 | PUBLIC |
21 | |
22 | |
23 | #if defined key_trc_diatrd |
24 | |
25 | !! number of dynamical trends |
26 | # if defined key_trc_ldfeiv |
27 | !! we keep 3 more trends for eddy induced flux (gent velocity) |
28 | # if defined key_trcdmp |
29 | INTEGER , PARAMETER :: jpdiatrc = 10 |
30 | # else |
31 | INTEGER , PARAMETER :: jpdiatrc = 9 |
32 | # endif |
33 | # else |
34 | # if defined key_trcdmp |
35 | INTEGER , PARAMETER :: jpdiatrc = 7 |
36 | # else |
37 | INTEGER , PARAMETER :: jpdiatrc = 6 |
38 | # endif |
39 | # endif |
40 | # endif |
41 | |
42 | #else |
43 | !!====================================================================== |
44 | !! Empty module : No passive tracer |
45 | !!====================================================================== |
46 | #endif |
47 | |
48 | END MODULE par_trc |
Note: See TracBrowser
for help on using the repository browser.