Changeset 271 for palm

Timestamp:

Mar 26, 2009 12:47:14 AM (16 years ago)

Author:

raasch

Message:

some bugfixes for the previous revison

Location:

palm/trunk/SOURCE

Files:

• init_dvrp.f90 (modified) (2 diffs)
• modules.f90 (modified) (2 diffs)
• set_particle_attributes.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_dvrp.f90

@@ -649 +649 @@
        ENDIF
 
-       IF ( mode_dvrp(m) == 'particles' )  THEN
+       IF ( mode_dvrp(m)(1:9) == 'particles' )  THEN
 !
 !--       Define a default colourtable for particles
@@ -658 +658 @@
           ENDDO
 
-          DO  j = 12, 22
+          DO  i = 12, 22
              interval_values_dvrp_prt(1,i) = i - 1.0
              interval_values_dvrp_prt(2,i) = REAL( i )

palm/trunk/SOURCE/modules.f90

@@ -587 +587 @@
                                   interval_values_dvrp_prt, interval_h_dvrp,  &
                                   interval_h_dvrp_prt, interval_l_dvrp = 0.5, &
-                                  interval_l_dvrp_prt, interval_s_dvrp = 1.0, &
-                                  interval_s_dvrp_prt, interval_a_dvrp = 0.0, &
-                                  interval_a_dvrp_prt
+                                  interval_l_dvrp_prt = 0.5, interval_s_dvrp = 1.0, &
+                                  interval_s_dvrp_prt = 1.0, interval_a_dvrp = 0.0, &
+                                  interval_a_dvrp_prt = 0.0
 
     DATA  slicer_range_limits_dvrp / -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
@@ -598 +598 @@
     DATA  interval_h_dvrp / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &
                             25.0, -25.0, 192 * 0.0 /
+
+    DATA  interval_h_dvrp_prt / 270.0, 225.0, 225.0, 180.0, 70.0, 25.0, &
+                                25.0, -25.0, 192 * 0.0 /
 #endif
 

palm/trunk/SOURCE/set_particle_attributes.f90

@@ -37 +37 @@
 
 
-    CALL cpu_log( log_point_s(49), 'set_particle_attributes', 'start' )
+    CALL cpu_log( log_point_s(49), 'set_particle_attrib', 'start' )
 
 !
@@ -262 +262 @@
     ENDIF
 
-    CALL cpu_log( log_point_s(49), 'set_particle_attributes', 'stop' )
+    CALL cpu_log( log_point_s(49), 'set_particle_attrib', 'stop' )