source: codes/icosagcm/trunk/src/netcdf_mod.F90 @ 347

Last change on this file since 347 was 76, checked in by ymipsl, 12 years ago

temporary correction for netcdf4 parallel writing

YM
File size: 358 bytes
Line 
1MODULE netcdf_mod
2  USE netcdf
3#ifndef CPP_NETCDF4
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 
10#endif
11
12END MODULE netcdf_mod
13
14#ifndef CPP_NETCDF4
15   SUBROUTINE NF90_CREATE_PAR
16   END
17   
18   SUBROUTINE NF90_DEF_VAR_CHUNKING
19   END
20#endif
Note: See TracBrowser for help on using the repository browser.