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_2d.f90

    r3987 r3994  
    2525! -----------------
    2626! $Id$
     27! output of turbulence intensity added
     28!
     29! 3987 2019-05-22 09:52:13Z kanani
    2730! Introduce alternative switch for debug output during timestepping
    2831!
     
    321324    USE cpulog,                                                                &
    322325        ONLY:  cpu_log, log_point
     326
     327    USE diagnostic_output_quantities_mod,                                      &
     328        ONLY:  ti, ti_av
    323329
    324330    USE indices,                                                               &
     
    12611267                level_z(nzb+1) = zu(nzb+1)
    12621268               
    1263                
    1264                
     1269             CASE ( 'ti_xy', 'ti_xz', 'ti_yz' )
     1270                IF ( av == 0 )  THEN
     1271                   to_be_resorted => ti
     1272                ELSE
     1273                   IF ( .NOT. ALLOCATED( ti_av ) ) THEN
     1274                      ALLOCATE( ti_av(nzb:nzt+1,nys:nyn,nxl:nxr) )
     1275                      ti_av = REAL( fill_value, KIND = wp )
     1276                   ENDIF
     1277                   to_be_resorted => ti_av
     1278                ENDIF
     1279                IF ( mode == 'xy' )  level_z = zu
     1280
    12651281             CASE ( 'w_xy', 'w_xz', 'w_yz' )
    12661282                flag_nr = 3
Note: See TracChangeset for help on using the changeset viewer.