Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:
1 edited

Legend:

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

    r3042 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3042 2018-05-25 10:44:37Z schwenkel
    2730! Changed the name specific humidity to mixing ratio
    2831!
     
    287290    USE control_parameters,                                                    &
    288291        ONLY:   average_count_pr, cloud_droplets, cloud_physics, do_sum,       &
    289                 dt_3d, g, humidity, initializing_actions, kappa, land_surface, &
     292                dt_3d, g, humidity, initializing_actions, land_surface,        &
    290293                large_scale_forcing, large_scale_subsidence, max_pr_user,      &
    291294                message_string, neutral, microphysics_morrison,                &
     
    348351    INTEGER(iwp) ::  l                   !< loop variable over surface facing -- up- or downward-facing
    349352    INTEGER(iwp) ::  nt                  !<
    350     INTEGER(iwp) ::  omp_get_thread_num  !<
     353!$  INTEGER(iwp) ::  omp_get_thread_num  !<
    351354    INTEGER(iwp) ::  sr                  !<
    352355    INTEGER(iwp) ::  tn                  !<
     
    359362    REAL(wp) ::  height           !<
    360363    REAL(wp) ::  pts              !<
    361     REAL(wp) ::  sums_l_eper      !<
    362364    REAL(wp) ::  sums_l_etot      !<
    363365    REAL(wp) ::  ust              !<
     
    675677!--          are zero at the walls and inside buildings.
    676678       tn = 0
    677        !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper,             &
     679       !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll,                          &
    678680       !$OMP                   sums_l_etot, tn, ust, ust2, u2, vst, vst2, v2,  &
    679681       !$OMP                   w2, flag, m, ki, l )
Note: See TracChangeset for help on using the changeset viewer.