source:
trunk/NEMO/TOP_SRC/SMS/trclsm.age.h90
@
280
Last change on this file since 280 was 274, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.7 KB |
Rev | Line | |
---|---|---|
[260] | 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 | ||
[274] | 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 | !!--------------------------------------------------------------------- | |
[260] | 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.