Changeset 3028 for palm/trunk

Timestamp:

May 23, 2018 10:27:23 AM (7 years ago)

Author:

knoop

Message:

added separate size specification for log_point and log_point_s

File:

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

palm/trunk/SOURCE/cpulog_mod.f90

@@ -184 +184 @@
     TYPE(logpoint), DIMENSION(100) ::  log_point = logpoint( 0.0_wp, 0.0_wp,   &
                                        0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, &
-                                       0, ' ' ),                               &
-                                       log_point_s = logpoint( 0.0_wp, 0.0_wp, &
+                                       0, ' ' )
+    TYPE(logpoint), DIMENSION(100) ::  log_point_s = logpoint( 0.0_wp, 0.0_wp, &
                                        0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, &
                                        0, ' ' )