Changeset 4097 for palm/trunk/SOURCE/dynamics_mod.f90

Timestamp:

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

Author:

suehring

Message:

Avoid overlong lines

File:

• palm/trunk/SOURCE/dynamics_mod.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: