Changeset 4039 for palm/trunk/SOURCE/data_output_2d.f90
- Timestamp:
- Jun 18, 2019 10:32:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_2d.f90
r3994 r4039 25 25 ! ----------------- 26 26 ! $Id$ 27 ! modularize diagnostic output 28 ! 29 ! 3994 2019-05-22 18:08:09Z suehring 27 30 ! output of turbulence intensity added 28 31 ! … … 324 327 USE cpulog, & 325 328 ONLY: cpu_log, log_point 326 327 USE diagnostic_output_quantities_mod, &328 ONLY: ti, ti_av329 329 330 330 USE indices, & … … 1171 1171 IF ( ibc_uv_b == 0 ) local_pf(:,:,nzb) = 0.0_wp 1172 1172 ENDIF 1173 1173 1174 1174 CASE ( 'us*_xy' ) ! 2d-array 1175 1175 IF ( av == 0 ) THEN … … 1266 1266 two_d = .TRUE. 1267 1267 level_z(nzb+1) = zu(nzb+1) 1268 1269 CASE ( 'ti_xy', 'ti_xz', 'ti_yz' )1270 IF ( av == 0 ) THEN1271 to_be_resorted => ti1272 ELSE1273 IF ( .NOT. ALLOCATED( ti_av ) ) THEN1274 ALLOCATE( ti_av(nzb:nzt+1,nys:nyn,nxl:nxr) )1275 ti_av = REAL( fill_value, KIND = wp )1276 ENDIF1277 to_be_resorted => ti_av1278 ENDIF1279 IF ( mode == 'xy' ) level_z = zu1280 1268 1281 1269 CASE ( 'w_xy', 'w_xz', 'w_yz' )
Note: See TracChangeset
for help on using the changeset viewer.