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

Timestamp:

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

Author:

letzel

Message:

• Bugfixes for nonparallel execution

File:

• palm/trunk/SOURCE/timestep.f90 (modified) (3 diffs)

palm/trunk/SOURCE/timestep.f90

@@ -5 +5 @@
 ! -----------------
 ! Implementation of a MPI-1 Coupling: replaced myid with target_id
+! Bugfix for nonparallel execution
 !
 ! Former revisions:
@@ -216 +217 @@
 !--       and its reason, provided the remote model has not already been 
 !--       informed of another termination reason (terminate_coupled > 0) before.
+#if defined( __parallel )
           IF ( coupling_mode /= 'uncoupled' .AND. terminate_coupled == 0 )  THEN
              terminate_coupled = 2
@@ -223 +225 @@
                   comm_inter, status, ierr )
           ENDIF
-
+#endif
        ENDIF