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.
par_trc.F90 in tags/nemo_v2_3/NEMO/TOP_SRC – NEMO

source: tags/nemo_v2_3/NEMO/TOP_SRC/par_trc.F90 @ 732

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

Update modules for passive tracers transport trends computation, see ticket:13

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.6 KB
Line 
1MODULE par_trc
2   !!======================================================================
3   !!                        ***  par_trc  ***
4   !! passive tracers :   set the passive tracers parameters
5   !!======================================================================
6   !! History :
7   !!   8.2  !  96-01  (M. Levy)  Original code
8   !!        !  99-07  (M. Levy)  for LOBSTER1 or NPZD model
9   !!        !  00-04  (O. Aumont, M.A. Foujols)  HAMOCC3 and P3ZD
10   !!   9.0  !  04-03  (C. Ethe)  Free form and module
11   !!----------------------------------------------------------------------
12   !!  TOP 1.0,  LOCEAN-IPSL (2005)
13   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/par_trc.F90,v 1.6 2007/10/12 09:22:19 opalod Exp $
14   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
15   !!----------------------------------------------------------------------
16   !! * Modules used
17#if defined key_passivetrc
18
19   USE par_trc_trp
20
21   IMPLICIT NONE
22   PUBLIC
23
24
25#if defined key_trc_diatrd
26
27!! number of dynamical trends
28#  if defined key_trcldf_eiv
29!! we keep 3 more trends for eddy induced flux (gent velocity)
30#    if defined key_trcdmp
31   INTEGER , PARAMETER :: jpdiatrc = 11
32#    else
33   INTEGER , PARAMETER :: jpdiatrc = 10
34#    endif
35#  else
36#    if defined key_trcdmp
37   INTEGER , PARAMETER :: jpdiatrc = 8
38#    else
39   INTEGER , PARAMETER :: jpdiatrc = 7
40#    endif
41#  endif
42# endif
43
44#else
45   !!======================================================================
46   !!  Empty module : No passive tracer
47   !!======================================================================
48#endif
49
50END MODULE par_trc
Note: See TracBrowser for help on using the repository browser.