Changeset 3768 for palm/trunk/SOURCE/user_init_flight.f90

Timestamp:

Feb 27, 2019 2:35:58 PM (5 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/user_init_flight.f90 (modified) (3 diffs)

palm/trunk/SOURCE/user_init_flight.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! statements commented or added to avoid compiler warnings about unused variables
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Corrected "Former revisions" section
 ! 
@@ -51 +54 @@
     USE kinds
     
-    USE netcdf_interface,                                                      &
-        ONLY: dofl_label, dofl_unit
+!    USE netcdf_interface,                                                      &
+!        ONLY: dofl_label, dofl_unit
     
     USE user
@@ -64 +67 @@
     
     LOGICAL ::  init  !< variable to recognize initial call 
+
+!
+!-- Following statements are added to avoid compiler warnings about unused variables. Please remove.
+    IF ( PRESENT( id )        )  CONTINUE
+    IF ( PRESENT( k )         )  CONTINUE
+    IF ( PRESENT( label_leg ) )  CONTINUE
+
 !
 !-- Sample for user-defined flight-time series.