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_pack_arrays.f90

    r1310 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! comment fields (!:) to be used for variable explanations added to
     26! all variable declaration statements
    2327!
    2428! Former revisions:
     
    4044!------------------------------------------------------------------------------!
    4145
    42     USE particle_attributes
     46    USE kinds
     47
     48    USE particle_attributes,                                                   &
     49        ONLY:  deleted_particles, deleted_tails, new_tail_id,                  &
     50               number_of_particles, number_of_tails, particles, particle_mask, &
     51               particle_tail_coordinates, tail_mask, use_particle_tails
     52
    4353
    4454    IMPLICIT NONE
    4555
    46     INTEGER ::  n, nd, nn
    47 
    48 
     56    INTEGER(iwp) ::  n       !:
     57    INTEGER(iwp) ::  nd      !:
     58    INTEGER(iwp) ::  nn      !:
    4959!
    5060!-- Find out elements marked for deletion and move data with higher index
Note: See TracChangeset for help on using the changeset viewer.