Changeset 4039 for palm/trunk/SOURCE/data_output_mask.f90
- Timestamp:
- Jun 18, 2019 10:32:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_mask.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 ! … … 180 183 time_since_reference_point 181 184 185 USE diagnostic_output_quantities_mod, & 186 ONLY: doq_output_mask 187 182 188 USE cpulog, & 183 189 ONLY: cpu_log, log_point 184 185 USE diagnostic_output_quantities_mod, &186 ONLY: ti, ti_av187 190 188 191 USE indices, & … … 669 672 ENDIF 670 673 671 CASE ( 'ti' )672 IF ( av == 0 ) THEN673 to_be_resorted => ti674 ELSE675 to_be_resorted => ti_av676 ENDIF677 678 674 CASE ( 'w' ) 679 675 grid = 'w' … … 697 693 local_pf ) 698 694 ENDIF 695 ! 696 !-- Check for diagnostic quantities 697 CALL doq_output_mask( av, domask(mid,av,ivar), found, local_pf ) 699 698 ! 700 699 !-- SALSA quantities
Note: See TracChangeset
for help on using the changeset viewer.