Changeset 1524 for palm/trunk/SOURCE/data_output_tseries.f90

Timestamp:

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

Author:

keck

Message:

message string

File:

• palm/trunk/SOURCE/data_output_tseries.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 )
 !