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_3d.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!
     
    272275    USE cpulog,                                                                &
    273276        ONLY:  log_point, cpu_log
     277
     278    USE diagnostic_output_quantities_mod,                                      &
     279        ONLY:  ti, ti_av
    274280
    275281#if defined( __parallel )
     
    697703                ENDIF
    698704                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
    699716             ENDIF
    700717
Note: See TracChangeset for help on using the changeset viewer.