New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trp_trc.F90 in trunk/NEMO/TOP_SRC – NEMO

source: trunk/NEMO/TOP_SRC/trp_trc.F90 @ 946

Last change on this file since 946 was 946, checked in by cetlod, 16 years ago

Update modules for new version of TOP model, see ticket 144

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: trp_trc.F90 772 2007-12-17 11:59:33Z gm $
10   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
11   !!----------------------------------------------------------------------
12#if defined key_top
13   !!----------------------------------------------------------------------
14   !!   'key_top'                                                TOP models
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.