source:
trunk/NEMO/TOP_SRC/SMS/trclsm.age.h90
@
260
Last change on this file since 260 was 260, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.7 KB |
Rev | Line | |
---|---|---|
[260] | 1 | ! $Id$ |
2 | !!! | |
3 | !!! trclsm.age.h | |
4 | !!! ********************** | |
5 | !!! | |
6 | !!! PURPOSE : | |
7 | !!! --------- | |
8 | !!! READ the specific NAMELIST for AGE TRACER model | |
9 | !!! | |
10 | !! METHOD : : no | |
11 | !! ------- | |
12 | !! | |
13 | !! MODIFICATIONS: | |
14 | !! -------------- | |
15 | !! original : 02-05 O. Aumont | |
16 | !!---------------------------------------------------------------------- | |
17 | !! local declarations | |
18 | !! ================== | |
19 | ||
20 | #if defined key_passivetrc && defined key_trc_age | |
21 | ||
22 | CHARACTER (len=32) :: clname | |
23 | ||
24 | ||
25 | !!!--------------------------------------------------------------------- | |
26 | !!! OPA8, LODYC (15/11/96) | |
27 | !!!--------------------------------------------------------------------- | |
28 | ||
29 | ! 0. initializations | |
30 | ! ------------------ | |
31 | ||
32 | NAMELIST/natage/tauage1,tauage2 | |
33 | ||
34 | ||
35 | IF(lwp) THEN | |
36 | WRITE(numout,*) ' ' | |
37 | WRITE(numout,*) ' ROUTINE trclsm' | |
38 | WRITE(numout,*) ' **************' | |
39 | WRITE(numout,*) ' ' | |
40 | WRITE(numout,*) ' namelist for age tracer model' | |
41 | WRITE(numout,*) ' ***************************' | |
42 | WRITE(numout,*) ' ' | |
43 | ENDIF | |
44 | ||
45 | numnat=80 | |
46 | clname ='namelist_age' | |
47 | OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old') | |
48 | ||
49 | ! 1 namelist natage : restoring time constant | |
50 | ! ------------------------------------------- | |
51 | ||
52 | tauage1 = 7. | |
53 | tauage2 = 1. | |
54 | ||
55 | READ(numnat,natage) | |
56 | ||
57 | IF(lwp) THEN | |
58 | WRITE(numout,*) 'natage' | |
59 | WRITE(numout,*) ' ' | |
60 | WRITE(numout,*) & | |
61 | & ' restoring time constant tauage1 =', tauage1 | |
62 | WRITE(numout,*) & | |
63 | & ' incrementation constant tauage2 =', tauage2 | |
64 | ENDIF | |
65 | ||
66 | #else | |
67 | ||
68 | ! no passive tracers | |
69 | ||
70 | #endif |
Note: See TracBrowser
for help on using the repository browser.