Changeset 4802 for palm/trunk/SOURCE/time_integration.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.f90 (modified) (3 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in time-control of indoor model at the very first time step
+!
+! 4732 2020-10-07 14:46:34Z schwenkel
 ! Add use statements for OPENACC
 !
@@ -654 +657 @@
 
     CALL location_message( 'atmosphere (and/or ocean) time-stepping', 'start' )
-
+write(9,*) "time_indoor begin", time_indoor
+flush(9)
 !
 !-- Start of the time loop
@@ -1164 +1168 @@
           IF ( time_indoor >= dt_indoor  .OR.  current_timestep_number == 0 )  THEN
 
-             time_indoor = time_indoor - dt_indoor
+             IF ( time_indoor >= dt_indoor )  time_indoor = time_indoor - dt_indoor
 
              CALL cpu_log( log_point(76), 'indoor_model', 'start' )