Changeset 3998 for palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

Timestamp:

May 23, 2019 1:38:11 PM (5 years ago)

Author:

suehring

Message:

Bugfix in output module for diagnostic quantities

File:

• palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in gathering all output strings 
+! 
+! 3995 2019-05-22 18:59:54Z suehring
 ! Avoid compiler warnings about unused variable and fix string operation which
 ! is not allowed with PGI compiler
@@ -275 +278 @@
 !--    Remove _xy, _xz, or _yz from string
        l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) )
-       do2d_var(av,ivar)(0:l-2) = do2d(av,ivar)(0:l-2)
+       do2d_var(av,ivar)(1:l-3) = do2d(av,ivar)(1:l-3)
 !
 !--    Gather 2d output quantity names, check for double occurrence of output quantity
@@ -285 +288 @@
           ivar_all = ivar_all + 1
           l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) )
-          do2d_var(av,ivar)(0:l-2) = do2d(av,ivar)(0:l-2)
+          do2d_var(av,ivar)(1:l-3) = do2d(av,ivar)(1:l-3)
        ENDDO