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 @ 769

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

dev_001_GM - suppression of upper case in module names: par_LOBSTER, etc...

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.7 KB
RevLine 
[186]1MODULE par_trc
2   !!======================================================================
3   !!                        ***  par_trc  ***
[763]4   !! TOP :   set the passive tracers parameters
[186]5   !!======================================================================
[763]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
[765]10   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
[186]11   !!----------------------------------------------------------------------
[763]12   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
[768]13   !! $Id$
[763]14   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
[186]15   !!----------------------------------------------------------------------
[768]16   USE par_kind          ! kind parameters
17   !
[769]18   USE par_lobster   ! LOBSTER model
19   USE par_pisces    ! PISCES  model
20   USE par_cfc       ! CFC 11 and 12 tracers
21   USE par_my_trc    ! user defined passive tracers
[186]22
23   IMPLICIT NONE
24   PUBLIC
25
[765]26   ! Passive tracers : Total size
27   ! ---------------               ! total number of passive tracers, of 2d and 3d output and trend arrays
28   INTEGER, PUBLIC, PARAMETER ::   jptra    =  jp_lobster    + jp_pisces     + jp_cfc     + jp_my_trc
29   INTEGER, PUBLIC, PARAMETER ::   jpdia2d  =  jp_lobster_2d + jp_pisces_2d  + jp_cfc_2d  + jp_my_trc_2d
30   INTEGER, PUBLIC, PARAMETER ::   jpdia3d  =  jp_lobster_3d + jp_pisces_3d  + jp_cfc_3d  + jp_my_trc_3d
31   !                     ! total number of sms diagnostic arrays
32   INTEGER, PUBLIC, PARAMETER ::   jpdiabio = jp_lobster_trd + jp_pisces_trd + jp_cfc_trd + jp_my_trc_trd
33   
34   !  1D configuration ("key_cfg_1d")
35   ! -----------------
36# if defined key_cfg_1d
37   LOGICAL, PUBLIC, PARAMETER ::   lk_trccfg_1d   = .TRUE.   !: 1D pass. tracer configuration flag
38# else   
39   LOGICAL, PUBLIC, PARAMETER ::   lk_trccfg_1d   = .FALSE.  !: 1D pass. tracer configuration flag
40# endif
41
42   ! Passive tracers : size for TRP trends diagnotics (used if 'key_trc_diatrd' defined)
43#if defined key_trcldf_eiv
44# if defined key_trcdmp
[763]45   INTEGER, PARAMETER :: jpdiatrc = 11      !: trends: 3*(advection + diffusion + eiv ) + damping + sms
[765]46# else
[763]47   INTEGER, PARAMETER :: jpdiatrc = 10      !: trends: 3*(advection + diffusion + eiv )           + sms
[765]48# endif
49#else
50# if defined key_trcdmp
[763]51   INTEGER, PARAMETER :: jpdiatrc =  8      !: trends: 3*(advection + diffusion       ) + damping + sms
[765]52# else
[763]53   INTEGER, PARAMETER :: jpdiatrc =  7      !: trends: 3*(advection + diffusion       ) + damping + sms
[186]54# endif
55#endif
56
[763]57   !!======================================================================
[186]58END MODULE par_trc
Note: See TracBrowser for help on using the repository browser.