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

Timestamp:

Jan 15, 2021 3:22:11 PM (3 years ago)

Author:

raasch

Message:

local namelist parameter added to switch off the module although the respective module namelist appears in the namelist file, further copyright updates

File:

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

palm/trunk/SOURCE/virtual_flight_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! local namelist parameter added to switch off the module although the respective module namelist
+! appears in the namelist file
+!
+! 4842 2021-01-14 10:42:28Z raasch
 ! reading of namelist file and actions in case of namelist errors revised so that statement labels
 ! and goto statements are not required any more
@@ -236 +240 @@
     INTEGER(iwp) ::  io_status   !< status after reading the namelist file
 
-
-    NAMELIST /virtual_flight_parameters/ flight_angle,                                             &
-                                         flight_begin,                                             &
-                                         flight_end,                                               &
-                                         flight_level,                                             &
-                                         leg_mode,                                                 &
-                                         max_elev_change,                                          &
-                                         rate_of_climb,                                            &
-                                         speed_agl,                                                &
-                                         x_end,                                                    &
-                                         x_start,                                                  &
-                                         y_end,                                                    &
-                                         y_start
+    LOGICAL ::  switch_off_module = .FALSE.  !< local namelist parameter to switch off the module
+                                             !< although the respective module namelist appears in
+                                             !< the namelist file
+
+    NAMELIST /virtual_flight_parameters/  flight_angle,                                            &
+                                          flight_begin,                                            &
+                                          flight_end,                                              &
+                                          flight_level,                                            &
+                                          leg_mode,                                                &
+                                          max_elev_change,                                         &
+                                          rate_of_climb,                                           &
+                                          speed_agl,                                               &
+                                          switch_off_module,                                       &
+                                          x_end,                                                   &
+                                          x_start,                                                 &
+                                          y_end,                                                   &
+                                          y_start
+
 
 !
@@ -261 +270 @@
 !--    virtual_flight_parameters namelist was found and read correctly. Set switch that virtual
 !--    flights are carried out.
-       virtual_flight = .TRUE.
+       IF ( .NOT. switch_off_module )  virtual_flight = .TRUE.
 
     ELSEIF ( io_status > 0 )  THEN