source: palm/trunk/SOURCE/lpm_write_exchange_statistics.f90 @ 849

Last change on this file since 849 was 849, checked in by raasch, 10 years ago

Changed:


Original routine advec_particles split into several new subroutines and renamed
lpm.
init_particles renamed lpm_init
user_advec_particles renamed user_lpm_advec,
particle_boundary_conds renamed lpm_boundary_conds,
set_particle_attributes renamed lpm_set_attributes,
user_init_particles renamed user_lpm_init,
user_particle_attributes renamed user_lpm_set_attributes
(Makefile, lpm_droplet_collision, lpm_droplet_condensation, init_3d_model, modules, palm, read_var_list, time_integration, write_var_list, deleted: advec_particles, init_particles, particle_boundary_conds, set_particle_attributes, user_advec_particles, user_init_particles, user_particle_attributes, new: lpm, lpm_advec, lpm_boundary_conds, lpm_calc_liquid_water_content, lpm_data_output_particles, lpm_droplet_collision, lpm_drollet_condensation, lpm_exchange_horiz, lpm_extend_particle_array, lpm_extend_tails, lpm_extend_tail_array, lpm_init, lpm_init_sgs_tke, lpm_pack_arrays, lpm_read_restart_file, lpm_release_set, lpm_set_attributes, lpm_sort_arrays, lpm_write_exchange_statistics, lpm_write_restart_file, user_lpm_advec, user_lpm_init, user_lpm_set_attributes

  • Property svn:keywords set to Id
File size: 1.5 KB
Line 
1 SUBROUTINE lpm_write_exchange_statistics
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! ------------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: lpm_write_exchange_statistics.f90 849 2012-03-15 10:35:09Z raasch $
11!
12!
13! Description:
14! ------------
15! Write particle statistics (total particle numbers and number of particles
16! exchanged between subdomains) on ASCII file.
17!
18! ATTENTION: output format of this file could be further improved! At current
19!            stage it is only a test output.
20!------------------------------------------------------------------------------!
21
22    USE control_parameters
23    USE particle_attributes
24    USE pegrid
25
26    IMPLICIT NONE
27
28
29    CALL check_open( 80 )
30#if defined( __parallel )
31    WRITE ( 80, 8000 )  current_timestep_number+1, simulated_time+dt_3d, &
32                        number_of_particles, pleft, trlp_count_sum,      &
33                        trlp_count_recv_sum, pright, trrp_count_sum,     &
34                        trrp_count_recv_sum, psouth, trsp_count_sum,     &
35                        trsp_count_recv_sum, pnorth, trnp_count_sum,     &
36                        trnp_count_recv_sum, maximum_number_of_particles
37    CALL close_file( 80 )
38#else
39    WRITE ( 80, 8000 )  current_timestep_number+1, simulated_time+dt_3d, &
40                        number_of_particles, maximum_number_of_particles
41#endif
42
43!
44!-- Formats
458000 FORMAT (I6,1X,F7.2,4X,I6,5X,4(I3,1X,I4,'/',I4,2X),6X,I6)
46
47
48 END SUBROUTINE lpm_write_exchange_statistics
Note: See TracBrowser for help on using the repository browser.