Changeset 3885 for palm/trunk/SOURCE/virtual_flight_mod.f90

Timestamp:

Apr 11, 2019 11:29:34 AM (5 years ago)

Author:

kanani

Message:

restructure/add location/debug messages

File:

• palm/trunk/SOURCE/virtual_flight_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/virtual_flight_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! variables documented
 ! 
@@ -104 +108 @@
  
     USE control_parameters,                                                    &
-        ONLY:  fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight
+        ONLY:  debug_output, fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight
  
     USE kinds
@@ -332 +336 @@
 
        REAL(wp) ::  distance  !< distance between start and end position of a flight leg
+
+
+       IF ( debug_output )  CALL debug_message( 'flight_init', 'start' )
 !
 !--    Determine the number of flight legs
@@ -407 +414 @@
        sensor_l = 0.0_wp
        sensor   = 0.0_wp
+
+       IF ( debug_output )  CALL debug_message( 'flight_init', 'end' )
 
     END SUBROUTINE flight_init