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

Timestamp:

Sep 9, 2020 1:43:47 PM (4 years ago)

Author:

pavelkrc

Message:

Fix multiple issues with radiation call times

File:

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

palm/trunk/SOURCE/time_integration_spinup.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! - Fix missing call of radiation after spinup
+! - Fix calculation of force_radiation_call
+! - Fix calculation of radiation times
+!
+! 4668 2020-09-09 13:00:16Z pavelkrc
 ! Improve debug messages during timestepping
 !
@@ -481 +486 @@
                 CALL radiation_interaction
              ENDIF
+!
+!--          Reset forcing of radiation call
+             force_radiation_call = .FALSE.
+
           ENDIF
        ENDIF
@@ -632 +641 @@
 !-- Reset time step
     dt_3d = dt_save
+!-- Force radiation step in time zero
+!-- It is performed at the end of init_radiation in case of run without spinup
+    time_radiation = dt_radiation
 
     DEALLOCATE(pt_save)