Ignore:
Timestamp:
May 5, 2008 2:09:05 PM (16 years ago)
Author:
raasch
Message:

bugfixes for turbulent inflow in init_pegrid, inflow_turbulence, and init_3d_model

File:
1 edited

Legend:

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

    r153 r163  
    980980
    981981!
     982!--    Read binary data from restart file
     983          WRITE (9,*) 'before read_3d_binary'
     984          CALL local_flush( 9 )
     985       CALL read_3d_binary
     986          WRITE (9,*) 'after read_3d_binary'
     987          CALL local_flush( 9 )
     988
     989!
    982990!--    Calculate the initial volume flow at the right and north boundary
    983        IF ( conserve_volume_flow )  THEN
     991       IF ( conserve_volume_flow  .AND.  &
     992            TRIM( initializing_actions ) == 'read_data_for_recycling' )  THEN
    984993
    985994          volume_flow_initial_l = 0.0
     
    10251034       ENDIF
    10261035
    1027 
    1028 !
    1029 !--    Read binary data from restart file
    1030           WRITE (9,*) 'before read_3d_binary'
    1031           CALL local_flush( 9 )
    1032        CALL read_3d_binary
    1033           WRITE (9,*) 'after read_3d_binary'
    1034           CALL local_flush( 9 )
    10351036
    10361037!
Note: See TracChangeset for help on using the changeset viewer.