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 NEMO/releases/release-4.0/src/TOP – NEMO

source: NEMO/releases/release-4.0/src/TOP/par_trc.F90 @ 10872

Last change on this file since 10872 was 7646, checked in by timgraham, 8 years ago

Merge of dev_merge_2016 into trunk. UPDATE TO ARCHFILES NEEDED for XIOS2.
LIM_SRC_s/limrhg.F90 to follow in next commit due to change of kind (I'm unable to do it in this commit).
Merged using the following steps:

1) svn merge --reintegrate ​svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk .
2) Resolve minor conflicts in sette.sh and namelist_cfg for ORCA2LIM3 (due to a change in trunk after branch was created)
3) svn commit
4) svn switch ​svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk
5) svn merge ​svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/2016/dev_merge_2016 .
6) At this stage I checked out a clean copy of the branch to compare against what is about to be committed to the trunk.
6) svn commit #Commit code to the trunk

In this commit I have also reverted a change to Fcheck_archfile.sh which was causing problems on the Paris machine.
  • Property svn:keywords set to Id
File size: 2.2 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   !!              -   !  2000-04  (O. Aumont, M.A. Foujols)  HAMOCC3 and P3ZD
8   !!             1.0  !  2004-03  (C. Ethe) Free form and module
9   !!             2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
10   !!----------------------------------------------------------------------
11   USE par_kind          ! kind parameters
12   USE par_pisces        ! PISCES model  parameters
13   USE par_cfc           ! CFCs  tracers parameters
14   USE par_c14           ! C14 tracer    parameters
15   USE par_age           ! AGE tracer    parameters
16   USE par_my_trc        ! MY_TRC model  parameters
17   !
18
19   IMPLICIT NONE
20
21   INTEGER, PUBLIC,  PARAMETER :: jpmaxtrc = 100  ! Maximum number of tracers
22
23   INTEGER, PUBLIC             :: jptra           !: Total number of passive tracers
24   INTEGER, PUBLIC             :: jp_pisces       !: number of passive tracers in PISCES model
25   INTEGER, PUBLIC             :: jp_cfc          !: number of CFC passive tracers
26   INTEGER, PUBLIC             :: jp_my_trc       !: number of passive tracers in MY_TRC model
27   INTEGER, PUBLIC             :: jp_bgc          !: number of passive tracers for the BGC model
28
29   INTEGER, PUBLIC             :: jp_dia3d        !: number of 3D diagnostic variables
30   INTEGER, PUBLIC             :: jp_dia2d        !: number of 2D diagnostic variables
31
32   LOGICAL, PUBLIC             :: ln_pisces       !: PISCES flag
33   LOGICAL, PUBLIC             :: ln_age          !: AGE flag
34   LOGICAL, PUBLIC             :: ln_cfc11        !: CFC11 flag
35   LOGICAL, PUBLIC             :: ln_cfc12        !: CFC12 flag
36   LOGICAL, PUBLIC             :: ln_sf6          !: SF6 flag
37   LOGICAL, PUBLIC             :: ll_cfc          !: CFC flag
38   LOGICAL, PUBLIC             :: ln_c14          !: C14 flag
39   LOGICAL, PUBLIC             :: ln_my_trc       !: MY_TRC flag
40
41   REAL(wp), PUBLIC            :: rtrn  = 0.5 * EPSILON( 1.e0 )    !: truncation value
42
43END MODULE par_trc
Note: See TracBrowser for help on using the repository browser.