Changeset 4627 for palm

Timestamp:

Jul 26, 2020 10:14:44 AM (4 years ago)

Author:

raasch

Message:

bugfix for r4646

File:

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

palm/trunk/SOURCE/dynamics_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! bugfix for r4626
+!
+! 4626 2020-07-26 09:49:48Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -363 +366 @@
  SUBROUTINE dynamics_check_data_output_ts( dots_max, dots_num, dots_label, dots_unit )
 
+    INTEGER(iwp),      INTENT(IN)     ::  dots_max
+
     CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_label
     CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_unit
 
-    INTEGER(iwp),      INTENT(IN)     ::  dots_max
     INTEGER(iwp),      INTENT(INOUT)  ::  dots_num