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

implementation of new bulk microphysics scheme

File:
1 edited

Legend:

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

    r2101 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! 2101 2017-01-05 16:42:31Z suehring
    2732!
    2833! 2031 2016-10-21 15:11:58Z knoop
     
    105110#if defined( __netcdf )
    106111    USE arrays_3d,                                                             &
    107         ONLY:  e, nr, p, pt, q, qc, ql, ql_c, ql_v, qr, rho_ocean, s, sa, tend, u,   &
    108                v, vpt, w
     112        ONLY:  e, nc, nr, p, pt, q, qc, ql, ql_c, ql_v, qr, rho_ocean, s, sa,  &
     113               tend, u, v, vpt, w
    109114   
    110115    USE averaging,                                                             &
    111         ONLY:  e_av, lpt_av, nr_av, p_av, pc_av, pr_av, pt_av, q_av, qc_av,    &
    112                ql_av, ql_c_av, ql_v_av, ql_vp_av, qv_av, qr_av, rho_ocean_av, s_av,  &
    113                sa_av, u_av, v_av, vpt_av, w_av
     116        ONLY:  e_av, lpt_av, nc_av, nr_av, p_av, pc_av, pr_av, pt_av, q_av,    &
     117               qc_av, ql_av, ql_c_av, ql_v_av, ql_vp_av, qv_av, qr_av,         &
     118               rho_ocean_av, s_av, sa_av, u_av, v_av, vpt_av, w_av
    114119   
    115120    USE cloud_parameters,                                                      &
     
    243248             ELSE
    244249                to_be_resorted => lpt_av
     250             ENDIF
     251
     252          CASE ( 'nc' )
     253             IF ( av == 0 )  THEN
     254                to_be_resorted => nc
     255             ELSE
     256                to_be_resorted => nc_av
    245257             ENDIF
    246258
Note: See TracChangeset for help on using the changeset viewer.