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

    r2563 r2576  
    2525! -----------------
    2626! $Id$
     27! Definition of a new function called stg_skip_var_list to skip module
     28! parameters during reading restart data
     29!
     30! 2563 2017-10-19 15:36:10Z Giersch
    2731! stg_read_restart_data is called in stg_parin in the case of a restart run
    2832!
     
    179183
    180184!
     185!-- Skipping of parameters for restart runs
     186    INTERFACE stg_skip_var_list
     187       MODULE PROCEDURE stg_skip_var_list
     188    END INTERFACE stg_skip_var_list
     189
     190!
    181191!-- Reading of parameters for restart runs
    182192    INTERFACE stg_read_restart_data
     
    197207!-- Public interfaces
    198208    PUBLIC  stg_check_parameters, stg_header, stg_init, stg_main, stg_parin,   &
    199             stg_write_restart_data
     209            stg_write_restart_data, stg_skip_var_list
    200210
    201211!
     
    670680
    671681 END SUBROUTINE stg_parin
     682
     683
     684!------------------------------------------------------------------------------!
     685! Description:
     686! ------------
     687!> Skipping the stg variables from restart-file (binary format).
     688!------------------------------------------------------------------------------!
     689   SUBROUTINE stg_skip_var_list
     690       
     691      IMPLICIT NONE
     692           
     693      CHARACTER (LEN=1)  ::  cdum
     694      CHARACTER (LEN=30) ::  variable_chr
     695           
     696      READ ( 13 )  variable_chr
     697
     698      DO  WHILE ( TRIM( variable_chr ) /= '*** end stg module ***' )
     699
     700         READ ( 13 )  cdum
     701         READ ( 13 )  variable_chr
     702
     703      ENDDO   
     704           
     705   END SUBROUTINE stg_skip_var_list
    672706
    673707
Note: See TracChangeset for help on using the changeset viewer.