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_mask.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!
     
    180183               time_since_reference_point
    181184
     185    USE diagnostic_output_quantities_mod,                                      &
     186        ONLY:  doq_output_mask
     187               
    182188    USE cpulog,                                                                &
    183189        ONLY:  cpu_log, log_point
    184 
    185     USE diagnostic_output_quantities_mod,                                      &
    186         ONLY:  ti, ti_av
    187190
    188191    USE indices,                                                               &
     
    669672             ENDIF
    670673
    671           CASE ( 'ti' )
    672              IF ( av == 0 )  THEN
    673                 to_be_resorted => ti
    674              ELSE
    675                 to_be_resorted => ti_av
    676              ENDIF
    677 
    678674          CASE ( 'w' )
    679675             grid = 'w'
     
    697693                                           local_pf )
    698694             ENDIF
     695!
     696!--          Check for diagnostic quantities
     697             CALL doq_output_mask( av, domask(mid,av,ivar), found, local_pf )
    699698!
    700699!--          SALSA quantities
Note: See TracChangeset for help on using the changeset viewer.