Changeset 1206 for palm/trunk/SOURCE/netcdf.f90

Timestamp:

Jul 18, 2013 12:49:16 PM (11 years ago)

Author:

witha

Message:

bugfix: typo in preprocessor directive

File:

• palm/trunk/SOURCE/netcdf.f90 (modified) (2 diffs)

palm/trunk/SOURCE/netcdf.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix: typo in preprocessor directive in subroutine open_write_netcdf_file
 !
 ! Former revisions:
@@ -4715 +4715 @@
        nc_stat = NF90_OPEN( filename, NF90_WRITE, id )
 #if defined( __netcdf4 )
-#if defined( __netcdf4par )
+#if defined( __netcdf4_parallel )
     ELSEIF ( netcdf_data_format > 4  .AND.  parallel )  THEN
        nc_stat = NF90_OPEN( filename, NF90_WRITE, id, COMM = comm2d, &