Last change
on this file since 318 was
76,
checked in by ymipsl, 12 years ago
|
temporary correction for netcdf4 parallel writing
YM
|
File size:
358 bytes
|
Rev | Line | |
---|
[26] | 1 | MODULE netcdf_mod |
---|
| 2 | USE netcdf |
---|
[44] | 3 | #ifndef CPP_NETCDF4 |
---|
[26] | 4 | INTEGER :: NF90_NETCDF4 |
---|
| 5 | INTEGER :: NF90_MPIIO |
---|
| 6 | INTEGER :: NF90_CHUNKED |
---|
| 7 | |
---|
| 8 | INTEGER,EXTERNAL :: NF90_CREATE_PAR |
---|
| 9 | INTEGER,EXTERNAL :: NF90_DEF_VAR_CHUNKING |
---|
[44] | 10 | #endif |
---|
[26] | 11 | |
---|
| 12 | END MODULE netcdf_mod |
---|
| 13 | |
---|
[44] | 14 | #ifndef CPP_NETCDF4 |
---|
[26] | 15 | SUBROUTINE NF90_CREATE_PAR |
---|
| 16 | END |
---|
| 17 | |
---|
| 18 | SUBROUTINE NF90_DEF_VAR_CHUNKING |
---|
| 19 | END |
---|
[44] | 20 | #endif |
---|
Note: See
TracBrowser
for help on using the repository browser.