Changeset 4802 for palm/trunk/SOURCE/time_integration_spinup.f90

Timestamp:

Nov 30, 2020 2:16:31 PM (4 years ago)

Author:

suehring

Message:

Bugfix in time-control of indoor model in case of restarts and at the very first time step

File:

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

palm/trunk/SOURCE/time_integration_spinup.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in time-control of indoor model at the very first time step
+!
+! 4750 2020-10-16 14:27:48Z suehring
 ! - bugfix, call hourly-based indoor model only once per hour, not every timestep.
 ! - optionally switch-off/on the indoor model during spinup
@@ -502 +505 @@
           IF ( time_indoor >= dt_indoor  .OR.  current_timestep_number_spinup == 0 )  THEN
 
-             time_indoor = time_indoor - dt_indoor
+             IF ( time_indoor >= dt_indoor )  time_indoor = time_indoor - dt_indoor
 
              CALL im_main_heatcool