Changeset 1346 for palm/trunk/SOURCE/data_output_dvrp.f90

Timestamp:

Mar 27, 2014 1:18:20 PM (11 years ago)

Author:

heinze

Message:

Bugfix: REAL constants provided with KIND-attribute especially in call of intrinsic function like MAX, MIN, SIGN

File:

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

palm/trunk/SOURCE/data_output_dvrp.f90

@@ -71 +71 @@
                  slicer_range_limits_dvrp(1,islice_dvrp) )
 
-       scale = MODULO( 180.0 + 180.0 * scale, 360.0 )
+       scale = MODULO( 180.0 + 180.0 * scale, 360.0_wp )
 
        color = (/ scale, 0.5_wp, 1.0_wp, 0.0_wp /)