Changeset 145 for palm/trunk/SOURCE/read_3d_binary.f90

Timestamp:

Jan 9, 2008 8:17:38 AM (16 years ago)

Author:

raasch

Message:

second preliminary update for turbulent inflow

File:

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

palm/trunk/SOURCE/read_3d_binary.f90

@@ -5 +5 @@
 ! -----------------
 ! Restart file has to be re-opened on all PEs except PE0
+! +call of user_read_restart_data,
 ! -dopr_time_count,
-! hom_sum moved, volume_flow_area, volume_flow_initial moved to read_var_list,
+! hom_sum, volume_flow_area, volume_flow_initial moved to read_var_list,
 ! reading of old profil parameters (cross_..., dopr_crossindex, profile_***)
 ! removed
@@ -73 +74 @@
 !-- First compare the version numbers
     READ ( 13 )  version_on_file
-    binary_version = '3.0'
+    binary_version = '3.1'
     IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
        IF ( myid == 0 )  THEN
@@ -405 +406 @@
 
 !
+!-- Read user-defined restart data
+    CALL user_read_restart_data
+
+!
 !-- End of time measuring for reading binary data
     CALL cpu_log( log_point_s(14), 'read_3d_binary', 'stop' )