Changeset 2967 for palm/trunk/SOURCE/parin.f90

Timestamp:

Apr 13, 2018 11:22:08 AM (6 years ago)

Author:

raasch

Message:

bugfix: missing parallel cpp-directives added

File:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: missing parallel cpp-directives added
+! 
+! 2941 2018-04-03 11:54:58Z kanani
 ! Fix for spinup in case of restart run
 ! 
@@ -691 +694 @@
 !-- communicator.
 !-- First, set the default:
+#if defined( __parallel )
     CALL MPI_COMM_RANK( MPI_COMM_WORLD, global_id, ierr )
     CALL MPI_COMM_SIZE( MPI_COMM_WORLD, global_procs, ierr )
+#else
+    global_id    = 0
+    global_procs = 1
+#endif
     IF ( maximum_parallel_io_streams == -1  .OR.                               &
          maximum_parallel_io_streams > global_procs )  THEN