Changeset 1682 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r1586 r1682 1 SUBROUTINE average_3d_data 2 1 !> @file average_3d_data.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: … … 68 67 ! Description: 69 68 ! ------------ 70 ! Time-averaging of 3d-data-arrays.69 !> Time-averaging of 3d-data-arrays. 71 70 !------------------------------------------------------------------------------! 71 SUBROUTINE average_3d_data 72 72 73 73 74 USE averaging … … 97 98 IMPLICIT NONE 98 99 99 INTEGER(iwp) :: i ! :100 INTEGER(iwp) :: ii ! :101 INTEGER(iwp) :: j ! :102 INTEGER(iwp) :: k ! :100 INTEGER(iwp) :: i !< 101 INTEGER(iwp) :: ii !< 102 INTEGER(iwp) :: j !< 103 INTEGER(iwp) :: k !< 103 104 104 105
Note: See TracChangeset
for help on using the changeset viewer.