Changeset 4471 for palm

Timestamp:

Mar 24, 2020 12:08:06 PM (5 years ago)

Author:

schwenkel

Message:

Bugfix in lpm_droplet_interactions_ptq

File:

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

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in lpm_droplet_interactions_ptq
+! 
+! 4457 2020-03-11 14:20:43Z raasch
 ! use statement for exchange horiz added
 ! 
@@ -144 +147 @@
                drho_air_zw,                                                    &
                dzw, zu, zw,  ql_c, ql_v, ql_vp, hyp,                           &
-               pt, q, exner, ql, diss, e, u, v, w, km, ql_1, ql_2, pt_p, q_p
+               pt, q, exner, ql, diss, e, u, v, w, km, ql_1, ql_2
  
     USE averaging,                                                             &
@@ -5259 +5262 @@
              flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 0 ) )
 
-             q(k,j,i)  = q_p(k,j,i)  - ql_c(k,j,i) * flag
+             q(k,j,i)  = q(k,j,i)  - ql_c(k,j,i) * flag
              pt(k,j,i) = pt(k,j,i) + lv_d_cp * ql_c(k,j,i) * d_exner(k) &
                                                            * flag