Ignore:
Timestamp:
Apr 11, 2019 11:29:34 AM (2 years ago)
Author:
kanani
Message:

restructure/add location/debug messages

File:
1 edited

Legend:

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

    r3655 r3885  
    2525! -----------------
    2626! $Id$
     27! Changes related to global restructuring of location messages and introduction
     28! of additional debug messages
     29!
     30! 3655 2019-01-07 16:51:22Z knoop
    2731! variables documented
    2832!
     
    104108 
    105109    USE control_parameters,                                                    &
    106         ONLY:  fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight
     110        ONLY:  debug_output, fl_max, num_leg, num_var_fl, num_var_fl_user, virtual_flight
    107111 
    108112    USE kinds
     
    332336
    333337       REAL(wp) ::  distance  !< distance between start and end position of a flight leg
     338
     339
     340       IF ( debug_output )  CALL debug_message( 'flight_init', 'start' )
    334341!
    335342!--    Determine the number of flight legs
     
    407414       sensor_l = 0.0_wp
    408415       sensor   = 0.0_wp
     416
     417       IF ( debug_output )  CALL debug_message( 'flight_init', 'end' )
    409418
    410419    END SUBROUTINE flight_init
Note: See TracChangeset for help on using the changeset viewer.