Ignore:
Timestamp:
Apr 7, 2016 7:49:42 AM (5 years ago)
Author:
hoffmann
Message:

changes in LPM and bulk cloud microphysics

File:
1 edited

Legend:

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

    r1818 r1822  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! icloud_scheme replaced by microphysics_*
    2222!
    2323! Former revisions:
     
    134134    USE control_parameters,                                                    &
    135135        ONLY:  cloud_physics, constant_heatflux, constant_waterflux,           &
    136                coupling_mode, g, humidity, ibc_e_b, ibc_pt_b, icloud_scheme,   &
     136               coupling_mode, g, humidity, ibc_e_b, ibc_pt_b,                  &
    137137               initializing_actions, kappa, intermediate_timestep_count,       &
    138138               intermediate_timestep_count_max, large_scale_forcing, lsf_surf, &
    139                message_string, most_method, neutral, passive_scalar,           &
    140                precipitation, pt_surface, q_surface, run_coupled,              &
     139               message_string, microphysics_seifert, most_method, neutral,     &
     140               passive_scalar, pt_surface, q_surface, run_coupled,             &
    141141               surface_pressure, simulated_time, terminate_run, zeta_max,      &
    142142               zeta_min
     
    906906!
    907907!--    If required compute qr* and nr*
    908        IF ( cloud_physics  .AND.  icloud_scheme == 0  .AND.  precipitation )   &
     908       IF ( cloud_physics  .AND.  microphysics_seifert )   &
    909909       THEN
    910910
     
    10401040!
    10411041!--    Compute (turbulent) fluxes of rain water content and rain drop conc.
    1042        IF ( cloud_physics  .AND.  icloud_scheme == 0  .AND.                    &
    1043             precipitation )  THEN
     1042       IF ( cloud_physics  .AND.  microphysics_seifert )  THEN
    10441043          !$OMP PARALLEL DO
    10451044          !$acc kernels loop independent present( nrs, nrsws, qrs, qrsws, us )
Note: See TracChangeset for help on using the changeset viewer.