Changeset 3744 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Feb 15, 2019 6:38:58 PM (5 years ago)

Author:

suehring

Message:

Coupling of indoor model to atmosphere; output of indoor temperatures and waste heat; enable restarts with indoor model; bugfix plant transpiration; bugfix - missing calculation of 10cm temperature

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Call indoor model after first timestep
 ! 
 ! Former revisions:
@@ -1413 +1413 @@
 !--    If required, calculate indoor temperature, waste heat, heat flux
 !--    through wall, etc.
-!--    dt_indoor steers the frequency of the indoor model calculations
+!--    dt_indoor steers the frequency of the indoor model calculations.
+!--    Note, at first timestep indoor model is called, in order to provide
+!--    a waste heat flux. 
        IF ( indoor_model )  THEN
 
           time_indoor = time_indoor + dt_3d
 
-          IF ( time_indoor >= dt_indoor )  THEN
+          IF ( time_indoor >= dt_indoor  .OR.  current_timestep_number == 0 )  &
+          THEN
 
              time_indoor = time_indoor - dt_indoor