Changeset 1849 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Apr 8, 2016 11:33:18 AM (8 years ago)

Author:

hoffmann

Message:

lpm_droplet_condensation improved, microphysics partially modularized

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! prr moved to arrays_3d
 !
 ! Former revisions:
@@ -186 +186 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  ddzu, ddzw, e, hyp, km, kh, nr, ol, p, prho, pt, q, qc, ql, qr, &
-               qs, qsws, qswst, rho, sa, saswsb, saswst, shf, td_lsa_lpt,      &
+        ONLY:  ddzu, ddzw, e, hyp, km, kh, nr, ol, p, prho, prr, pt, q, qc, ql,&
+               qr, qs, qsws, qswst, rho, sa, saswsb, saswst, shf, td_lsa_lpt,  &
                td_lsa_q, td_sub_lpt, td_sub_q, time_vert, ts, tswst, u, ug, us,& 
                usws, uswst, vsws, v, vg, vpt, vswst, w, w_subs, zw
         
     USE cloud_parameters,                                                      &
-        ONLY:   l_d_cp, prr, pt_d_t
+        ONLY:   l_d_cp, pt_d_t
         
     USE control_parameters,                                                    &