Ignore:
Timestamp:
Oct 24, 2017 1:49:46 PM (4 years ago)
Author:
Giersch
Message:

Bugfixes for restart runs

File:
1 edited

Legend:

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

    r2563 r2576  
    2626! -----------------
    2727! $Id$
     28! Definition of a new function called wtm_skip_var_list to skip module
     29! parameters during reading restart data
     30!
     31! 2563 2017-10-19 15:36:10Z Giersch
    2832! Restart runs with wind turbine model are possible now. For this purpose, two
    2933! new subroutines wtm_write_restart_data and wtm_read_restart_data had to be
     
    377381    END INTERFACE wtm_parin
    378382
     383    INTERFACE wtm_skip_var_list
     384       MODULE PROCEDURE wtm_skip_var_list
     385    END INTERFACE wtm_skip_var_list
     386
    379387    INTERFACE wtm_write_restart_data
    380388       MODULE PROCEDURE wtm_write_restart_data
     
    425433   
    426434    PUBLIC wtm_check_parameters, wtm_forces, wtm_init, wtm_init_arrays,        &
    427            wtm_parin, wtm_write_restart_data, wtm_tendencies
     435           wtm_parin, wtm_write_restart_data, wtm_tendencies, wtm_skip_var_list
    428436
    429437
     
    491499
    492500    END SUBROUTINE wtm_parin
     501
     502
     503!------------------------------------------------------------------------------!
     504! Description:
     505! ------------
     506!> Skipping the wind turbine module variables from restart-file (binary format).
     507!------------------------------------------------------------------------------!
     508   SUBROUTINE wtm_skip_var_list
     509       
     510      IMPLICIT NONE
     511           
     512      CHARACTER (LEN=1)  ::  cdum
     513      CHARACTER (LEN=30) ::  variable_chr
     514           
     515      READ ( 13 )  variable_chr
     516
     517      DO  WHILE ( TRIM( variable_chr ) /= '*** end wtm ***' )
     518
     519         READ ( 13 )  cdum
     520         READ ( 13 )  variable_chr
     521
     522      ENDDO   
     523           
     524   END SUBROUTINE wtm_skip_var_list
    493525
    494526
     
    550582          CASE ( 'omega_gen_f' )
    551583             READ ( 13 )  omega_gen_f
     584          CASE ( 'omega_gen_f_old' )
     585             READ ( 13 )  omega_gen_f_old
    552586          CASE ( 'omega_gen_old' )
    553587             READ ( 13 )  omega_gen_old
    554           CASE ( 'omega_gen_f_old' )
    555              READ ( 13 )  omega_gen_f_old
    556588          CASE ( 'omega_rot' )
    557589             READ ( 13 )  omega_rot
     
    568600
    569601       END SELECT
    570 
     602       
    571603       READ ( 13 )  variable_chr
    572604
Note: See TracChangeset for help on using the changeset viewer.