source:
tags/nemo_v1_04/NEMO/TOP_SRC/SMS/trclsm.gosac.h90
@
280
Last change on this file since 280 was 274, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 972 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_gosac |
10 | |
11 | CHARACTER (len=32) :: clname |
12 | |
13 | !!--------------------------------------------------------------------- |
14 | !! TOP 1.0, LOCEAN-IPSL (2005) |
15 | !! $Header$ |
16 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
17 | !!--------------------------------------------------------------------- |
18 | |
19 | ! 0. initializations |
20 | ! ------------------ |
21 | |
22 | NAMELIST/coffset/xinitri |
23 | |
24 | numnat=80 |
25 | clname ='namelist.sms.gosac' |
26 | OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old') |
27 | |
28 | ! Namelist traback : |
29 | ! ------------------ |
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.