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/palm.f90

    r2261 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! 2261 2017-06-08 14:25:57Z raasch
    2732! output of run number for mrun to create unified cycle numbers
    2833!
     
    177182               do2d_at_begin, do3d_at_begin, humidity, initializing_actions,   &
    178183               io_blocks, io_group, land_surface, large_scale_forcing,         &
    179                message_string, microphysics_seifert, nest_domain, neutral,     &
    180                nudging, passive_scalar, runnr, simulated_time,                 &
    181                simulated_time_chr, urban_surface,                              &
     184               message_string, microphysics_morrison, microphysics_seifert,    &
     185               nest_domain, neutral, nudging, passive_scalar, runnr,           &
     186               simulated_time, simulated_time_chr, urban_surface,              &
    182187               user_interface_current_revision,                                &
    183188               user_interface_required_revision, version, wall_heatflux,       &
     
    364369             IF ( humidity )  THEN
    365370                CALL exchange_horiz( q, nbgp )
     371                IF ( cloud_physics  .AND.  microphysics_morrison )  THEN
     372                  CALL exchange_horiz( qc, nbgp )
     373                  CALL exchange_horiz( nc, nbgp )
     374                ENDIF
    366375                IF ( cloud_physics  .AND.  microphysics_seifert )  THEN
    367 !                   CALL exchange_horiz( qc, nbgp )
    368376                   CALL exchange_horiz( qr, nbgp )
    369 !                   CALL exchange_horiz( nc, nbgp )
    370377                   CALL exchange_horiz( nr, nbgp )
    371378                ENDIF
Note: See TracChangeset for help on using the changeset viewer.