source:
trunk/NEMO/TOP_SRC/SMS/trp_trc.F90
@
186
Last change on this file since 186 was 186, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.5 KB |
Rev | Line | |
---|---|---|
[186] | 1 | MODULE trp_trc |
2 | ||
3 | #if defined key_passivetrc | |
4 | !!====================================================================== | |
5 | !! Module trp_trc | |
6 | !!====================================================================== | |
7 | !! passive tracers number | |
8 | USE par_trc_trp , ONLY : & | |
9 | jptra => jptra !!: number of passive tracers | |
10 | ||
11 | #if defined key_trc_diaadd | |
12 | USE par_trc_trp , ONLY : & | |
13 | jpdia2d => jpdia2d , & !!: number of passive tracers | |
14 | jpdia3d => jpdia3d | |
15 | #endif | |
16 | ||
17 | !! passive tracers fields | |
18 | USE trc , ONLY : & | |
19 | trai => trai , & !!: initial total tracer | |
20 | trb => trb , & !!: tracer field (before) | |
21 | tra => tra , & !!: tracer field (now) | |
22 | trn => trn !!: tracer field (after) | |
23 | ||
24 | #if defined key_trc_diaadd | |
25 | USE trc , ONLY : & | |
26 | trc2d => trc2d , & !!: additional 2D variable for ouputs | |
27 | trc3d => trc3d !!: additional 3D variable for ouputs | |
28 | #endif | |
29 | !! time step | |
30 | USE trc , ONLY : & | |
31 | ndttrc => ndttrc !!: frequency of step on passive tracers (NAMELIST) | |
32 | ||
33 | !! non-centered advection scheme (smolarkiewicz) | |
34 | USE trc , ONLY : & | |
35 | rtrn => rtrn !!: value for truncation (NAMELIST) | |
36 | ||
37 | USE trc , ONLY : & | |
38 | ctrcnm => ctrcnm !!: value for truncation (NAMELIST) | |
39 | #else | |
40 | !!====================================================================== | |
41 | !! Empty module : No passive tracer | |
42 | !!====================================================================== | |
43 | #endif | |
44 | ||
45 | END MODULE trp_trc |
Note: See TracBrowser
for help on using the repository browser.