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

    r1310 r1320  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! ONLY-attribute added to USE-statements,
     23! comment fields (!:) to be used for variable explanations added to
     24! all variable declaration statements
    2325!
    2426! Former revisions:
     
    3840!------------------------------------------------------------------------------!
    3941
    40     USE control_parameters
    41     USE indices
    42     USE particle_attributes
     42    USE control_parameters,                                                    &
     43        ONLY:  message_string
     44
     45    USE indices,                                                               &
     46        ONLY:  nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz, nzb, nzt
     47
     48    USE particle_attributes,                                                   &
     49        ONLY:  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t, initial_particles,    &
     50               number_of_initial_particles, maximum_number_of_particles,       &
     51               maximum_number_of_tailpoints, maximum_number_of_tails,          &
     52               new_tail_id, number_of_particles, number_of_particle_groups,    &
     53               number_of_tails, particles, particle_groups, particle_mask,     &
     54               particle_tail_coordinates, particle_type, part_1, part_2,       &
     55               prt_count, prt_start_index,  sort_count, tail_mask, time_prel,  &
     56               time_write_particle_data, uniform_particles, use_particle_tails
     57
     58
    4359    USE pegrid
    4460
    4561    IMPLICIT NONE
    4662
    47     CHARACTER (LEN=10) ::  particle_binary_version, version_on_file
     63    CHARACTER (LEN=10) ::  particle_binary_version    !:
     64    CHARACTER (LEN=10) ::  version_on_file            !:
    4865
    4966!
Note: See TracChangeset for help on using the changeset viewer.