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.
trclsm.F in trunk/NEMO/TOP_SRC – NEMO

source: trunk/NEMO/TOP_SRC/trclsm.F @ 247

Last change on this file since 247 was 247, checked in by opalod, 19 years ago

CL : Add CVS Header and CeCILL licence information

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1CCC $Header$ 
2CCC  TOP 1.0 , LOCEAN-IPSL (2005) 
3C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
4C ---------------------------------------------------------------------------
5CDIR$ LIST
6      SUBROUTINE trclsm
7CCC---------------------------------------------------------------------
8CCC
9CCC                       ROUTINE trclsm
10CCC                     ******************
11CCC
12CCC  PURPOSE :
13CCC  ---------
14CCC     READS specific NAMELIST for sms terms 
15CCC
16CC   METHOD :                   : no
17CC   -------
18CC
19CC   INPUT :
20CC   -----
21CC
22CC   OUTPUT :
23CC   ------
24CC
25CC   WORKSPACE :                : no
26CC   ---------
27CC
28CC   MODIFICATIONS:
29CC   --------------
30CC      original  : 99-10 (M.A. Foujols, M. Levy) passive tracer
31CC                  00-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD
32CC                  02-05 (O. Aumont) AGE TRACER
33CC----------------------------------------------------------------------
34CC parameters and commons
35CC ======================
36CDIR$ NOLIST
37      USE oce_trc
38      USE trc
39      USE sms
40      IMPLICIT NONE
41CDIR$ LIST
42
43#if defined key_passivetrc
44
45#    if defined key_trc_npzd
46#    include "trclsm.npzd.h"
47#    elif defined key_trc_lobster1
48#    include "trclsm.lobster1.h"
49#    elif defined key_trc_hamocc3
50#    include "trclsm.hamocc3.h"
51#    elif defined key_trc_age
52#    include "trclsm.age.h"
53#    elif defined key_trc_pisces
54#    include "trclsm.pisces.h"
55#    else
56C      user can define here his own sms namelist
57#    endif
58#else
59C
60C no passive tracers
61C
62#endif
63      RETURN
64      END
Note: See TracBrowser for help on using the repository browser.