Changeset 3981 for palm/trunk/SOURCE/lpm_init.f90

Timestamp:

May 15, 2019 2:43:01 PM (5 years ago)

Author:

suehring

Message:

Bugfix in particlel nesting, TKE-gradients at ghost points at non-cyclic boundaries were not initialized

File:

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

palm/trunk/SOURCE/lpm_init.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in particle nesting, initialize TKE gradient with zero
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Changed number concentration unit to SI standard
 ! 
@@ -431 +434 @@
                  de_dy(nzb:nzt+1,nysg:nyng,nxlg:nxrg), &
                  de_dz(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
+       de_dx = 0.0_wp
+       de_dy = 0.0_wp
+       de_dz = 0.0_wp
 
        sgs_wf_part = 1.0_wp / 3.0_wp