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_my_trc.F90 in branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC – NEMO

source: branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90 @ 7041

Last change on this file since 7041 was 7041, checked in by cetlod, 8 years ago

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782
  • Property svn:keywords set to Id
File size: 1.8 KB
RevLine 
[932]1MODULE par_my_trc
2   !!======================================================================
3   !!                        ***  par_my_trc  ***
4   !! TOP :   set the MY_TRC parameters
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
7   !!----------------------------------------------------------------------
[2528]8   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
[1253]9   !! $Id$
[2528]10   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
[932]11   !!----------------------------------------------------------------------
[1122]12
[932]13   IMPLICIT NONE
14
[1162]15#if defined key_my_trc
[932]16   !!---------------------------------------------------------------------
[1162]17   !!   'key_my_trc'                     user defined tracers (MY_TRC)
[932]18   !!---------------------------------------------------------------------
[7041]19   LOGICAL, PUBLIC, PARAMETER ::   lk_my_trc  = .TRUE.   !: PTS flag
20   INTEGER, PUBLIC            ::   jp_my_trc      !: number of PTS tracers
[932]21
22#else
23   !!---------------------------------------------------------------------
24   !!   Default                           No user defined tracers (MY_TRC)
25   !!---------------------------------------------------------------------
[7041]26   LOGICAL, PUBLIC, PARAMETER ::   lk_my_trc   = .FALSE.  !: MY_TRC flag
27   INTEGER, PUBLIC            ::   jp_my_trc        !: No MY_TRC tracers
[932]28#endif
29
30   ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done)
[7041]31   INTEGER, PUBLIC ::   jp_myt0             !: First index of MY_TRC passive tracers
32   INTEGER, PUBLIC ::   jp_myt1             !: Last  index of MY_TRC passive tracers
[932]33
[7041]34   INTEGER, PUBLIC ::   jpmyt0, jpmty1, jpmyt2         !: Last  index of MY_TRC passive tracers
[932]35   !!======================================================================
36END MODULE par_my_trc
Note: See TracBrowser for help on using the repository browser.