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/calc_mean_profile.f90

    r2718 r3241  
    2525! -----------------
    2626! $Id$
     27! omp_get_thread_num now declared in openmp directive,
     28! unused variable removed
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2731! Corrected "Former revisions" section
    2832!
     
    8387
    8488       USE control_parameters,                                                 &
    85            ONLY:  intermediate_timestep_count, message_string
     89           ONLY:  intermediate_timestep_count
    8690
    8791       USE indices,                                                            &
     
    103107       INTEGER(iwp) ::  k                  !<
    104108       INTEGER(iwp) ::  pr                 !<
    105        INTEGER(iwp) ::  omp_get_thread_num !<
     109!$     INTEGER(iwp) ::  omp_get_thread_num !<
    106110       INTEGER(iwp) ::  tn                 !<
    107111       
Note: See TracChangeset for help on using the changeset viewer.