Changeset 4039 for palm/trunk/SOURCE/sum_up_3d_data.f90
- Timestamp:
- Jun 18, 2019 10:32:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/sum_up_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 ! … … 286 289 USE cpulog, & 287 290 ONLY: cpu_log, log_point 288 289 USE diagnostic_output_quantities_mod, &290 ONLY: ti, ti_av291 291 292 292 USE indices, & … … 478 478 ENDIF 479 479 tsurf_av = 0.0_wp 480 481 CASE ( 'ti' )482 IF ( .NOT. ALLOCATED( ti_av ) ) THEN483 ALLOCATE( ti_av(nzb:nzt+1,nys:nyn,nxl:nxr) )484 ENDIF485 ti_av = 0.0_wp486 480 487 481 CASE ( 'u' ) … … 1031 1025 ENDIF 1032 1026 1033 CASE ( 'ti' )1034 IF ( ALLOCATED( ti_av ) ) THEN1035 DO i = nxl, nxr1036 DO j = nys, nyn1037 DO k = nzb, nzt+11038 ti_av(k,j,i) = ti_av(k,j,i) + ti(k,j,i)1039 ENDDO1040 ENDDO1041 ENDDO1042 ENDIF1043 1044 1027 CASE ( 'u' ) 1045 1028 IF ( ALLOCATED( u_av ) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.