Changeset 1524 for palm

Timestamp:

Jan 14, 2015 1:18:19 PM (10 years ago)

Author:

keck

Message:

message string

Location:

palm/trunk/SOURCE

Files:

• data_output_tseries.f90 (modified) (2 diffs)
• read_var_list.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_tseries.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: increment dots_time_count after the call of subroutine check_open
 ! 
 ! Former revisions:
@@ -93 +93 @@
 !
 !--    Open file for time series output in NetCDF format
+       CALL check_open( 105 )
+       
+!--    Increment the counter for number of output times
+!      CAUTION: The following line has to be after the call of the subroutine
+!               check_open, since check_open resets the counter dots_time_count
+!               to 0, if a new file is opened
        dots_time_count = dots_time_count + 1
-       CALL check_open( 105 )
+       
 #if defined( __netcdf )
 !

palm/trunk/SOURCE/read_var_list.f90

@@ -890 +890 @@
              READ ( 13 )  momentum_advec
              IF ( TRIM( momentum_advec_check ) /= TRIM( momentum_advec ) )  THEN
-                WRITE( message_string, * ) 'momentum_advec of the restart run',&
+                WRITE( message_string, * ) 'momentum_advec of the restart run ',&
                                'differs from momentum_advec of the initial run.'
                 CALL message( 'read_parts_of_var_list', 'PA0100', &
@@ -909 +909 @@
              READ ( 13 )  scalar_advec
              IF ( TRIM( scalar_advec_check ) /= TRIM( scalar_advec ) )  THEN
-                WRITE( message_string, * ) 'scalar_advec of the restart run', &
+                WRITE( message_string, * ) 'scalar_advec of the restart run ', &
                                'differs from scalar_advec of the initial run.'
                 CALL message( 'read_parts_of_var_list', 'PA0101', &