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 | |
| Line | |
|---|---|
| 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.
