Changeset 1849 for palm/trunk/SOURCE/write_3d_binary.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/write_3d_binary.f90 (modified) (3 diffs)

palm/trunk/SOURCE/write_3d_binary.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! prr, precipitation_amount moved to arrays_3d
 ! 
 ! Former revisions:
@@ -95 +95 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  e, kh, km, ol, p, pt, q, ql, qc, nr, nrs, nrsws, nrswst, qr,    &
+        ONLY:  e, kh, km, ol, p, pt, q, ql, qc, nr, nrs, nrsws, nrswst,        &
+               prr, precipitation_amount, qr,                                  &
                qrs, qrsws, qrswst, qs, qsws, qswst, sa, saswsb, saswst,        &
                rif_wall, shf, ts, tswst, u, u_m_l, u_m_n, u_m_r, u_m_s, us,    &
@@ -102 +103 @@
         
     USE averaging
-        
-    USE cloud_parameters,                                                      &
-        ONLY:  prr, precipitation_amount
-        
+
     USE control_parameters,                                                    &
         ONLY:  iran, humidity, passive_scalar, cloud_physics, cloud_droplets,  &