Changeset 2817 for palm/trunk/SOURCE/sum_up_3d_data.f90
- Timestamp:
- Feb 19, 2018 4:32:21 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/sum_up_3d_data.f90
r2798 r2817 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Preliminary gust module interface implemented 28 ! 29 ! 2798 2018-02-09 17:16:39Z suehring 27 30 ! Consider also default-type surfaces for surface temperature output. 28 31 ! … … 199 202 ONLY: cpu_log, log_point 200 203 204 USE gust_mod, & 205 ONLY: gust_3d_data_averaging, gust_module_enabled 206 201 207 USE indices, & 202 208 ONLY: nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt … … 512 518 IF ( radiation ) THEN 513 519 CALL radiation_3d_data_averaging( 'allocate', doav(ii) ) 520 ENDIF 521 522 ! 523 !-- Gust module quantities 524 IF ( gust_module_enabled ) THEN 525 CALL gust_3d_data_averaging( 'allocate', doav(ii) ) 514 526 ENDIF 515 527 … … 1064 1076 1065 1077 ! 1078 !-- Gust module quantities 1079 IF ( gust_module_enabled ) THEN 1080 CALL gust_3d_data_averaging( 'sum', doav(ii) ) 1081 ENDIF 1082 1083 ! 1066 1084 !-- Chemical quantity 1067 1085 IF ( air_chemistry .AND. trimvar(1:3) == 'kc_') THEN
Note: See TracChangeset
for help on using the changeset viewer.