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