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 branches/dev_001_GM/NEMO/TOP_SRC – NEMO

source: branches/dev_001_GM/NEMO/TOP_SRC/par_trc.F90 @ 763

Last change on this file since 763 was 763, checked in by gm, 16 years ago

dev_001_GM - Style only addition in TOP F90 h90 routines

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.3 KB
Line 
1MODULE par_trc
2   !!======================================================================
3   !!                        ***  par_trc  ***
4   !! TOP :   set the passive tracers parameters
5   !!======================================================================
6   !! History :    -   !  1996-01  (M. Levy)  original code
7   !!              -   !  1999-07  (M. Levy)  for LOBSTER1 or NPZD model
8   !!              -   !  2000-04  (O. Aumont, M.A. Foujols)  HAMOCC3 and P3ZD
9   !!             1.0  !  2004-03  (C. Ethe) Free form and module
10   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  rewritting
11   !!----------------------------------------------------------------------
12   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
13   !! $Header:$
14   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
15   !!----------------------------------------------------------------------
16#if defined key_passivetrc
17   !!----------------------------------------------------------------------
18   !!   'key_passivetrc'                                    Passive tracers
19   !!----------------------------------------------------------------------
20   USE par_trc_trp
21
22   IMPLICIT NONE
23   PUBLIC
24
25# if defined key_trc_diatrd
26   !!----------------------------------------------------------------------
27   !!   'key_trc_diatrd'                                  trend diagnostics
28   !!----------------------------------------------------------------------
29#  if defined key_trcldf_eiv
30#   if defined key_trcdmp
31   INTEGER, PARAMETER :: jpdiatrc = 11      !: trends: 3*(advection + diffusion + eiv ) + damping + sms
32#   else
33   INTEGER, PARAMETER :: jpdiatrc = 10      !: trends: 3*(advection + diffusion + eiv )           + sms
34#   endif
35#  else
36#   if defined key_trcdmp
37   INTEGER, PARAMETER :: jpdiatrc =  8      !: trends: 3*(advection + diffusion       ) + damping + sms
38#   else
39   INTEGER, PARAMETER :: jpdiatrc =  7      !: trends: 3*(advection + diffusion       ) + damping + sms
40#   endif
41#  endif
42
43# endif
44
45#else
46   !!======================================================================
47   !!  Empty module :                                     No passive tracer
48   !!======================================================================
49#endif
50
51   !!======================================================================
52END MODULE par_trc
Note: See TracBrowser for help on using the repository browser.