Ignore:
Timestamp:
Jun 6, 2019 12:16:46 PM (5 years ago)
Author:
schwenkel
Message:

Modularization of all lagrangian particle model code components

File:
1 edited

Legend:

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

    r3987 r4017  
    625625
    626626    USE kinds
    627 
    628     USE lpm_init_mod,                                                          &
    629         ONLY:  lpm_init
    630627 
    631628    USE lsf_nudging_mod,                                                       &
     
    652649    USE nesting_offl_mod,                                                      &
    653650        ONLY:  nesting_offl_init
    654 
    655     USE particle_attributes,                                                   &
    656         ONLY:  particle_advection
    657651
    658652    USE pegrid
     
    22712265    ENDIF
    22722266
    2273 !
    2274 !-- If required, initialize dvrp-software
    2275     IF ( dt_dvrp /= 9999999.9_wp )  CALL init_dvrp
    2276 
    2277 !
    2278 !-- Initialize quantities for handling cloud physics.
    2279 !-- This routine must be called before lpm_init, becaus otherwise,
    2280 !-- array d_exner, needed in data_output_dvrp (called by lpm_init) is not defined.
    22812267    IF ( .NOT. ocean_mode )  THEN
    22822268
     
    23072293    ENDIF
    23082294
    2309 !
    2310 !-- If required, initialize particles
    2311     IF ( particle_advection )  CALL lpm_init
    23122295!
    23132296!-- If required, initialize particles
Note: See TracChangeset for help on using the changeset viewer.