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/average_3d_data.f90

    r3933 r3994  
    2525! -----------------
    2626! $Id$
     27! output of turbulence intensity added
     28!
     29! 3933 2019-04-25 12:33:20Z kanani
    2730! Bugfix in CASE theta_2m*, removal of redundant code
    2831!
     
    188191        ONLY:  cpu_log, log_point
    189192
     193    USE diagnostic_output_quantities_mod,                                      &
     194        ONLY:  ti_av
     195
    190196    USE indices,                                                               &
    191197        ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
     
    515521             ENDIF
    516522
     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
    517535          CASE ( 'w' )
    518536             IF ( ALLOCATED( w_av ) ) THEN
Note: See TracChangeset for help on using the changeset viewer.