source: palm/trunk/SOURCE/mod_particle_attributes.f90 @ 2053

Last change on this file since 2053 was 2001, checked in by knoop, 8 years ago

last commit documented

  • Property svn:keywords set to Id
File size: 8.5 KB
RevLine 
[1682]1!> @file mod_particle_attributes.f90
[2000]2!------------------------------------------------------------------------------!
[1359]3! This file is part of PALM.
4!
[2000]5! PALM is free software: you can redistribute it and/or modify it under the
6! terms of the GNU General Public License as published by the Free Software
7! Foundation, either version 3 of the License, or (at your option) any later
8! version.
[1359]9!
10! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
11! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13!
14! You should have received a copy of the GNU General Public License along with
15! PALM. If not, see <http://www.gnu.org/licenses/>.
16!
[2000]17! Copyright 1997-2016 Leibniz Universitaet Hannover
18!------------------------------------------------------------------------------!
[1359]19!
20! Current revisions:
21! ------------------
[1937]22!
[2001]23!
[1360]24! Former revisions:
25! -----------------
26! $Id: mod_particle_attributes.f90 2001 2016-08-20 18:41:22Z gronemeier $
[1937]27!
[2001]28! 2000 2016-08-20 18:09:15Z knoop
29! Forced header and separation lines into 80 columns
30!
[1937]31! 1936 2016-06-13 13:37:44Z suehring
32! +deallocate_memory, step_dealloc
33!
[1930]34! 1929 2016-06-09 16:25:25Z suehring
35! -sgs_wfu_par, sgs_wfv_par, sgs_wfw_par
36! + sgs_wf_par
[1360]37!
[1872]38! 1871 2016-04-15 11:46:09Z hoffmann
39! Initialization of aerosols added.
40!
[1851]41! 1849 2016-04-08 11:33:18Z hoffmann
42! bfactor, mass_of_solute, molecular_weight_of_solute, molecular_weight_of_water,
43! vanthoff added from modules
44!
[1832]45! 1831 2016-04-07 13:15:51Z hoffmann
46! palm_kernel removed, curvature_solution_effects added
47!
[1823]48! 1822 2016-04-07 07:49:42Z hoffmann
49! +collision_algorithm, all_or_nothing, average_impact
50! Tails removed.
51!
[1728]52! 1727 2015-11-20 07:22:02Z knoop
53! Bugfix: Cause of syntax warning gfortran preprocessor removed
54!
[1683]55! 1682 2015-10-07 23:56:08Z knoop
56! Code annotations made doxygen readable
57!
[1576]58! 1575 2015-03-27 09:56:27Z raasch
59! +seed_follows_topography
60!
[1360]61! 1359 2014-04-11 17:15:14Z hoffmann
[1359]62! new module containing all particle related variables
63! -dt_sort_particles
64!
65! Description:
66! ------------
[1682]67!> Definition of variables used to compute particle transport
[1359]68!------------------------------------------------------------------------------!
[1682]69MODULE particle_attributes
70 
[1359]71
72    USE kinds
73
[1822]74    CHARACTER(LEN=15) ::  bc_par_lr = 'cyclic'                    !< left/right boundary condition
75    CHARACTER(LEN=15) ::  bc_par_ns = 'cyclic'                    !< north/south boundary condition
76    CHARACTER(LEN=15) ::  bc_par_b  = 'reflect'                   !< bottom boundary condition
77    CHARACTER(LEN=15) ::  bc_par_t  = 'absorb'                    !< top boundary condition
78    CHARACTER(LEN=15) ::  collision_algorithm = 'all_or_nothing'  !< collision algorithm
79    CHARACTER(LEN=15) ::  collision_kernel = 'none'               !< collision kernel
[1359]80
[1822]81    INTEGER(iwp) ::  deleted_particles = 0,                                    &
[1359]82                     dissipation_classes = 10, ibc_par_lr,                     &
83                     ibc_par_ns, ibc_par_b, ibc_par_t, iran_part = -1234567,   &
84                     maximum_number_of_particles = 0,                          &
85                     min_nr_particle = 50,                                     &
86                     mpi_particle_type,                                        &
87                     number_of_particles = 0,                                  &
[1822]88                     number_of_particle_groups = 1,                            &
89                     number_of_sublayers = 20,                                 &
[1359]90                     offset_ocean_nzt = 0,                                     &
91                     offset_ocean_nzt_m1 = 0, particles_per_point = 1,         &
92                     particle_file_count = 0, radius_classes = 20,             &
[1936]93                     sort_count = 0, step_dealloc = 100,                       &
[1822]94                     total_number_of_particles,                                &
[1359]95                     trlp_count_sum, trlp_count_recv_sum, trrp_count_sum,      &
96                     trrp_count_recv_sum, trsp_count_sum, trsp_count_recv_sum, &
97                     trnp_count_sum, trnp_count_recv_sum
98
99    INTEGER(iwp), PARAMETER ::  max_number_of_particle_groups = 10
100
101    INTEGER(iwp), DIMENSION(:,:,:), ALLOCATABLE ::  prt_count
102
[1822]103    LOGICAL ::  all_or_nothing = .FALSE., average_impact = .FALSE.,            &
[1831]104                curvature_solution_effects = .FALSE.,                          &
[1936]105                deallocate_memory = .TRUE.,                                    &
[1831]106                hall_kernel = .FALSE., particle_advection = .FALSE.,           &
107                random_start_position = .FALSE.,                               &
[1359]108                read_particles_from_restartfile = .TRUE.,                      &
[1575]109                seed_follows_topography = .FALSE.,                             &
[1359]110                uniform_particles = .TRUE., use_kernel_tables = .FALSE.,       &
[1822]111                use_sgs_for_particles = .FALSE., wang_kernel = .FALSE.,        &
112                write_particle_statistics = .FALSE.
[1359]113
114    LOGICAL, DIMENSION(max_number_of_particle_groups) ::                       &
115                vertical_particle_advection = .TRUE.
116
117    REAL(wp) ::  alloc_factor = 20.0_wp, c_0 = 3.0_wp,                         &
118                 dt_min_part = 0.0002_wp, dt_prel = 9999999.9_wp,              &
119                 dt_write_particle_data = 9999999.9_wp,                        &
[1822]120                 end_time_prel = 9999999.9_wp,                                 &
[1359]121                 initial_weighting_factor = 1.0_wp,                            &
122                 particle_advection_start = 0.0_wp,                            &
[1929]123                 sgs_wf_part, time_prel = 0.0_wp, time_sort_particles = 0.0_wp,&
[1359]124                 time_write_particle_data = 0.0_wp, z0_av_global
125
126    REAL(wp), DIMENSION(max_number_of_particle_groups) ::                      &
127                 density_ratio = 9999999.9_wp, pdx = 9999999.9_wp,             &
128                 pdy = 9999999.9_wp, pdz = 9999999.9_wp, psb = 9999999.9_wp,   &
129                 psl = 9999999.9_wp, psn = 9999999.9_wp, psr = 9999999.9_wp,   &
130                 pss = 9999999.9_wp, pst = 9999999.9_wp, radius = 9999999.9_wp
131
132    REAL(wp), DIMENSION(:), ALLOCATABLE     ::  log_z_z0
133
134    TYPE particle_type
135        SEQUENCE
136        REAL(wp)     ::  radius, age, age_m, dt_sum, dvrp_psize, e_m,          &
137                         origin_x, origin_y, origin_z, rvar1, rvar2, rvar3,    &
138                         speed_x, speed_y, speed_z, weight_factor, x, y, z
139        INTEGER(iwp) ::  class, group, tailpoints, tail_id
140        LOGICAL      ::  particle_mask
141        INTEGER(iwp) ::  block_nr
142    END TYPE particle_type
143
[1822]144    TYPE(particle_type), DIMENSION(:), POINTER ::  particles
145    TYPE(particle_type)                        ::  zero_particle
[1359]146
147    TYPE particle_groups_type
148        SEQUENCE
149        REAL(wp) ::  density_ratio, radius, exp_arg, exp_term
150    END TYPE particle_groups_type
151
152    TYPE(particle_groups_type), DIMENSION(max_number_of_particle_groups) ::    &
153       particle_groups
154
155    TYPE  grid_particle_def
156        INTEGER(iwp), DIMENSION(0:7)               ::  start_index
157        INTEGER(iwp), DIMENSION(0:7)               ::  end_index
158        LOGICAL                                    ::  time_loop_done
159        TYPE(particle_type), POINTER, DIMENSION(:) ::  particles                !Particle array for this grid cell
160    END TYPE grid_particle_def
161
162    TYPE(grid_particle_def), DIMENSION(:,:,:), ALLOCATABLE, TARGET ::  grid_particles
163
164    TYPE block_offset_def
165        INTEGER(iwp) ::  i_off
166        INTEGER(iwp) ::  j_off
167        INTEGER(iwp) ::  k_off
168    END TYPE block_offset_def
169
170    TYPE(block_offset_def), DIMENSION(0:7)         ::  block_offset
171
[1871]172!
173!-- Lagrangian cloud model constants (especially for steering aerosols)
174    REAL(wp) ::  molecular_weight_of_solute = 0.05844_wp    !< mol. m. NaCl (kg mol-1)
175    REAL(wp) ::  molecular_weight_of_water = 0.01801528_wp  !< mol. m. H2O (kg mol-1)
176    REAL(wp) ::  rho_s = 2165.0_wp                          !< density of NaCl (kg m-3)
177    REAL(wp) ::  vanthoff = 2.0_wp                          !< van't Hoff factor for NaCl
178
179    REAL(wp) ::  n1 = 100.0_wp, s1 = 2.0_wp, rm1 = 0.05E-6_wp, &
180                 n2 =   0.0_wp, s2 = 2.0_wp, rm2 = 0.05E-6_wp, &
181                 n3 =   0.0_wp, s3 = 2.0_wp, rm3 = 0.05E-6_wp
182
183    LOGICAL  ::  monodisperse_aerosols      = .FALSE.       !< initialize monodisperse aerosols
184    LOGICAL  ::  init_aerosol_probabilistic = .FALSE.       !< how to initialize aerosol spectra
185
[1359]186    SAVE
187
188
189END MODULE particle_attributes
190
Note: See TracBrowser for help on using the repository browser.