Changeset 31 for codes/icosagcm/trunk/src/nectdf_mod.F90

Timestamp:

07/27/12 16:01:28 (12 years ago)

Author:

ymipsl

Message:

Some bug correction for parallelism

YM

File:

• codes/icosagcm/trunk/src/nectdf_mod.F90 (modified) (3 diffs)

codes/icosagcm/trunk/src/nectdf_mod.F90

@@ -2 +2 @@
   USE netcdf
 
-#ifndef CPP_USING_MPI
+!#ifndef CPP_USING_MPI
   INTEGER ::  NF90_NETCDF4
   INTEGER ::  NF90_MPIIO
@@ -9 +9 @@
   INTEGER,EXTERNAL :: NF90_CREATE_PAR
   INTEGER,EXTERNAL :: NF90_DEF_VAR_CHUNKING 
-#endif
+!#endif
 
 END MODULE netcdf_mod
 
-#ifndef CPP_USING_MPI
+!#ifndef CPP_USING_MPI
    SUBROUTINE NF90_CREATE_PAR
    END
@@ -19 +19 @@
    SUBROUTINE NF90_DEF_VAR_CHUNKING
    END
-#endif
+!#endif