source:
trunk/NEMO/TOP_SRC/par_trc.F90
@
853
Last change on this file since 853 was 724, checked in by cetlod, 17 years ago | |
---|---|
|
|
File size: 1.6 KB |
Rev | Line | |
---|---|---|
[186] | 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 | !!---------------------------------------------------------------------- | |
[274] | 12 | !! TOP 1.0, LOCEAN-IPSL (2005) |
[724] | 13 | !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/par_trc.F90,v 1.6 2007/10/12 09:22:19 opalod Exp $ |
[274] | 14 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
[186] | 15 | !!---------------------------------------------------------------------- |
16 | !! * Modules used | |
17 | #if defined key_passivetrc | |
18 | ||
19 | USE par_trc_trp | |
20 | ||
21 | IMPLICIT NONE | |
22 | PUBLIC | |
23 | ||
24 | ||
25 | #if defined key_trc_diatrd | |
26 | ||
27 | !! number of dynamical trends | |
[560] | 28 | # if defined key_trcldf_eiv |
[186] | 29 | !! we keep 3 more trends for eddy induced flux (gent velocity) |
30 | # if defined key_trcdmp | |
[724] | 31 | INTEGER , PARAMETER :: jpdiatrc = 11 |
32 | # else | |
[186] | 33 | INTEGER , PARAMETER :: jpdiatrc = 10 |
34 | # endif | |
35 | # else | |
36 | # if defined key_trcdmp | |
[724] | 37 | INTEGER , PARAMETER :: jpdiatrc = 8 |
38 | # else | |
[186] | 39 | INTEGER , PARAMETER :: jpdiatrc = 7 |
40 | # endif | |
41 | # endif | |
42 | # endif | |
43 | ||
44 | #else | |
45 | !!====================================================================== | |
46 | !! Empty module : No passive tracer | |
47 | !!====================================================================== | |
48 | #endif | |
49 | ||
50 | END MODULE par_trc |
Note: See TracBrowser
for help on using the repository browser.