Ignore:
Timestamp:
Feb 27, 2019 2:35:58 PM (2 years ago)
Author:
raasch
Message:

variables commented out + statement added to avoid compiler warnings about unused variables

File:
1 edited

Legend:

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

    r3655 r3768  
    2525! -----------------
    2626! $Id$
     27! statements commented or added to avoid compiler warnings about unused variables
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! Corrected "Former revisions" section
    2831!
     
    5154    USE kinds
    5255   
    53     USE netcdf_interface,                                                      &
    54         ONLY: dofl_label, dofl_unit
     56!    USE netcdf_interface,                                                      &
     57!        ONLY: dofl_label, dofl_unit
    5558   
    5659    USE user
     
    6467   
    6568    LOGICAL ::  init  !< variable to recognize initial call
     69
     70!
     71!-- Following statements are added to avoid compiler warnings about unused variables. Please remove.
     72    IF ( PRESENT( id )        )  CONTINUE
     73    IF ( PRESENT( k )         )  CONTINUE
     74    IF ( PRESENT( label_leg ) )  CONTINUE
     75
    6676!
    6777!-- Sample for user-defined flight-time series.
Note: See TracChangeset for help on using the changeset viewer.