Last change
on this file since 1 was
1,
checked in by lfita, 10 years ago
|
- -- --- Opening of the WRF+LMDZ coupling repository --- -- -
WRF: version v3.3
LMDZ: version v1818
More details in:
|
File size:
1.2 KB
|
Line | |
---|
1 | /* Include file to define variables for Fortran to C interface(s) */ |
---|
2 | /* Robert Grumbine 16 March 1998 */ |
---|
3 | /* NOSEEK added 25 March 1998 */ |
---|
4 | /* CRAY compatibility added 20 April 1998 */ |
---|
5 | |
---|
6 | /* The following line should be either undef or define VERBOSE */ |
---|
7 | /* The latter gives noisy debugging output, while the former */ |
---|
8 | /* relies solely on the return codes */ |
---|
9 | #undef VERBOSE |
---|
10 | |
---|
11 | /* Declare the system type, supported options are: */ |
---|
12 | /* LINUX, SGI, HP, CRAY90, IBM4, IBM8, LINUXF90 */ |
---|
13 | #define IBM4 |
---|
14 | |
---|
15 | |
---|
16 | #include <stdlib.h> |
---|
17 | |
---|
18 | /* Do not change things below here yourself */ |
---|
19 | |
---|
20 | /* IO-related (bacio.c, banio.c) */ |
---|
21 | #define BAOPEN_RONLY 1 |
---|
22 | #define BAOPEN_WONLY 2 |
---|
23 | #define BAOPEN_RW 4 |
---|
24 | #define BACLOSE 8 |
---|
25 | #define BAREAD 16 |
---|
26 | #define BAWRITE 32 |
---|
27 | #define NOSEEK 64 |
---|
28 | #define BAOPEN_WONLY_TRUNC 128 |
---|
29 | #define BAOPEN_WONLY_APPEND 256 |
---|
30 | |
---|
31 | #ifndef CRAY |
---|
32 | # ifdef NOUNDERSCORE |
---|
33 | # define BACIO bacio |
---|
34 | # else |
---|
35 | # ifdef F2CSTYLE |
---|
36 | # define BACIO bacio__ |
---|
37 | # define BANIO banio__ |
---|
38 | # else |
---|
39 | # define BACIO bacio_ |
---|
40 | # define BANIO banio_ |
---|
41 | # endif |
---|
42 | # endif |
---|
43 | #endif |
---|
Note: See
TracBrowser
for help on using the repository browser.