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/virtual_flight_mod.f90

    r2271 r2563  
    2525! -----------------
    2626! $Id$
     27! flight_read_restart_data is called in flight_parin in the case of a restart
     28! run. flight_skip_var_list is not necessary anymore due to marker changes in
     29! restart files.
     30!
     31! 2271 2017-06-09 12:34:55Z sward
    2732! Todo added
    2833!
     
    115120    END INTERFACE flight_measurement
    116121   
    117     INTERFACE flight_skip_var_list
    118        MODULE PROCEDURE flight_skip_var_list
    119     END INTERFACE flight_skip_var_list
    120    
    121122    INTERFACE flight_read_restart_data
    122123       MODULE PROCEDURE flight_read_restart_data
     
    133134!-- Public interfaces
    134135    PUBLIC flight_init, flight_header, flight_parin, flight_measurement,       &
    135            flight_skip_var_list, flight_read_restart_data,                     &
    136            flight_write_restart_data
     136           flight_write_restart_data                   
    137137!
    138138!-- Public variables
     
    192192    SUBROUTINE flight_parin
    193193
    194    
     194       USE control_parameters,                                                 &
     195           ONLY:  initializing_actions 
     196     
    195197       IMPLICIT NONE
    196198
     
    216218!--    Set switch that virtual flights shall be carried out
    217219       virtual_flight = .TRUE.
     220
     221       IF ( TRIM( initializing_actions ) == 'read_restart_data' ) THEN
     222          CALL flight_read_restart_data
     223       ENDIF
    218224
    219225 10    CONTINUE
     
    854860
    855861    END SUBROUTINE flight_check_parameters
    856    
    857 !------------------------------------------------------------------------------!
    858 ! Description:
    859 ! ------------
    860 !> Skipping the flight-module variables from restart-file (binary format).
    861 !------------------------------------------------------------------------------!
    862     SUBROUTINE flight_skip_var_list 
    863            
    864        IMPLICIT NONE
    865        
    866        CHARACTER (LEN=1)  ::  cdum
    867        CHARACTER (LEN=30) ::  variable_chr
    868        
    869        READ ( 13 )  variable_chr
    870        DO  WHILE ( TRIM( variable_chr ) /= '*** end flight ***' )
    871           READ ( 13 )  cdum
    872           READ ( 13 )  variable_chr
    873        ENDDO   
    874        
    875     END SUBROUTINE flight_skip_var_list 
    876862   
    877863!------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.