Changeset 2292 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

Jun 20, 2017 9:51:42 AM (7 years ago)

Author:

schwenkel

Message:

implementation of new bulk microphysics scheme

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implementation of new microphysic scheme: cloud_scheme = 'morrison' 
+! includes two more prognostic equations for cloud drop concentration (nc)  
+! and cloud water content (qc). 
+! 
+! 2277 2017-06-12 10:47:51Z kanani
 ! Removed unused variables do2d_xy_n, do2d_xz_n, do2d_yz_n
 ! 
@@ -169 +174 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  dzw, e, nr, p, pt, precipitation_amount, precipitation_rate,    &
+        ONLY:  dzw, e, nc, nr, p, pt, precipitation_amount, precipitation_rate,&
                prr, q, qc, ql, ql_c, ql_v, ql_vp, qr, rho_ocean, s, sa,        &
                tend, u, v, vpt, w, zu, zw
@@ -492 +497 @@
                 two_d = .TRUE.
                 level_z(nzb+1) = zu(nzb+1)
+
+             CASE ( 'nc_xy', 'nc_xz', 'nc_yz' )
+                IF ( av == 0 )  THEN
+                   to_be_resorted => nc
+                ELSE
+                   to_be_resorted => nc_av
+                ENDIF
+                IF ( mode == 'xy' )  level_z = zu
 
              CASE ( 'nr_xy', 'nr_xz', 'nr_yz' )