Ignore:
Timestamp:
May 22, 2019 6:08:09 PM (2 years ago)
Author:
suehring
Message:

new module for diagnostic output quantities added + output of turbulence intensity

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_mask.f90

    r3665 r3994  
    2525! -----------------
    2626! $Id$
     27! output of turbulence intensity added
     28!
     29! 3665 2019-01-10 08:28:24Z raasch
    2730! unused variables removed
    2831!
     
    179182    USE cpulog,                                                                &
    180183        ONLY:  cpu_log, log_point
     184
     185    USE diagnostic_output_quantities_mod,                                      &
     186        ONLY:  ti, ti_av
    181187
    182188    USE indices,                                                               &
     
    663669             ENDIF
    664670
     671          CASE ( 'ti' )
     672             IF ( av == 0 )  THEN
     673                to_be_resorted => ti
     674             ELSE
     675                to_be_resorted => ti_av
     676             ENDIF
     677
    665678          CASE ( 'w' )
    666679             grid = 'w'
Note: See TracChangeset for help on using the changeset viewer.