Changeset 1046 for palm/trunk/SOURCE

Timestamp:

Nov 9, 2012 2:38:45 PM (11 years ago)

Author:

maronga

Message:

put scripts and utilities under GPL

File:

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

palm/trunk/SOURCE/user_statistics.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! added preprocessor directive for parameter file check 
 !
 ! Former revisions:
@@ -117 +117 @@
 !--           value on all PEs, you can omit the MPI_ALLREDUCE call and
 !--           assign ts_value(dots_num_palm+1:,sr) = ts_value_l directly.
-!#if defined( __parallel )
+!#if defined( __parallel ) && ! defined ( __check )
 !       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
 !       CALL MPI_ALLREDUCE( ts_value_l(dots_num_palm+1),                       &