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

    r3988 r3994  
    2525! -----------------
    2626! $Id$
     27! output of turbulence intensity added
     28!
     29! 3988 2019-05-22 11:32:37Z kanani
    2730! + time_virtual_measurement (to enable steering of output interval)
    2831!
     
    124127    USE date_and_time_mod,                                                     &
    125128        ONLY:  day_of_year_init, time_utc_init
     129
     130    USE diagnostic_output_quantities_mod,                                      &
     131        ONLY:  ti_av
    126132
    127133    USE grid_variables,                                                        &
     
    10931099    REAL(wp), DIMENSION(:,:),   ALLOCATABLE   ::  tmp_2d      !< temporary array for storing 2D data
    10941100    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d      !< temporary array for storing 3D data
     1101    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d_noghost  !< temporary array for storing 3D data without ghost points
    10951102    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwul   !<
    10961103    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwun   !<
     
    12951302                        nxl_on_file-nbgp:nxr_on_file+nbgp),                    &
    12961303                 tmp_3d(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,           &
    1297                         nxl_on_file-nbgp:nxr_on_file+nbgp) )
     1304                        nxl_on_file-nbgp:nxr_on_file+nbgp),                    &
     1305                 tmp_3d_noghost(nzb:nzt+1,nys_on_file:nyn_on_file,             &
     1306                        nxl_on_file:nxr_on_file) )
    12981307
    12991308!
     
    15761585                   ssws_av(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  =         &
    15771586                      tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    1578                  
     1587
     1588                CASE ( 'ti_av' )
     1589                   IF ( .NOT. ALLOCATED( ti_av ) )  THEN
     1590                      ALLOCATE( ti_av(nzb:nzt+1,nys:nyn,nxl:nxr) )
     1591                   ENDIF
     1592                   IF ( k == 1 )  READ ( 13 )  tmp_3d_noghost
     1593                   ti_av(:,nysc:nync,nxlc:nxrc) =                              &
     1594                      tmp_3d_noghost(:,nysf:nynf,nxlf:nxrf)
     1595
    15791596                CASE ( 'ts_av' )
    15801597                   IF ( .NOT. ALLOCATED( ts_av ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.