Changeset 1682 for palm/trunk/SOURCE/lpm_extend_tail_array.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_extend_tail_array.f90
r1360 r1682 1 SUBROUTINE lpm_extend_tail_array( number_of_new_tails ) 2 1 !> @file lpm_extend_tail_array.f90 3 2 !--------------------------------------------------------------------------------! 4 3 ! This file is part of PALM. … … 20 19 ! Current revisions: 21 20 ! ------------------ 22 ! 21 ! Code annotations made doxygen readable 23 22 ! 24 23 ! Former revisions: … … 46 45 ! Description: 47 46 ! ------------ 48 ! Allocates more memory for the particle tail array.47 !> Allocates more memory for the particle tail array. 49 48 !------------------------------------------------------------------------------! 49 SUBROUTINE lpm_extend_tail_array( number_of_new_tails ) 50 50 51 51 52 USE kinds … … 58 59 IMPLICIT NONE 59 60 60 INTEGER(iwp) :: new_maximum_number ! :61 INTEGER(iwp) :: number_of_new_tails ! :61 INTEGER(iwp) :: new_maximum_number !< 62 INTEGER(iwp) :: number_of_new_tails !< 62 63 63 LOGICAL, DIMENSION(maximum_number_of_tails) :: tmp_tail_mask ! :64 LOGICAL, DIMENSION(maximum_number_of_tails) :: tmp_tail_mask !< 64 65 65 66 REAL(wp), DIMENSION(maximum_number_of_tailpoints,5,maximum_number_of_tails) :: & 66 tmp_tail ! :67 tmp_tail !< 67 68 68 69
Note: See TracChangeset
for help on using the changeset viewer.