Ignore:
Timestamp:
Sep 24, 2018 3:42:55 PM (3 years ago)
Author:
knoop
Message:

Modularization of all bulk cloud physics code components

File:
1 edited

Legend:

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

    r3258 r3274  
    2525! -----------------
    2626! $Id$
     27! Modularization of all bulk cloud physics code components
     28!
     29! 3258 2018-09-18 07:23:31Z Giersch
    2730! current revision for user interface has been changed to 3240
    2831!
     
    245248
    246249    USE control_parameters,                                                    &
    247         ONLY:  air_chemistry, cloud_physics, constant_diffusion, child_domain, &
     250        ONLY:  air_chemistry, constant_diffusion, child_domain,                &
    248251               coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin,     &
    249252               humidity, initializing_actions, io_blocks, io_group,            &
    250                message_string, microphysics_morrison, microphysics_seifert,    &
     253               message_string,                                                 &
    251254               neutral, passive_scalar, runnr, simulated_time_chr, spinup,     &
    252255               time_since_reference_point, user_interface_current_revision,    &
     
    259262        ONLY:  nbgp
    260263
     264    USE kinds
     265
     266    USE bulk_cloud_model_mod,                                                  &
     267        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
     268
    261269    USE multi_agent_system_mod,                                                &
    262270        ONLY:  agents_active, mas_last_actions
     
    265273        ONLY:  netcdf_data_input_inquire_file, netcdf_data_input_init,         &
    266274               netcdf_data_input_surface_data, netcdf_data_input_topo
    267 
    268     USE kinds
    269275
    270276    USE particle_attributes,                                                   &
     
    442448             IF ( humidity )  THEN
    443449                CALL exchange_horiz( q, nbgp )
    444                 IF ( cloud_physics  .AND.  microphysics_morrison )  THEN
     450                IF ( bulk_cloud_model  .AND.  microphysics_morrison )  THEN
    445451                  CALL exchange_horiz( qc, nbgp )
    446452                  CALL exchange_horiz( nc, nbgp )
    447453                ENDIF
    448                 IF ( cloud_physics  .AND.  microphysics_seifert )  THEN
     454                IF ( bulk_cloud_model  .AND.  microphysics_seifert )  THEN
    449455                   CALL exchange_horiz( qr, nbgp )
    450456                   CALL exchange_horiz( nr, nbgp )
Note: See TracChangeset for help on using the changeset viewer.