Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (10 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.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:
     
    5964! wang_collision_kernel renamed wang_kernel
    6065!
    61 ! 799 2011-12-21 17:48:03Z franke
    62 ! Implementation of Wang collision kernel and corresponding new parameter
    63 ! wang_collision_kernel
    64 !
    65 ! 792 2011-12-01 raasch
    66 ! particle arrays (particles, particles_temp) implemented as pointers in
    67 ! order to speed up sorting (see routine sort_particles)
    68 !
    69 ! 759 2011-09-15 13:58:31Z raasch
    70 ! Splitting of parallel I/O (routine write_particles)
    7166!
    7267! Revision 1.1  1999/11/25 16:16:06  raasch
     
    7974!------------------------------------------------------------------------------!
    8075
    81     USE arrays_3d
    82     USE control_parameters
    83     USE cpulog
    84     USE particle_attributes
     76    USE arrays_3d,                                                             &
     77        ONLY:  ql_c, ql_v, ql_vp
     78
     79    USE control_parameters,                                                    &
     80        ONLY:  cloud_droplets, dt_3d, dt_3d_reached, dt_3d_reached_l,          &
     81               molecular_viscosity, simulated_time
     82
     83    USE cpulog,                                                                &
     84        ONLY:  cpu_log, log_point, log_point_s
     85
     86    USE kinds
     87
     88    USE particle_attributes,                                                   &
     89        ONLY:  collision_kernel, deleted_particles, dt_sort_particles,         &
     90               deleted_tails, dt_write_particle_data, dt_prel, end_time_prel,  &
     91               number_of_particles, number_of_particle_groups,particles,       &
     92               particle_groups, particle_mask, trlp_count_sum, tail_mask,      &
     93               time_prel, time_sort_particles, time_write_particle_data,       &
     94               trlp_count_recv_sum, trnp_count_sum, trnp_count_recv_sum,       &
     95               trrp_count_sum, trrp_count_recv_sum, trsp_count_sum,            &
     96               trsp_count_recv_sum, use_particle_tails, use_sgs_for_particles, &
     97               write_particle_statistics
     98
    8599    USE pegrid
    86     USE statistics
    87100
    88101    IMPLICIT NONE
    89102
    90     INTEGER ::  m
     103    INTEGER(iwp) ::  m                       !:
    91104
    92105
Note: See TracChangeset for help on using the changeset viewer.