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

Modularization of all lagrangian particle model code components

File:
1 edited

Legend:

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

    r3995 r4017  
    1 !> @file palm.f90
     1! !> @file palm.f90
    22!------------------------------------------------------------------------------!
    33! This file is part of the PALM model system.
     
    321321        ONLY:  netcdf_data_input_inquire_file, netcdf_data_input_init,         &
    322322               netcdf_data_input_surface_data, netcdf_data_input_topo
    323 
    324     USE particle_attributes,                                                   &
    325         ONLY:  particle_advection
    326323
    327324    USE pegrid
     
    452449    CALL MPI_COMM_RANK( comm_palm, myid, ierr )
    453450#endif
    454 
    455     CALL init_dvrp_logging
    456451
    457452!
     
    614609
    615610       CALL cpu_log( log_point(22), 'wrd_local', 'stop' )
    616 
    617 !
    618 !--    If required, write particle data in own restart files
    619        IF ( particle_advection )  CALL lpm_write_restart_file
    620611       
    621612    ENDIF
     
    641632!-- Close files
    642633    CALL close_file( 0 )
    643     CALL close_dvrp
    644634
    645635!
Note: See TracChangeset for help on using the changeset viewer.