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.age.h90 in tags/nemo_v1_04/NEMO/TOP_SRC/SMS – NEMO

source: tags/nemo_v1_04/NEMO/TOP_SRC/SMS/trclsm.age.h90 @ 280

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

nemo_v1_update_005:RB: update headers for the TOP component.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.7 KB
Line 
1!!!
2!!!                        trclsm.age.h
3!!!                     **********************
4!!!
5!!!  PURPOSE :
6!!!  ---------
7!!!     READ the specific NAMELIST for AGE TRACER model
8!!!
9!!   METHOD :                   : no
10!!   -------
11!!
12!!   MODIFICATIONS:
13!!   --------------
14!!      original  : 02-05 O. Aumont
15!!----------------------------------------------------------------------
16!! local declarations
17!! ==================
18
19#if defined key_passivetrc && defined key_trc_age
20
21      CHARACTER (len=32) :: clname
22
23
24!!---------------------------------------------------------------------
25!!  TOP 1.0,  LOCEAN-IPSL (2005)
26!! $Header$
27!! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
28!!---------------------------------------------------------------------
29
30! 0. initializations
31! ------------------
32
33      NAMELIST/natage/tauage1,tauage2
34
35
36      IF(lwp) THEN
37          WRITE(numout,*) ' '
38          WRITE(numout,*) ' ROUTINE trclsm'
39          WRITE(numout,*) ' **************'
40          WRITE(numout,*) ' '
41          WRITE(numout,*) ' namelist for age tracer model'
42          WRITE(numout,*) ' ***************************'
43          WRITE(numout,*) ' '
44      ENDIF
45
46      numnat=80
47      clname ='namelist_age'
48      OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old')
49
50! 1 namelist natage : restoring time constant
51! -------------------------------------------
52
53      tauage1 = 7.
54      tauage2 = 1.
55
56      READ(numnat,natage)
57
58      IF(lwp) THEN
59          WRITE(numout,*) 'natage'
60          WRITE(numout,*) ' '
61          WRITE(numout,*)    &
62          &   ' restoring time constant  tauage1 =', tauage1
63          WRITE(numout,*)    &
64          &   ' incrementation constant tauage2 =', tauage2
65      ENDIF
66
67#else
68
69! no passive tracers
70
71#endif
Note: See TracBrowser for help on using the repository browser.