Changeset 1682 for palm/trunk/SOURCE/user_spectra.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_spectra.f90
r1321 r1682 1 SUBROUTINE user_spectra( mode, m, pr ) 2 1 !> @file user_spectra.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: … … 42 41 ! Description: 43 42 ! ------------ 44 ! Calculation of user-defined spectra.45 ! See section 3.5.4 on how to define, calculate, and output user defined46 ! quantities.43 !> Calculation of user-defined spectra. 44 !> See section 3.5.4 on how to define, calculate, and output user defined 45 !> quantities. 47 46 !------------------------------------------------------------------------------! 47 SUBROUTINE user_spectra( mode, m, pr ) 48 48 49 49 50 USE arrays_3d … … 65 66 CHARACTER (LEN=*) :: mode 66 67 67 INTEGER(iwp) :: i ! :68 INTEGER(iwp) :: j ! :69 INTEGER(iwp) :: k ! :70 INTEGER(iwp) :: m ! :71 INTEGER(iwp) :: pr ! :68 INTEGER(iwp) :: i !< 69 INTEGER(iwp) :: j !< 70 INTEGER(iwp) :: k !< 71 INTEGER(iwp) :: m !< 72 INTEGER(iwp) :: pr !< 72 73 73 74
Note: See TracChangeset
for help on using the changeset viewer.