Ignore:
Timestamp:
Jun 29, 2017 10:14:38 AM (4 years ago)
Author:
maronga
Message:

improvements for spinup mechanism

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/header.f90

    r2298 r2299  
    2525! -----------------
    2626! $Id$
     27! Modified output for spinups
     28!
     29! 2298 2017-06-29 09:28:18Z raasch
    2730! MPI2 related parts removed
    2831!
     
    507510    ENDIF
    508511#if defined( __parallel )
    509     IF ( coupling_start_time /= 0.0_wp )  THEN
     512    IF ( coupling_start_time /= 0.0_wp  .AND. .NOT. spinup )  THEN
    510513       IF ( coupling_start_time > simulated_time_at_begin )  THEN
    511514          WRITE ( io, 109 )
Note: See TracChangeset for help on using the changeset viewer.