source:
LMDZ.3.3/tags/IPSL-CM4_PSMILE/libf/phylmd/inc_cpl.h
@
1038
Last change on this file since 1038 was 576, checked in by , 20 years ago | |
---|---|
|
|
File size: 631 bytes |
Rev | Line | |
---|---|---|
[544] | 1 | ! |
2 | ! $Header$ | |
3 | ! | |
4 | ! -- inc_cpl.h 1998-04 | |
5 | ! ********** | |
6 | !@ | |
7 | !@ Contents : variables describing pipe and field names | |
8 | !@ -------- | |
9 | !@ | |
10 | !@ -- cl_write : for fields to write | |
11 | !@ | |
12 | !@ -- cl_read : for fields to read | |
13 | !@ | |
14 | ! ------------------------------------------------------------------- | |
15 | ! | |
16 | INTEGER jpread, jpwrit | |
17 | PARAMETER (jpread=0, jpwrit=1) | |
18 | CHARACTER*8 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld) | |
19 | #ifndef CPP_PSMILE | |
[13] | 20 | CHARACTER*8 cl_writ(jpmaxfld), cl_read(jpmaxfld) |
21 | COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read | |
[544] | 22 | #endif |
23 | ! ------------------------------------------------------------------- |
Note: See TracBrowser
for help on using the repository browser.