Ignore:
Timestamp:
Jun 20, 2017 9:51:42 AM (4 years ago)
Author:
schwenkel
Message:

implementation of new bulk microphysics scheme

File:
1 edited

Legend:

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

    r2277 r2292  
    2525! -----------------
    2626! $Id$
     27! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
     28! includes two more prognostic equations for cloud drop concentration (nc) 
     29! and cloud water content (qc).
     30!
     31! 2277 2017-06-12 10:47:51Z kanani
    2732! Removed unused variables do2d_xy_n, do2d_xz_n, do2d_yz_n
    2833!
     
    169174
    170175    USE arrays_3d,                                                             &
    171         ONLY:  dzw, e, nr, p, pt, precipitation_amount, precipitation_rate,    &
     176        ONLY:  dzw, e, nc, nr, p, pt, precipitation_amount, precipitation_rate,&
    172177               prr, q, qc, ql, ql_c, ql_v, ql_vp, qr, rho_ocean, s, sa,        &
    173178               tend, u, v, vpt, w, zu, zw
     
    492497                two_d = .TRUE.
    493498                level_z(nzb+1) = zu(nzb+1)
     499
     500             CASE ( 'nc_xy', 'nc_xz', 'nc_yz' )
     501                IF ( av == 0 )  THEN
     502                   to_be_resorted => nc
     503                ELSE
     504                   to_be_resorted => nc_av
     505                ENDIF
     506                IF ( mode == 'xy' )  level_z = zu
    494507
    495508             CASE ( 'nr_xy', 'nr_xz', 'nr_yz' )
Note: See TracChangeset for help on using the changeset viewer.