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

Timestamp:

Dec 28, 2007 9:44:53 AM (16 years ago)

Author:

raasch

Message:

first preliminary update for turbulent inflow

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! After reading the global variables, unit 13 is closed for all PEs except PE0
+! -cross_ts_*,
+! hom_sum moved, volume_flow_area, volume_flow_initial moved from
+! read_3d_binary to here
 !
 ! Former revisions:
@@ -42 +45 @@
 ! Description:
 ! ------------
-! Reading values of control variables from restart-file (binary format)
+! Reading values of global control variables from restart-file (binary format)
 !------------------------------------------------------------------------------!
 
@@ -62 +65 @@
 
     INTEGER            ::  max_pr_user_on_file
-    
+
+
     CALL check_open( 13 )
 
@@ -245 +249 @@
           CASE ( 'hom' )
              READ ( 13 )  hom
+          CASE ( 'hom_sum' )
+             READ ( 13 )  hom_sum
           CASE ( 'inflow_disturbance_begin' )
              READ ( 13 )  inflow_disturbance_begin
@@ -485 +491 @@
           CASE ( 'vg_vertical_gradient_level_ind' )
              READ ( 13 )  vg_vertical_gradient_level_ind
+          CASE ( 'volume_flow_area' )
+             READ ( 13 )  volume_flow_area
+          CASE ( 'volume_flow_initial' )
+             READ ( 13 )  volume_flow_initial
           CASE ( 'wall_adjustment' )
              READ ( 13 )  wall_adjustment
@@ -491 +501 @@
           CASE ( 'w_max_ijk' )
              READ ( 13 )  w_max_ijk
-          CASE ( 'time-series-quantities' )
-             READ ( 13 )  cross_ts_uymax, cross_ts_uymax_computed, &
-                          cross_ts_uymin, cross_ts_uymin_computed
 
           CASE DEFAULT
@@ -507 +514 @@
     ENDDO
 
+    IF ( myid /= 0 )  CALL close_file( 13 )
+
 
  END SUBROUTINE read_var_list