Ignore:
Timestamp:
Dec 28, 2007 9:44:53 AM (14 years ago)
Author:
raasch
Message:

first preliminary update for turbulent inflow

File:
1 edited

Legend:

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

    r139 r143  
    44! Actual revisions:
    55! -----------------
    6 !
     6! After reading the global variables, unit 13 is closed for all PEs except PE0
     7! -cross_ts_*,
     8! hom_sum moved, volume_flow_area, volume_flow_initial moved from
     9! read_3d_binary to here
    710!
    811! Former revisions:
     
    4245! Description:
    4346! ------------
    44 ! Reading values of control variables from restart-file (binary format)
     47! Reading values of global control variables from restart-file (binary format)
    4548!------------------------------------------------------------------------------!
    4649
     
    6265
    6366    INTEGER            ::  max_pr_user_on_file
    64    
     67
     68
    6569    CALL check_open( 13 )
    6670
     
    245249          CASE ( 'hom' )
    246250             READ ( 13 )  hom
     251          CASE ( 'hom_sum' )
     252             READ ( 13 )  hom_sum
    247253          CASE ( 'inflow_disturbance_begin' )
    248254             READ ( 13 )  inflow_disturbance_begin
     
    485491          CASE ( 'vg_vertical_gradient_level_ind' )
    486492             READ ( 13 )  vg_vertical_gradient_level_ind
     493          CASE ( 'volume_flow_area' )
     494             READ ( 13 )  volume_flow_area
     495          CASE ( 'volume_flow_initial' )
     496             READ ( 13 )  volume_flow_initial
    487497          CASE ( 'wall_adjustment' )
    488498             READ ( 13 )  wall_adjustment
     
    491501          CASE ( 'w_max_ijk' )
    492502             READ ( 13 )  w_max_ijk
    493           CASE ( 'time-series-quantities' )
    494              READ ( 13 )  cross_ts_uymax, cross_ts_uymax_computed, &
    495                           cross_ts_uymin, cross_ts_uymin_computed
    496503
    497504          CASE DEFAULT
     
    507514    ENDDO
    508515
     516    IF ( myid /= 0 )  CALL close_file( 13 )
     517
    509518
    510519 END SUBROUTINE read_var_list
Note: See TracChangeset for help on using the changeset viewer.