Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (8 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

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

    r1319 r1320  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! ONLY-attribute added to USE-statements,
     23! revision history before 2012 removed,
    2324!
    2425! Former revisions:
    2526! -----------------
    2627! $Id$
    27 !
    28 ! 1318 2014-03-17 13:35:16Z raasch
    29 ! module interfaces removed
    30 !
    3128!
    3229! 1036 2012-10-22 13:43:42Z raasch
     
    4340!------------------------------------------------------------------------------!
    4441
    45     USE control_parameters
    46     USE cpulog
     42    USE control_parameters,                                                    &
     43        ONLY:  netcdf_output, prt_time_count, simulated_time
     44
     45    USE cpulog,                                                                &
     46        ONLY:  cpu_log, log_point_s
     47
    4748    USE netcdf_control
    48     USE particle_attributes
     49
     50    USE particle_attributes,                                                   &
     51        ONLY:  maximum_number_of_particles, maximum_number_of_tailpoints,      &
     52               maximum_number_of_tails, number_of_particles, number_of_tails,  &
     53               particles, particle_tail_coordinates
    4954
    5055    IMPLICIT NONE
     
    6469                  number_of_tails
    6570    IF ( maximum_number_of_tails > 0 )  THEN
    66        WRITE ( 85 )  particle_tail_coordinates
     71       WRITE ( 85 )  particle_tail_coordinates, prt_time_count
    6772    ENDIF
    6873
Note: See TracChangeset for help on using the changeset viewer.