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

Timestamp:

May 31, 2019 1:25:08 PM (6 years ago)

Author:

hellstea

Message:

Nest mass conservation correction included

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Mass (volume) flux correction included to ensure global mass conservation for child domains.
+! 
+! 3994 2019-05-22 18:08:09Z suehring
 ! output of turbulence intensity added
 ! 
@@ -615 +618 @@
 
     USE pmc_interface,                                                                             &
-        ONLY:  nested_run, nesting_mode, pmci_boundary_conds, pmci_datatrans, pmci_synchronize
+        ONLY:  nested_run, nesting_mode, pmci_boundary_conds, pmci_datatrans, pmci_synchronize,    &
+        pmci_ensure_nest_mass_conservation, pmci_ensure_nest_mass_conservation_vertical
 
     USE progress_bar,                                                                              &
@@ -1280 +1284 @@
 
              ELSE
-
+!                
+!--             Mass (volume) flux correction to ensure global mass conservation for child domains.
+                IF ( child_domain )  THEN
+                   IF ( nesting_mode == 'vertical' )  THEN
+                      CALL pmci_ensure_nest_mass_conservation_vertical
+                   ELSE
+                      CALL pmci_ensure_nest_mass_conservation
+                   ENDIF
+                ENDIF
+                
                 CALL pres