Changeset 4039 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Jun 18, 2019 10:32:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.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 ! … … 191 194 ONLY: cpu_log, log_point 192 195 193 USE diagnostic_output_quantities_mod, &194 ONLY: ti_av195 196 196 USE indices, & 197 197 ONLY: nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt … … 521 521 ENDIF 522 522 523 524 CASE ( 'ti' )525 IF ( ALLOCATED( ti_av ) ) THEN526 DO i = nxl, nxr527 DO j = nys, nyn528 DO k = nzb, nzt+1529 ti_av(k,j,i) = ti_av(k,j,i) / REAL( average_count_3d, KIND=wp )530 ENDDO531 ENDDO532 ENDDO533 ENDIF534 535 523 CASE ( 'w' ) 536 524 IF ( ALLOCATED( w_av ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.