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

Timestamp:

Aug 5, 2020 4:44:15 PM (4 years ago)

Author:

suehring

Message:

Bugfix in calling radiation_control, was called every dt_spinup rather than only dt_radiation

File:

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

palm/trunk/SOURCE/time_integration_spinup.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in calling radiation_control, was called every dt_spinup rather than only dt_radiation
+!
+! 4631 2020-08-03 13:48:14Z suehring
 ! Set pt1 attribute only element-wise
 ! 
@@ -161 +164 @@
 
     USE radiation_model_mod,                                                                       &
-        ONLY:  force_radiation_call,                                                               &
+        ONLY:  dt_radiation,                                                                       &
+               force_radiation_call,                                                               &
                radiation,                                                                          &
                radiation_control,                                                                  &
@@ -444 +448 @@
        IF ( radiation )  THEN
 
-            time_radiation = time_radiation + dt_3d
-
-          IF ( time_radiation >= dt_3d .OR. force_radiation_call )  THEN
+          time_radiation = time_radiation + dt_3d
+
+          IF ( time_radiation >= dt_radiation .OR. force_radiation_call )  THEN
 
              IF ( .NOT. force_radiation_call )  THEN
-                time_radiation = time_radiation - dt_3d
+                time_radiation = time_radiation - dt_radiation
              ENDIF