Changeset 3995 for palm/trunk

Timestamp:

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

Author:

suehring

Message:

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

Location:

palm/trunk/SOURCE

Files:

• diagnostic_output_quantities_mod.f90 (modified) (4 diffs)
• netcdf_data_input_mod.f90 (modified) (1 diff)
• netcdf_interface_mod.f90 (modified) (1 diff)
• palm.f90 (modified) (1 diff)

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
 

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -21 +21 @@
 ! -----------------
 ! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! 
+! 3994 2019-05-22 18:08:09Z suehring
 ! Remove single location message
 ! 

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! output of turbulence intensity added
+! 
 ! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! output of turbulence intensity added
+! 
+! 3994 2019-05-22 18:08:09Z suehring
 ! remove origin time from time unit, compose origin_time_string within
 ! subroutine netcdf_create_global_atts

palm/trunk/SOURCE/palm.f90

@@ -305 +305 @@
 
     USE diagnostic_output_quantities_mod,                                      &
-        ONLY:  diagnostic_output_quantities_calculate,                         &
-               timestep_number_at_prev_calc
+        ONLY:  diagnostic_output_quantities_calculate
 
     USE indices,                                                               &