Changeset 2995 for palm/trunk/SOURCE/parin.f90

Timestamp:

Apr 19, 2018 12:13:16 PM (6 years ago)

Author:

Giersch

Message:

Bugfixes related to spinup and radiation model

File:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! time_since_reference_point must be calculated/initialized before the first  
+! call of functions related to the radiation model which occur in 
+! time_integration_spinup or time_integration
+! 
+! 2980 2018-04-17 15:19:27Z suehring
 ! Revise message call
 ! 
@@ -864 +869 @@
              IF ( spinup_time > 0.0_wp )  THEN
                 coupling_start_time = spinup_time
+                time_since_reference_point = simulated_time - coupling_start_time
                 IF ( spinup_pt_mean == 9999999.9_wp )  THEN
                    spinup_pt_mean = pt_surface