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

Timestamp:

Apr 5, 2016 7:44:00 PM (9 years ago)

Author:

raasch

Message:

preprocessor directives using machine dependent flags (lc, ibm, etc.) mostly removed from the code

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (2 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! output message in case unscheduled radiation calls removed
 !
 ! Former revisions:
@@ -839 +839 @@
                 IF ( .NOT. force_radiation_call )  THEN
                    time_radiation = time_radiation - dt_radiation
-                ELSE
-                   WRITE(9,*) "Unscheduled radiation call at ", simulated_time
-                   CALL LOCAL_FLUSH ( 9 )
                 ENDIF