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/SMS – NEMO

source: trunk/NEMO/TOP_SRC/SMS/trp_trc.F90 @ 719

Last change on this file since 719 was 719, checked in by ctlod, 17 years ago

get back to the nemo_v2_3 version for trunk

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