Changeset 2817 for palm/trunk/SOURCE/flow_statistics.f90
- Timestamp:
- Feb 19, 2018 4:32:21 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/flow_statistics.f90
r2773 r2817 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Preliminary gust module interface implemented 28 ! 29 ! 2773 2018-01-30 14:12:54Z suehring 27 30 ! Timeseries output of surface temperature. 28 31 ! … … 283 286 USE grid_variables, & 284 287 ONLY: ddx, ddy 288 289 USE gust_mod, & 290 ONLY: gust_module_enabled, gust_statistics 285 291 286 292 USE indices, & … … 297 303 298 304 USE netcdf_interface, & 299 ONLY: dots_rad, dots_soil 305 ONLY: dots_rad, dots_soil, dots_max 300 306 301 307 USE pegrid … … 1742 1748 ENDDO 1743 1749 ENDDO 1750 ENDIF 1751 ! 1752 !-- Calculate the gust module profiles 1753 IF ( gust_module_enabled ) THEN 1754 CALL gust_statistics( 'profiles', sr, tn, dots_max ) 1744 1755 ENDIF 1745 1756 ! … … 2156 2167 2157 2168 ! 2169 !-- Calculate additional statistics provided by the gust module 2170 IF ( gust_module_enabled ) THEN 2171 CALL gust_statistics( 'time_series', sr, 0, dots_max ) 2172 ENDIF 2173 2174 ! 2158 2175 !-- Calculate additional statistics provided by the user interface 2159 2176 CALL user_statistics( 'time_series', sr, 0 )
Note: See TracChangeset
for help on using the changeset viewer.