Changeset 48 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Mar 6, 2007 12:28:36 PM (17 years ago)

Author:

raasch

Message:

preliminary version, several changes to be explained later

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (1 diff)

palm/trunk/SOURCE/time_integration.f90

@@ -380 +380 @@
 !--    Graphic output for time series
        IF ( time_dots >= dt_dots )  THEN
-          IF ( dots_n /= 0 )  CALL data_output_tseries
+          CALL data_output_tseries
           time_dots = MOD( time_dots, MAX( dt_dots, dt_3d ) )
        ENDIF