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

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

temporary correction for netcdf4 parallel writing

YM
File size: 358 bytes
RevLine 
[26]1MODULE 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
12END 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.