Changeset 1320 for palm/trunk/SOURCE/lpm.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm.f90
r1319 r1320 20 20 ! Current revisions: 21 21 ! ------------------ 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 23 28 ! 24 29 ! Former revisions: … … 59 64 ! wang_collision_kernel renamed wang_kernel 60 65 ! 61 ! 799 2011-12-21 17:48:03Z franke62 ! Implementation of Wang collision kernel and corresponding new parameter63 ! wang_collision_kernel64 !65 ! 792 2011-12-01 raasch66 ! particle arrays (particles, particles_temp) implemented as pointers in67 ! order to speed up sorting (see routine sort_particles)68 !69 ! 759 2011-09-15 13:58:31Z raasch70 ! Splitting of parallel I/O (routine write_particles)71 66 ! 72 67 ! Revision 1.1 1999/11/25 16:16:06 raasch … … 79 74 !------------------------------------------------------------------------------! 80 75 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 85 99 USE pegrid 86 USE statistics87 100 88 101 IMPLICIT NONE 89 102 90 INTEGER :: m103 INTEGER(iwp) :: m !: 91 104 92 105
Note: See TracChangeset
for help on using the changeset viewer.