Ignore:
Timestamp:
Jun 18, 2019 10:32:41 AM (5 years ago)
Author:
suehring
Message:

diagnostic output: Modularize diagnostic output, rename subroutines; formatting adjustments; allocate arrays only when required; add output of uu, vv, ww to enable variance calculation via temporal EC method; radiation: bugfix in masked data output; flow_statistics: Correct conversion to kinematic vertical scalar fluxes in case of pw-scheme and statistic regions

File:
1 edited

Legend:

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

    r3994 r4039  
    2525! -----------------
    2626! $Id$
     27! modularize diagnostic output
     28!
     29! 3994 2019-05-22 18:08:09Z suehring
    2730! output of turbulence intensity added
    2831!
     
    275278    USE cpulog,                                                                &
    276279        ONLY:  log_point, cpu_log
    277 
    278     USE diagnostic_output_quantities_mod,                                      &
    279         ONLY:  ti, ti_av
    280280
    281281#if defined( __parallel )
     
    703703                ENDIF
    704704                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
    716705             ENDIF
    717706
Note: See TracChangeset for help on using the changeset viewer.