Changeset 1682 for palm/trunk/SOURCE/sum_up_3d_data.f90
 Timestamp:
 Oct 7, 2015 11:56:08 PM (6 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/sum_up_3d_data.f90
r1586 r1682 1 SUBROUTINE sum_up_3d_data 2 1 !> @file sum_up_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: … … 75 74 ! Description: 76 75 !  77 ! Sumup the values of 3darrays. The real averaging is later done in routine78 ! average_3d_data.76 !> Sumup the values of 3darrays. The real averaging is later done in routine 77 !> average_3d_data. 79 78 !! 79 SUBROUTINE sum_up_3d_data 80 80 81 81 82 USE arrays_3d, & … … 121 122 IMPLICIT NONE 122 123 123 INTEGER(iwp) :: i ! :124 INTEGER(iwp) :: ii ! :125 INTEGER(iwp) :: j ! :126 INTEGER(iwp) :: k ! :127 INTEGER(iwp) :: n ! :128 INTEGER(iwp) :: psi ! :129 130 REAL(wp) :: mean_r ! :131 REAL(wp) :: s_r2 ! :132 REAL(wp) :: s_r3 ! :124 INTEGER(iwp) :: i !< 125 INTEGER(iwp) :: ii !< 126 INTEGER(iwp) :: j !< 127 INTEGER(iwp) :: k !< 128 INTEGER(iwp) :: n !< 129 INTEGER(iwp) :: psi !< 130 131 REAL(wp) :: mean_r !< 132 REAL(wp) :: s_r2 !< 133 REAL(wp) :: s_r3 !< 133 134 134 135 CALL cpu_log (log_point(34),'sum_up_3d_data','start')
Note: See TracChangeset
for help on using the changeset viewer.