Ignore:
Timestamp:
Jan 9, 2008 8:17:38 AM (14 years ago)
Author:
raasch
Message:

second preliminary update for turbulent inflow

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/read_3d_binary.f90

    r143 r145  
    55! -----------------
    66! Restart file has to be re-opened on all PEs except PE0
     7! +call of user_read_restart_data,
    78! -dopr_time_count,
    8 ! hom_sum moved, volume_flow_area, volume_flow_initial moved to read_var_list,
     9! hom_sum, volume_flow_area, volume_flow_initial moved to read_var_list,
    910! reading of old profil parameters (cross_..., dopr_crossindex, profile_***)
    1011! removed
     
    7374!-- First compare the version numbers
    7475    READ ( 13 )  version_on_file
    75     binary_version = '3.0'
     76    binary_version = '3.1'
    7677    IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
    7778       IF ( myid == 0 )  THEN
     
    405406
    406407!
     408!-- Read user-defined restart data
     409    CALL user_read_restart_data
     410
     411!
    407412!-- End of time measuring for reading binary data
    408413    CALL cpu_log( log_point_s(14), 'read_3d_binary', 'stop' )
Note: See TracChangeset for help on using the changeset viewer.