Ignore:
Timestamp:
Oct 19, 2017 3:36:10 PM (4 years ago)
Author:
Giersch
Message:

Restart runs with the usage of the wind turbine model are possible now. Further small at reading/writing restart data

File:
1 edited

Legend:

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

    r2550 r2563  
    2525! -----------------
    2626! $Id$
     27! Changed position where restart files are closed.
     28!
     29! 2550 2017-10-16 17:12:01Z boeske
    2730! Added complex_terrain
    2831!
     
    559562 12       IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
    560563             CALL read_var_list
    561 !
    562 !--          The restart file will be reopened when reading the subdomain data
    563              CALL close_file( 13 )
    564564
    565565!
     
    698698
    699699!
     700!--       The restart file will be reopened when reading the subdomain data
     701          IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
     702             CALL close_file( 13 )
     703          ENDIF
     704
     705!
    700706!--       Check in case of initial run, if the grid point numbers are well
    701707!--       defined and allocate some arrays which are already needed in
Note: See TracChangeset for help on using the changeset viewer.