source:
trunk/NEMO/TOP_SRC/SMS/trclsm.cfc.h90
@
262
Last change on this file since 262 was 260, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 884 bytes |
Line | |
---|---|
1 | !!! $Header$ |
2 | !!! |
3 | !!! trclsm.cfc.h |
4 | !!! **************** |
5 | !!! |
6 | !!! PURPOSE : |
7 | !!! --------- |
8 | !!! READs and PRINT options for cfc namelist |
9 | |
10 | #if defined key_passivetrc && defined key_cfc |
11 | |
12 | CHARACTER (len=32) :: clname |
13 | |
14 | |
15 | !!!--------------------------------------------------------------------- |
16 | !!! OPA8, LODYC (15/11/96) |
17 | !!!--------------------------------------------------------------------- |
18 | |
19 | ! 0. initializations |
20 | ! ------------------ |
21 | |
22 | NAMELIST/coffset/xinitri |
23 | |
24 | numnat=80 |
25 | clname ='namelist.sms.cfc' |
26 | OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old') |
27 | |
28 | |
29 | ! Namelist traback : |
30 | ! ------------------ |
31 | READ(numnat,coffset) |
32 | |
33 | IF(lwp) THEN |
34 | WRITE(numout,*) ' ' |
35 | WRITE(numout,*) 'coffset' |
36 | write(numout,coffset) |
37 | WRITE(numout,*) ' ' |
38 | ENDIF |
39 | |
40 | #endif |
41 | |
42 | |
43 | |
44 | |
45 | |
46 | |
47 | |
48 |
Note: See TracBrowser
for help on using the repository browser.