source: codes/icosagcm/trunk/src/nectdf_mod.F90 @ 31

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

Some bug correction for parallelism

YM

File size: 370 bytes
Line 
1MODULE netcdf_mod
2  USE netcdf
3
4!#ifndef CPP_USING_MPI
5  INTEGER ::  NF90_NETCDF4
6  INTEGER ::  NF90_MPIIO
7  INTEGER ::  NF90_CHUNKED
8 
9  INTEGER,EXTERNAL :: NF90_CREATE_PAR
10  INTEGER,EXTERNAL :: NF90_DEF_VAR_CHUNKING 
11!#endif
12
13END MODULE netcdf_mod
14
15!#ifndef CPP_USING_MPI
16   SUBROUTINE NF90_CREATE_PAR
17   END
18   
19   SUBROUTINE NF90_DEF_VAR_CHUNKING
20   END
21!#endif
22 
Note: See TracBrowser for help on using the repository browser.