Changeset 4017 for palm/trunk/SOURCE/palm.f90
- Timestamp:
- Jun 6, 2019 12:16:46 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/palm.f90
r3995 r4017 1 ! > @file palm.f901 ! !> @file palm.f90 2 2 !------------------------------------------------------------------------------! 3 3 ! This file is part of the PALM model system. … … 321 321 ONLY: netcdf_data_input_inquire_file, netcdf_data_input_init, & 322 322 netcdf_data_input_surface_data, netcdf_data_input_topo 323 324 USE particle_attributes, &325 ONLY: particle_advection326 323 327 324 USE pegrid … … 452 449 CALL MPI_COMM_RANK( comm_palm, myid, ierr ) 453 450 #endif 454 455 CALL init_dvrp_logging456 451 457 452 ! … … 614 609 615 610 CALL cpu_log( log_point(22), 'wrd_local', 'stop' ) 616 617 !618 !-- If required, write particle data in own restart files619 IF ( particle_advection ) CALL lpm_write_restart_file620 611 621 612 ENDIF … … 641 632 !-- Close files 642 633 CALL close_file( 0 ) 643 CALL close_dvrp644 634 645 635 !
Note: See TracChangeset
for help on using the changeset viewer.