Changeset 1524


Ignore:
Timestamp:
Jan 14, 2015 1:18:19 PM (10 years ago)
Author:
keck
Message:

message string

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r1329 r1524  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: increment dots_time_count after the call of subroutine check_open
    2323!
    2424! Former revisions:
     
    9393!
    9494!--    Open file for time series output in NetCDF format
     95       CALL check_open( 105 )
     96       
     97!--    Increment the counter for number of output times
     98!      CAUTION: The following line has to be after the call of the subroutine
     99!               check_open, since check_open resets the counter dots_time_count
     100!               to 0, if a new file is opened
    95101       dots_time_count = dots_time_count + 1
    96        CALL check_open( 105 )
     102       
    97103#if defined( __netcdf )
    98104!
  • palm/trunk/SOURCE/read_var_list.f90

    r1523 r1524  
    890890             READ ( 13 )  momentum_advec
    891891             IF ( TRIM( momentum_advec_check ) /= TRIM( momentum_advec ) )  THEN
    892                 WRITE( message_string, * ) 'momentum_advec of the restart run',&
     892                WRITE( message_string, * ) 'momentum_advec of the restart run ',&
    893893                               'differs from momentum_advec of the initial run.'
    894894                CALL message( 'read_parts_of_var_list', 'PA0100', &
     
    909909             READ ( 13 )  scalar_advec
    910910             IF ( TRIM( scalar_advec_check ) /= TRIM( scalar_advec ) )  THEN
    911                 WRITE( message_string, * ) 'scalar_advec of the restart run', &
     911                WRITE( message_string, * ) 'scalar_advec of the restart run ', &
    912912                               'differs from scalar_advec of the initial run.'
    913913                CALL message( 'read_parts_of_var_list', 'PA0101', &
Note: See TracChangeset for help on using the changeset viewer.