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

    r2563 r2576  
    2525! -----------------
    2626! $Id$
     27! Definition of a new function called flight_skip_var_list to skip module
     28! parameters during reading restart data
     29!
     30! 2563 2017-10-19 15:36:10Z Giersch
    2731! flight_read_restart_data is called in flight_parin in the case of a restart
    2832! run. flight_skip_var_list is not necessary anymore due to marker changes in
     
    119123       MODULE PROCEDURE flight_measurement
    120124    END INTERFACE flight_measurement
     125
     126    INTERFACE flight_skip_var_list
     127       MODULE PROCEDURE flight_skip_var_list
     128    END INTERFACE flight_skip_var_list
    121129   
    122130    INTERFACE flight_read_restart_data
     
    134142!-- Public interfaces
    135143    PUBLIC flight_init, flight_header, flight_parin, flight_measurement,       &
    136            flight_write_restart_data                   
     144           flight_write_restart_data, flight_skip_var_list                   
    137145!
    138146!-- Public variables
     
    860868
    861869    END SUBROUTINE flight_check_parameters
     870
     871!------------------------------------------------------------------------------!
     872! Description:
     873! ------------
     874!> Skipping the flight-module variables from restart-file (binary format).
     875!------------------------------------------------------------------------------!
     876   SUBROUTINE flight_skip_var_list
     877       
     878      IMPLICIT NONE
     879           
     880      CHARACTER (LEN=1)  ::  cdum
     881      CHARACTER (LEN=30) ::  variable_chr
     882           
     883      READ ( 13 )  variable_chr
     884
     885      DO  WHILE ( TRIM( variable_chr ) /= '*** end flight ***' )
     886
     887         READ ( 13 )  cdum
     888         READ ( 13 )  variable_chr
     889
     890      ENDDO   
     891           
     892   END SUBROUTINE flight_skip_var_list
     893       
    862894   
    863895!------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.