Changeset 222 for palm/trunk/SOURCE/check_for_restart.f90

Timestamp:

Jan 12, 2009 4:04:16 PM (15 years ago)

Author:

letzel

Message:

• Bugfixes for nonparallel execution

File:

• palm/trunk/SOURCE/check_for_restart.f90 (modified) (5 diffs)

palm/trunk/SOURCE/check_for_restart.f90

@@ -5 +5 @@
 ! -----------------
 ! Implementation of an MPI-1 coupling: replaced myid with target_id
+! Bugfix for nonparallel execution
 !
 ! Former revisions:
@@ -80 +81 @@
 
        terminate_coupled = 3
+#if defined( __parallel )
        CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,          &
                           target_id, 0,                                      &
@@ -85 +87 @@
                           target_id, 0,                                      &
                           comm_inter, status, ierr )
+#endif
     ENDIF
 
@@ -125 +128 @@
                 terminate_coupled = 5
              ENDIF
+#if defined( __parallel )
              CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,    &
                                 target_id,  0,                               &
@@ -130 +134 @@
                                 target_id,  0,                               &
                                 comm_inter, status, ierr )
+#endif
           ENDIF
        ELSE