Ignore:
Timestamp:
Jun 18, 2019 10:32:41 AM (2 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/average_3d_data.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!
     
    191194        ONLY:  cpu_log, log_point
    192195
    193     USE diagnostic_output_quantities_mod,                                      &
    194         ONLY:  ti_av
    195 
    196196    USE indices,                                                               &
    197197        ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
     
    521521             ENDIF
    522522
    523 
    524           CASE ( 'ti' )
    525              IF ( ALLOCATED( ti_av ) ) THEN
    526                 DO  i = nxl, nxr
    527                    DO  j = nys, nyn
    528                       DO  k = nzb, nzt+1
    529                          ti_av(k,j,i) = ti_av(k,j,i) / REAL( average_count_3d, KIND=wp )
    530                       ENDDO
    531                    ENDDO
    532                 ENDDO
    533              ENDIF
    534 
    535523          CASE ( 'w' )
    536524             IF ( ALLOCATED( w_av ) ) THEN
Note: See TracChangeset for help on using the changeset viewer.