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

Timestamp:

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

Author:

suehring

Message:

flight module added

File:

• palm/trunk/SOURCE/read_var_list.f90 (modified) (7 diffs)

palm/trunk/SOURCE/read_var_list.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! flight module added
 !
 ! Former revisions:
@@ -176 +176 @@
     USE control_parameters
 
+    USE flight_mod,                                                            &
+        ONLY:  flight_read_restart_data
+    
     USE grid_variables,                                                        &
         ONLY:  dx, dy
@@ -507 +510 @@
           CASE ( 'nudging' )
              READ ( 13 )  nudging
+          CASE ( 'num_leg' )
+             READ ( 13 )  num_leg
           CASE ( 'nx' )
              READ ( 13 )  nx
@@ -725 +730 @@
           CASE ( 'vg_vertical_gradient_level_ind' )
              READ ( 13 )  vg_vertical_gradient_level_ind
+          CASE ( 'virtual_flight' )
+             READ ( 13 ) virtual_flight  
           CASE ( 'volume_flow_area' )
              READ ( 13 )  volume_flow_area
@@ -759 +766 @@
 
     ENDDO
+    
+    IF ( virtual_flight )  CALL flight_read_restart_data
 
 
@@ -988 +997 @@
  SUBROUTINE skip_var_list
 
-
+    USE control_parameters,                                                    &
+        ONLY:  virtual_flight
+ 
+    USE flight_mod,                                                            &
+        ONLY:  flight_skip_var_list
+ 
     IMPLICIT NONE
 
@@ -1007 +1021 @@
 
     ENDDO
-
+!
+!-- In case of virtual flights, skip also variables related to 
+!-- this module.
+    IF ( virtual_flight )  CALL flight_skip_var_list
+    
 
  END SUBROUTINE skip_var_list