Changeset 3998 for palm/trunk/SOURCE

Timestamp:

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

Author:

suehring

Message:

Bugfix in output module for diagnostic quantities

Location:

palm/trunk/SOURCE

Files:

• diagnostic_output_quantities_mod.f90 (modified) (3 diffs)
• read_restart_data_mod.f90 (modified) (2 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
 

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Formatting adjustment
+! 
+! 3994 2019-05-22 18:08:09Z suehring
 ! output of turbulence intensity added
 ! 
@@ -1097 +1100 @@
     LOGICAL ::  found
 
-    REAL(wp), DIMENSION(:,:),   ALLOCATABLE   ::  tmp_2d      !< temporary array for storing 2D data
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d      !< temporary array for storing 3D data
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d_noghost  !< temporary array for storing 3D data without ghost points
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwul   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwun   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwur   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwus   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvl   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvn   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvr   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvs   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwl   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwn   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwr   !<
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwws   !<
+    REAL(wp), DIMENSION(:,:),   ALLOCATABLE   ::  tmp_2d         !< temporary array for storing 2D data
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d         !< temporary array for storing 3D data
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d_noghost !< temporary array for storing 3D data without ghost points
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwul      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwun      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwur      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwus      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvl      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvn      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvr      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwvs      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwl      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwn      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwwr      !<
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwws      !<