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

    r1818 r1822  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Tails removed. Unused variables removed.
    2222!
    2323! Former revisions:
     
    5151! Description:
    5252! ------------
    53 !> Pack particle and tail arrays, which means eliminate those elements marked for
     53!> Pack particle arrays, which means eliminate those elements marked for
    5454!> deletion and move data with higher index values to these free indices.
    5555!> Determine the new number of particles.
     
    5959
    6060    USE particle_attributes,                                                   &
    61         ONLY:  deleted_tails, grid_particles, new_tail_id,                     &
    62                number_of_particles, number_of_tails, offset_ocean_nzt,         &
    63                particles, particle_type, prt_count,                            &
    64                particle_tail_coordinates, tail_mask, use_particle_tails
     61        ONLY:  grid_particles, number_of_particles, offset_ocean_nzt,          &
     62               particles, particle_type, prt_count
    6563
    6664    PRIVATE
     
    127125
    128126       INTEGER(iwp) ::  n       !<
    129        INTEGER(iwp) ::  nd      !<
    130127       INTEGER(iwp) ::  nn      !<
    131128!
     
    158155       number_of_particles = nn
    159156
    160 !
    161 !-- particle tails are currently not available
    162 !
    163 !-- Handle tail array in the same way, store the new tail ids and re-assign it
    164 !-- to the respective particles
    165 !    IF ( use_particle_tails )  THEN
    166 !
    167 !       nn = 0
    168 !       nd = 0
    169 !
    170 !       DO  n = 1, number_of_tails
    171 !
    172 !          IF ( tail_mask(n) )  THEN
    173 !             nn = nn + 1
    174 !             particle_tail_coordinates(:,:,nn) = &
    175 !                                                particle_tail_coordinates(:,:,n)
    176 !             new_tail_id(n) = nn
    177 !          ELSE
    178 !             nd = nd + 1
    179 !          ENDIF
    180 !
    181 !       ENDDO
    182 !
    183 !       DO  n = 1, number_of_particles
    184 !          IF ( particles(n)%tail_id /= 0 )  THEN
    185 !             particles(n)%tail_id = new_tail_id(particles(n)%tail_id)
    186 !          ENDIF
    187 !       ENDDO
    188 !
    189 !    ENDIF
    190 
    191 !
    192 !-- The number of deleted tails has been determined in routines
    193 !-- lpm_boundary_conds and lpm_exchange_horiz
    194 !   number_of_tails = number_of_tails - deleted_tails
    195 
    196 
    197157    END SUBROUTINE lpm_pack_arrays
    198158
     
    206166      USE control_parameters,                                                  &
    207167          ONLY: dz
    208 
    209       USE indices,                                                             &
    210           ONLY: nxl, nxr, nys, nyn, nzb, nzt
    211168
    212169      USE kinds
Note: See TracChangeset for help on using the changeset viewer.