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

Timestamp:

Apr 18, 2018 11:51:30 AM (6 years ago)

Author:

hellstea

Message:

Bugfix in the log-law correction initialization and removal of the nest mass-conservation correction

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (3 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
+! CALL pmci_ensure_nest_mass_conservation is removed (so far only commented out)
+! as seemingly unnecessary.
 ! 
 ! 2941 2018-04-03 11:54:58Z kanani
@@ -812 +811 @@
 !--          This action must never be done for the root domain. Vertical 
 !--          nesting implies mass conservation.
-             IF ( nest_domain )  THEN
-                CALL pmci_ensure_nest_mass_conservation
-             ENDIF
+!--          Commented out April 18, 2018 as seemingly unnecessary. 
+!--          Will later be completely removed.
+!--             IF ( nest_domain )  THEN
+!--                CALL pmci_ensure_nest_mass_conservation
+!--             ENDIF
 
              CALL cpu_log( log_point(60), 'nesting', 'stop' )
@@ -1039 +1040 @@
                 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' )