Changeset 3022 for palm/trunk/SOURCE/pmc_interface_mod.f90

Timestamp:

May 18, 2018 11:12:35 AM (7 years ago)

Author:

suehring

Message:

Revise recent bugfix in nested runs at left and south boundary; bugfix in advection of u in case of OpenMP parallelization; bugfix in plant transpiration

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor fix - working precision added to real number
+! 
+! 3021 2018-05-16 08:14:20Z maronga
 ! Bugfix: variable lcr was defined as INTENT(OUT) instead of INTENT(INOUT)
 ! 
@@ -2715 +2718 @@
                    more = .TRUE.
                 ELSE
-                   lcr(lcorr) = 1.0
+                   lcr(lcorr) = 1.0_wp
                    more = .FALSE.
                 ENDIF