Changeset 3998 for palm/trunk/SOURCE


Ignore:
Timestamp:
May 23, 2019 1:38:11 PM (5 years ago)
Author:
suehring
Message:

Bugfix in output module for diagnostic quantities

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3995 r3998  
    2525! -----------------
    2626! $Id$
     27! Bugfix in gathering all output strings
     28!
     29! 3995 2019-05-22 18:59:54Z suehring
    2730! Avoid compiler warnings about unused variable and fix string operation which
    2831! is not allowed with PGI compiler
     
    275278!--    Remove _xy, _xz, or _yz from string
    276279       l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) )
    277        do2d_var(av,ivar)(0:l-2) = do2d(av,ivar)(0:l-2)
     280       do2d_var(av,ivar)(1:l-3) = do2d(av,ivar)(1:l-3)
    278281!
    279282!--    Gather 2d output quantity names, check for double occurrence of output quantity
     
    285288          ivar_all = ivar_all + 1
    286289          l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) )
    287           do2d_var(av,ivar)(0:l-2) = do2d(av,ivar)(0:l-2)
     290          do2d_var(av,ivar)(1:l-3) = do2d(av,ivar)(1:l-3)
    288291       ENDDO
    289292
  • palm/trunk/SOURCE/read_restart_data_mod.f90

    r3994 r3998  
    2525! -----------------
    2626! $Id$
     27! Formatting adjustment
     28!
     29! 3994 2019-05-22 18:08:09Z suehring
    2730! output of turbulence intensity added
    2831!
     
    10971100    LOGICAL ::  found
    10981101
    1099     REAL(wp), DIMENSION(:,:),   ALLOCATABLE   ::  tmp_2d      !< temporary array for storing 2D data
    1100     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
    1102     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwul   !<
    1103     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwun   !<
    1104     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwur   !<
    1105     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwus   !<
    1106     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvl   !<
    1107     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvn   !<
    1108     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvr   !<
    1109     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvs   !<
    1110     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwl   !<
    1111     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwn   !<
    1112     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwr   !<
    1113     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwws   !<
     1102    REAL(wp), DIMENSION(:,:),   ALLOCATABLE   ::  tmp_2d         !< temporary array for storing 2D data
     1103    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d         !< temporary array for storing 3D data
     1104    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d_noghost !< temporary array for storing 3D data without ghost points
     1105    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwul      !<
     1106    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwun      !<
     1107    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwur      !<
     1108    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwus      !<
     1109    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvl      !<
     1110    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvn      !<
     1111    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvr      !<
     1112    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvs      !<
     1113    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwl      !<
     1114    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwn      !<
     1115    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwr      !<
     1116    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwws      !<
    11141117
    11151118
Note: See TracChangeset for help on using the changeset viewer.