Changeset 4097 for palm/trunk

Timestamp:

Jul 15, 2019 11:59:11 AM (5 years ago)

Author:

suehring

Message:

Avoid overlong lines

Location:

palm/trunk/SOURCE

Files:

• dynamics_mod.f90 (modified) (2 diffs)
• message.f90 (modified) (2 diffs)

palm/trunk/SOURCE/dynamics_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Avoid overlong lines - limit is 132 characters per line
+!
+! 4047 2019-06-21 18:58:09Z knoop
 ! Initial introduction of the dynamics module with only dynamics_swap_timelevel implemented
 !
@@ -936 +939 @@
 !
 !-- Next line is to avoid compiler warning about unused variables. Please remove.
-    IF ( k + nxlc + nxlf + nxrc + nxrf + nync + nynf + nysc + nysf + tmp_2d(nys_on_file,nxl_on_file) + tmp_3d(nzb,nys_on_file,nxl_on_file) < 0.0 )  CONTINUE
+    IF ( k + nxlc + nxlf + nxrc + nxrf + nync + nynf + nysc + nysf +           &
+         tmp_2d(nys_on_file,nxl_on_file) +                                     &
+         tmp_3d(nzb,nys_on_file,nxl_on_file) < 0.0 )  CONTINUE
 !
 !-- Here the reading of user-defined restart data follows:

palm/trunk/SOURCE/message.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Avoid overlong lines - limit is 132 characters per line
+! 
+! 3987 2019-05-22 09:52:13Z kanani
 ! Improved formatting of job logfile output,
 ! changed output of DEBUG file
@@ -364 +367 @@
 !
 !-- Write and flush debug location or info message to file
-    WRITE( debug_output_unit, 201 )    TRIM( system_time ), time_since_reference_point, TRIM( message_type_string ), TRIM( debug_string )
+    WRITE( debug_output_unit, 201 )    TRIM( system_time ), time_since_reference_point, &
+                                       TRIM( message_type_string ), TRIM( debug_string )
     FLUSH( debug_output_unit )