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

Bugfix in output module for diagnostic quantities

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.