Changeset 4471 for palm


Ignore:
Timestamp:
Mar 24, 2020 12:08:06 PM (10 months ago)
Author:
schwenkel
Message:

Bugfix in lpm_droplet_interactions_ptq

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

    r4457 r4471  
    2525! -----------------
    2626! $Id$
     27! Bugfix in lpm_droplet_interactions_ptq
     28!
     29! 4457 2020-03-11 14:20:43Z raasch
    2730! use statement for exchange horiz added
    2831!
     
    144147               drho_air_zw,                                                    &
    145148               dzw, zu, zw,  ql_c, ql_v, ql_vp, hyp,                           &
    146                pt, q, exner, ql, diss, e, u, v, w, km, ql_1, ql_2, pt_p, q_p
     149               pt, q, exner, ql, diss, e, u, v, w, km, ql_1, ql_2
    147150 
    148151    USE averaging,                                                             &
     
    52595262             flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 0 ) )
    52605263
    5261              q(k,j,i)  = q_p(k,j,i)  - ql_c(k,j,i) * flag
     5264             q(k,j,i)  = q(k,j,i)  - ql_c(k,j,i) * flag
    52625265             pt(k,j,i) = pt(k,j,i) + lv_d_cp * ql_c(k,j,i) * d_exner(k) &
    52635266                                                           * flag
Note: See TracChangeset for help on using the changeset viewer.