Ignore:
Timestamp:
Apr 7, 2016 7:49:42 AM (5 years ago)
Author:
hoffmann
Message:

changes in LPM and bulk cloud microphysics

File:
1 edited

Legend:

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

    r1818 r1822  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Tails removed. Unused variables removed.
    2222!
    2323! Former revisions:
     
    5858
    5959    USE control_parameters,                                                    &
    60         ONLY:  prt_time_count, simulated_time
     60        ONLY:  simulated_time
    6161
    6262    USE cpulog,                                                                &
     
    6868    USE kinds
    6969
    70     USE netcdf_interface,                                                      &
    71         ONLY:  nc_stat
    72 
    7370    USE particle_attributes,                                                   &
    74         ONLY:  grid_particles, maximum_number_of_particles,                    &
    75                maximum_number_of_tailpoints, maximum_number_of_tails,          &
    76                number_of_particles, number_of_tails, particles,                &
    77                particle_tail_coordinates, prt_count
     71        ONLY:  grid_particles, number_of_particles,  particles, prt_count
    7872
    7973    IMPLICIT NONE
     
    10397       ENDDO
    10498    ENDDO
    105 !
    106 !-- particle tails currently not available
    107 !    WRITE ( 85 )  maximum_number_of_tailpoints, maximum_number_of_tails, &
    108 !                  number_of_tails
    109 !    IF ( maximum_number_of_tails > 0 )  THEN
    110 !       WRITE ( 85 )  particle_tail_coordinates, prt_time_count
    111 !    ENDIF
    11299
    113100    CALL close_file( 85 )
Note: See TracChangeset for help on using the changeset viewer.