Changeset 1957 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Jul 7, 2016 10:43:48 AM (8 years ago)

Author:

suehring

Message:

flight module added

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! flight module added
 ! 
 ! Former revisions:
@@ -260 +260 @@
                time_run_control, time_since_reference_point,                   &
                turbulent_inflow, use_initial_profile_as_reference,             &
-               use_single_reference_value, u_gtrans, v_gtrans, ws_scheme_mom,  &
-               ws_scheme_sca
+               use_single_reference_value, u_gtrans, v_gtrans, virtual_flight, &
+               ws_scheme_mom, ws_scheme_sca
 
     USE cpulog,                                                                &
         ONLY:  cpu_log, log_point, log_point_s
+
+    USE flight_mod,                                                            &
+        ONLY:  flight_measurement
+
 
     USE indices,                                                               &
@@ -912 +916 @@
        time_since_reference_point = simulated_time - coupling_start_time
 
+
+
        IF ( simulated_time >= skip_time_data_output_av )  THEN
           time_do_av         = time_do_av       + dt_3d
@@ -1031 +1037 @@
                                  MAX( dt_averaging_input_pr, dt_3d ) )
           ENDIF
+       ENDIF
+
+!
+!--    Call flight module and output data
+       IF ( virtual_flight )  THEN
+          CALL flight_measurement
+          CALL data_output_flight
        ENDIF