Changeset 271 for palm/trunk/SOURCE/init_dvrp.f90

Timestamp:

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

Author:

raasch

Message:

some bugfixes for the previous revison

File:

• palm/trunk/SOURCE/init_dvrp.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 )