source: branches/dev_001_GM/NEMO/TOP_SRC/trp_trc.F90 @ 771

Last change on this file since 771 was 771, checked in by gm, 13 years ago

dev_001_GM - small error corrections

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.3 KB
Line 
1MODULE trp_trc
2   !!======================================================================
3   !!                         ***  MODULE trp_trc  ***
4   !! TOP :   TOP parameters used in TRP
5   !!======================================================================
6   !! History :   1.0  !  2004-03 (C. Ethe) original code
7   !!----------------------------------------------------------------------
8   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
9   !! $Id$
10   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
11   !!----------------------------------------------------------------------
12#if defined key_passivetrc
13   !!----------------------------------------------------------------------
14   !!   'key_passivetrc'                                          TOP model
15   !!----------------------------------------------------------------------
16
17   !! passive tracers number
18   USE par_trc, ONLY :   jptra    =>   jptra    !: number of passive tracers
19
20   !! passive tracers fields
21   USE trc    , ONLY :   trai     =>   trai     !: initial total tracer
22   USE trc    , ONLY :   trb      =>   trb      !: tracer field (before)
23   USE trc    , ONLY :   tra      =>   tra      !: tracer field (now)
24   USE trc    , ONLY :   trn      =>   trn      !: tracer field (after)
25
26   !! time step
27   USE trc    , ONLY :   ndttrc   =>   ndttrc   !: frequency of step on passive tracers (NAMELIST)
28
29   !! non-centered advection scheme (smolarkiewicz)
30   USE trc    , ONLY :   rtrn     =>   rtrn     !: value for truncation (NAMELIST)
31   USE trc    , ONLY :   ctrcnm   =>   ctrcnm   !: value for truncation (NAMELIST)
32
33# if defined key_trc_diaadd
34   USE par_trc, ONLY :   jpdia2d  =>  jpdia2d   !: number of 2D passive tracers diag
35   USE par_trc, ONLY :   jpdia3d  =>  jpdia3d   !: number of 3D passive tracers diag
36   USE trc    , ONLY :   trc2d    =>   trc2d    !: additional 2D variable for ouputs
37   USE trc    , ONLY :   trc3d    =>   trc3d    !: additional 3D variable for ouputs
38# endif
39
40#else
41   !!----------------------------------------------------------------------
42   !!  Empty module :                                     No passive tracer
43   !!----------------------------------------------------------------------
44#endif
45
46   !!======================================================================
47END MODULE trp_trc
Note: See TracBrowser for help on using the repository browser.