Changeset 1682 for palm/trunk/SOURCE/data_output_ptseries.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_ptseries.f90
r1360 r1682 1 SUBROUTINE data_output_ptseries 2 1 !> @file data_output_ptseries.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: … … 60 59 ! Description: 61 60 ! ------------ 62 ! Output of particle data timeseries in NetCDF format.61 !> Output of particle data timeseries in NetCDF format. 63 62 !------------------------------------------------------------------------------! 63 SUBROUTINE data_output_ptseries 64 64 65 65 66 USE cloud_parameters, & … … 88 89 89 90 90 INTEGER(iwp) :: i ! :91 INTEGER(iwp) :: inum ! :92 INTEGER(iwp) :: j ! :93 INTEGER(iwp) :: jg ! :94 INTEGER(iwp) :: k ! :95 INTEGER(iwp) :: n ! :96 97 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: pts_value ! :98 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: pts_value_l ! :91 INTEGER(iwp) :: i !< 92 INTEGER(iwp) :: inum !< 93 INTEGER(iwp) :: j !< 94 INTEGER(iwp) :: jg !< 95 INTEGER(iwp) :: k !< 96 INTEGER(iwp) :: n !< 97 98 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: pts_value !< 99 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: pts_value_l !< 99 100 100 101
Note: See TracChangeset
for help on using the changeset viewer.