Changeset 3995


Ignore:
Timestamp:
May 22, 2019 6:59:54 PM (2 years ago)
Author:
suehring
Message:

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

Location:
palm/trunk/SOURCE
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

    r3994 r3995  
    2525! -----------------
    2626! $Id$
     27! Avoid compiler warnings about unused variable and fix string operation which
     28! is not allowed with PGI compiler
     29!
     30! 3994 2019-05-22 18:08:09Z suehring
    2731! Initial revision
    2832!
     
    149153
    150154    IMPLICIT NONE
    151 
     155!
     156!-- Next line is to avoid compiler warnings about unused variables
     157    IF ( timestep_number_at_prev_calc == 0 )  CONTINUE
    152158
    153159    initialized_diagnostic_output_quantities = .FALSE.
     
    269275!--    Remove _xy, _xz, or _yz from string
    270276       l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) )
    271        do2d_var(av,ivar) = do2d(av,ivar)(0:l-2)
     277       do2d_var(av,ivar)(0:l-2) = do2d(av,ivar)(0:l-2)
    272278!
    273279!--    Gather 2d output quantity names, check for double occurrence of output quantity
     
    279285          ivar_all = ivar_all + 1
    280286          l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) )
    281           do2d_var(av,ivar) = do2d(av,ivar)(0:l-2)
     287          do2d_var(av,ivar)(0:l-2) = do2d(av,ivar)(0:l-2)
    282288       ENDDO
    283289
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r3994 r3995  
    2121! -----------------
    2222!
     23!
    2324! Former revisions:
    2425! -----------------
    2526! $Id$
     27!
     28! 3994 2019-05-22 18:08:09Z suehring
    2629! Remove single location message
    2730!
  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r3994 r3995  
    2020! Current revisions:
    2121! ------------------
    22 ! output of turbulence intensity added
     22!
    2323!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! output of turbulence intensity added
     28!
     29! 3994 2019-05-22 18:08:09Z suehring
    2730! remove origin time from time unit, compose origin_time_string within
    2831! subroutine netcdf_create_global_atts
  • palm/trunk/SOURCE/palm.f90

    r3994 r3995  
    305305
    306306    USE diagnostic_output_quantities_mod,                                      &
    307         ONLY:  diagnostic_output_quantities_calculate,                         &
    308                timestep_number_at_prev_calc
     307        ONLY:  diagnostic_output_quantities_calculate
    309308
    310309    USE indices,                                                               &
Note: See TracChangeset for help on using the changeset viewer.