Changeset 3994 for palm/trunk/SOURCE/data_output_3d.f90
- Timestamp:
- May 22, 2019 6:08:09 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_3d.f90
r3987 r3994 25 25 ! ----------------- 26 26 ! $Id$ 27 ! output of turbulence intensity added 28 ! 29 ! 3987 2019-05-22 09:52:13Z kanani 27 30 ! Introduce alternative switch for debug output during timestepping 28 31 ! … … 272 275 USE cpulog, & 273 276 ONLY: log_point, cpu_log 277 278 USE diagnostic_output_quantities_mod, & 279 ONLY: ti, ti_av 274 280 275 281 #if defined( __parallel ) … … 697 703 ENDIF 698 704 to_be_resorted => vpt_av 705 ENDIF 706 707 CASE ( 'ti' ) 708 IF ( av == 0 ) THEN 709 to_be_resorted => ti 710 ELSE 711 IF ( .NOT. ALLOCATED( ti_av ) ) THEN 712 ALLOCATE( ti_av(nzb:nzt+1,nys:nyn,nxl:nxr) ) 713 ti_av = REAL( fill_value, KIND = wp ) 714 ENDIF 715 to_be_resorted => ti_av 699 716 ENDIF 700 717
Note: See TracChangeset
for help on using the changeset viewer.