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