Ignore:
Timestamp:
Apr 7, 2016 7:49:42 AM (5 years ago)
Author:
hoffmann
Message:

changes in LPM and bulk cloud microphysics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm_boundary_conds.f90

    r1818 r1822  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Tails removed. Unused variables removed.
    2222!
    2323! Former revisions:
     
    7575
    7676    USE control_parameters,                                                    &
    77         ONLY:  dz, message_string, particle_maximum_age, simulated_time
     77        ONLY:  dz, message_string, particle_maximum_age
    7878
    7979    USE cpulog,                                                                &
     
    8989
    9090    USE particle_attributes,                                                   &
    91         ONLY:  deleted_particles, deleted_tails, ibc_par_b, ibc_par_t,         &
    92                number_of_particles, particles,                                 &
    93                particle_tail_coordinates, particle_type, offset_ocean_nzt_m1,  &
    94                tail_mask, use_particle_tails, use_sgs_for_particles
     91        ONLY:  deleted_particles, ibc_par_b, ibc_par_t, number_of_particles,   &
     92               particles, particle_type, offset_ocean_nzt_m1,                  &
     93               use_sgs_for_particles
    9594
    9695    USE pegrid
     
    119118    INTEGER(iwp) ::  k5             !<
    120119    INTEGER(iwp) ::  n              !<
    121     INTEGER(iwp) ::  nn             !<
    122120    INTEGER(iwp) ::  t_index        !<
    123121    INTEGER(iwp) ::  t_index_number !<
     
    150148       DO  n = 1, number_of_particles
    151149
    152           nn = particles(n)%tail_id
    153 
    154150!
    155151!--       Stop if particles have moved further than the length of one
     
    171167             particles(n)%particle_mask  = .FALSE.
    172168             deleted_particles = deleted_particles + 1
    173              IF ( use_particle_tails  .AND.  nn /= 0 )  THEN
    174                 tail_mask(nn) = .FALSE.
    175                 deleted_tails = deleted_tails + 1
    176              ENDIF
    177169          ENDIF
    178170
     
    183175                particles(n)%particle_mask  = .FALSE.
    184176                deleted_particles = deleted_particles + 1
    185                 IF ( use_particle_tails  .AND.  nn /= 0 )  THEN
    186                    tail_mask(nn) = .FALSE.
    187                    deleted_tails = deleted_tails + 1
    188                 ENDIF
    189177             ELSEIF ( ibc_par_t == 2 )  THEN
    190178!
     
    196184                   particles(n)%rvar3 = -particles(n)%rvar3
    197185                ENDIF
    198                 IF ( use_particle_tails  .AND.  nn /= 0 )  THEN
    199                    particle_tail_coordinates(1,3,nn) = 2.0_wp * zu(nz) - &
    200                                                particle_tail_coordinates(1,3,nn)
    201                 ENDIF
    202186             ENDIF
    203187          ENDIF
     
    209193                particles(n)%particle_mask  = .FALSE.
    210194                deleted_particles = deleted_particles + 1
    211                 IF ( use_particle_tails  .AND.  nn /= 0 )  THEN
    212                    tail_mask(nn) = .FALSE.
    213                    deleted_tails = deleted_tails + 1
    214                 ENDIF
    215195             ELSEIF ( ibc_par_b == 2 )  THEN
    216196!
     
    221201                     particles(n)%rvar3 < 0.0_wp )  THEN
    222202                   particles(n)%rvar3 = -particles(n)%rvar3
    223                 ENDIF
    224                 IF ( use_particle_tails  .AND.  nn /= 0 )  THEN
    225                    particle_tail_coordinates(1,3,nn) = 2.0_wp * zu(nz) - &
    226                                                particle_tail_coordinates(1,3,nn)
    227                 ENDIF
    228                 IF ( use_particle_tails  .AND.  nn /= 0 )  THEN
    229                    particle_tail_coordinates(1,3,nn) = 2.0_wp * zw(0) - &
    230                                                particle_tail_coordinates(1,3,nn)
    231203                ENDIF
    232204             ENDIF
Note: See TracChangeset for help on using the changeset viewer.