Changeset 1682 for palm/trunk/SOURCE/lpm_extend_tails.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_extend_tails.f90
r1360 r1682 1 SUBROUTINE lpm_extend_tails 2 1 !> @file lpm_extend_tails.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 ! Add the current particle positions to the particle tails.47 !> Add the current particle positions to the particle tails. 49 48 !------------------------------------------------------------------------------! 49 SUBROUTINE lpm_extend_tails 50 50 51 51 52 USE control_parameters, & … … 61 62 IMPLICIT NONE 62 63 63 INTEGER(iwp) :: i ! :64 INTEGER(iwp) :: n ! :65 INTEGER(iwp) :: nn ! :64 INTEGER(iwp) :: i !< 65 INTEGER(iwp) :: n !< 66 INTEGER(iwp) :: nn !< 66 67 67 REAL(wp) :: distance ! :68 REAL(wp) :: distance !< 68 69 69 70
Note: See TracChangeset
for help on using the changeset viewer.