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