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

Timestamp:

Oct 30, 2018 8:43:50 PM (6 years ago)

Author:

suehring

Message:

module for virtual measurements added (in a preliminary state); new public routines to input NetCDF data directly from modules

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! new module for virtual measurements introduced
 ! 
 ! Former revisions:
@@ -458 +458 @@
                use_initial_profile_as_reference,                               &
                use_single_reference_value, uv_exposure, u_gtrans, v_gtrans,    &
-               virtual_flight, wind_turbine, ws_scheme_mom, ws_scheme_sca
+               virtual_flight, virtual_measurement, wind_turbine,              &
+               ws_scheme_mom, ws_scheme_sca
 
     USE cpulog,                                                                &
@@ -581 +582 @@
                vnest_deallocate, vnest_init, vnest_init_fine,                  &
                vnest_start_time
+               
+    USE virtual_measurement_mod,                                               &
+        ONLY:  vm_sampling, vm_time_start
 
     IMPLICIT NONE
@@ -1458 +1462 @@
           CALL data_output_flight
        ENDIF
+!
+!--    Take virtual measurements
+       IF ( virtual_measurement  .AND.                                         &
+            vm_time_start <= time_since_reference_point )  CALL vm_sampling
 
 !