Changeset 2299 for palm/trunk/SOURCE/header.f90

Timestamp:

Jun 29, 2017 10:14:38 AM (7 years ago)

Author:

maronga

Message:

improvements for spinup mechanism

File:

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

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modified output for spinups
+! 
+! 2298 2017-06-29 09:28:18Z raasch
 ! MPI2 related parts removed
 ! 
@@ -507 +510 @@
     ENDIF
 #if defined( __parallel )
-    IF ( coupling_start_time /= 0.0_wp )  THEN
+    IF ( coupling_start_time /= 0.0_wp  .AND. .NOT. spinup )  THEN
        IF ( coupling_start_time > simulated_time_at_begin )  THEN
           WRITE ( io, 109 )