Changeset 1682 for palm/trunk/SOURCE/user_3d_data_averaging.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_3d_data_averaging.f90
r1354 r1682 1 SUBROUTINE user_3d_data_averaging( mode, variable ) 2 1 !> @file user_3d_data_averaging.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: … … 47 46 ! Description: 48 47 ! ------------ 49 ! Sum up and time-average user-defined output quantities as well as allocate50 ! the array necessary for storing the average.48 !> Sum up and time-average user-defined output quantities as well as allocate 49 !> the array necessary for storing the average. 51 50 !------------------------------------------------------------------------------! 51 SUBROUTINE user_3d_data_averaging( mode, variable ) 52 52 53 53 54 USE control_parameters … … 61 62 IMPLICIT NONE 62 63 63 CHARACTER (LEN=*) :: mode ! :64 CHARACTER (LEN=*) :: variable ! :64 CHARACTER (LEN=*) :: mode !< 65 CHARACTER (LEN=*) :: variable !< 65 66 66 INTEGER(iwp) :: i ! :67 INTEGER(iwp) :: j ! :68 INTEGER(iwp) :: k ! :67 INTEGER(iwp) :: i !< 68 INTEGER(iwp) :: j !< 69 INTEGER(iwp) :: k !< 69 70 70 71 IF ( mode == 'allocate' ) THEN
Note: See TracChangeset
for help on using the changeset viewer.