Changeset 1108 for palm/trunk/SOURCE

Timestamp:

Mar 5, 2013 7:03:32 AM (11 years ago)

Author:

raasch

Message:

bugfix for r1106 + coupled runs on lckyut/lckyuh

File:

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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix for r1106
 !
 ! Former revisions:
@@ -261 +261 @@
        WRITE ( io, 101 )  mpi_type, coupling_mode
     ENDIF
+#if defined( __parallel )
     IF ( coupling_start_time /= 0.0 )  THEN
        IF ( coupling_start_time > simulated_time_at_begin )  THEN
@@ -268 +269 @@
        ENDIF
     ENDIF
+#endif
     WRITE ( io, 102 )  run_date, run_identifier, run_time, runnr, &
                        ADJUSTR( host_chr )