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

Timestamp:

May 22, 2019 6:59:54 PM (5 years ago)

Author:

suehring

Message:

remove unused variable and fix non-standard string operation PGI compiler

File:

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

palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Avoid compiler warnings about unused variable and fix string operation which
+! is not allowed with PGI compiler
+! 
+! 3994 2019-05-22 18:08:09Z suehring
 ! Initial revision
 !
@@ -149 +153 @@
 
     IMPLICIT NONE
-
+!
+!-- Next line is to avoid compiler warnings about unused variables
+    IF ( timestep_number_at_prev_calc == 0 )  CONTINUE
 
     initialized_diagnostic_output_quantities = .FALSE.
@@ -269 +275 @@
 !--    Remove _xy, _xz, or _yz from string
        l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) )
-       do2d_var(av,ivar) = do2d(av,ivar)(0:l-2)
+       do2d_var(av,ivar)(0:l-2) = do2d(av,ivar)(0:l-2)
 !
 !--    Gather 2d output quantity names, check for double occurrence of output quantity
@@ -279 +285 @@
           ivar_all = ivar_all + 1
           l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) )
-          do2d_var(av,ivar) = do2d(av,ivar)(0:l-2)
+          do2d_var(av,ivar)(0:l-2) = do2d(av,ivar)(0:l-2)
        ENDDO