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/data_output_ptseries.f90

    r1319 r1320  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! ONLY-attribute added to USE-statements,
     23! kind-parameters added to all INTEGER and REAL declaration statements,
     24! kinds are defined in new module kinds,
     25! revision history before 2012 removed,
     26! comment fields (!:) to be used for variable explanations added to
     27! all variable declaration statements
    2328!
    2429! Former revisions:
     
    3641! mean/minimum/maximum particle radius added as output quantity,
    3742! particle attributes speed_x|y|z_sgs renamed rvar1|2|3
    38 !
    39 ! 622 2010-12-10 08:08:13Z raasch
    40 ! optional barriers included in order to speed up collective operations
    41 !
    42 ! 291 2009-04-16 12:07:26Z raasch
    43 ! simulated_time in NetCDF output replaced by time_since_reference_point.
    44 ! Output of NetCDF messages with aid of message handling routine.
    45 !
    46 ! 60 2007-03-11 11:50:04Z raasch
    47 ! Particles-package is now part of the default code.
    48 !
    49 ! RCS Log replace by Id keyword, revision history cleaned up
    50 !
    51 ! Revision 1.2  2006/08/22 13:51:13  raasch
    52 ! Seperate output for particle groups
    5343!
    5444! Revision 1.1  2006/08/04 14:24:18  raasch
     
    6151!------------------------------------------------------------------------------!
    6252
    63     USE cloud_parameters
    64     USE control_parameters
    65     USE cpulog
    66     USE indices
     53    USE cloud_parameters,                                                      &
     54        ONLY:  curvature_solution_effects
     55
     56    USE control_parameters,                                                    &
     57        ONLY:  dopts_time_count, netcdf_output, time_since_reference_point
     58
     59    USE cpulog,                                                                &
     60        ONLY:  cpu_log, log_point
     61
     62    USE indices,                                                               &
     63        ONLY:
     64
     65    USE kinds
     66
    6767    USE netcdf_control
    68     USE particle_attributes
     68
     69    USE particle_attributes,                                                   &
     70        ONLY:  number_of_particles, number_of_particle_groups, particles
     71
    6972    USE pegrid
    7073
     
    7275
    7376
    74     INTEGER ::  i, inum, j, n
    75 
    76     REAL, DIMENSION(:,:), ALLOCATABLE ::  pts_value, pts_value_l
     77    INTEGER(iwp) ::  i    !:
     78    INTEGER(iwp) ::  inum !:
     79    INTEGER(iwp) ::  j    !:
     80    INTEGER(iwp) ::  n    !:
     81
     82    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  pts_value   !:
     83    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  pts_value_l !:
    7784
    7885
Note: See TracChangeset for help on using the changeset viewer.