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

Timestamp:

Apr 17, 2018 10:27:57 AM (6 years ago)

Author:

kanani

Message:

Fixes for radiative transfer model

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implement changes from branch radiation (r2948-2971) with minor modifications.
+! (moh.hefny)
+! Fixed bug in if statement
+! 
+! 2941 2018-04-03 11:54:58Z kanani
 ! Deduct spinup_time from RUN_CONTROL output of main 3d run 
 ! (use time_since_reference_point instead of simulated_time)
@@ -1034 +1039 @@
                 CALL cpu_log( log_point(50), 'radiation', 'stop' )
 
-                IF ( urban_surface  .OR.  land_surface  .AND.                  &
+                IF ( ( urban_surface  .OR.  land_surface )  .AND.               &
                      radiation_interactions )  THEN
                    CALL cpu_log( log_point(75), 'radiation_interaction', 'start' )