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

Timestamp:

Apr 6, 2009 6:36:10 AM (15 years ago)

Author:

raasch

Message:

further dvr updates

File:

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

palm/trunk/SOURCE/init_dvrp.f90

@@ -332 +332 @@
                              ycoor_dvrp, zcoor_dvrp )
 
-             tmp_r = 0.8;  tmp_g = 0.7;  tmp_b = 0.6;  tmp_t = 0.0
+             tmp_r = topography_color(1)
+             tmp_g = topography_color(2)
+             tmp_b = topography_color(3)
+             tmp_t = 0.0
              CALL DVRP_MATERIAL_RGB( m-1, 1, tmp_r, tmp_g, tmp_b, tmp_t )
 
@@ -455 +458 @@
                           ycoor_dvrp, zcoor_dvrp )
 
-          tmp_r = 0.0;  tmp_g = 0.6;  tmp_b = 0.0;  tmp_t = 0.0
+          tmp_r = groundplate_color(1)
+          tmp_g = groundplate_color(2)
+          tmp_b = groundplate_color(3)
+          tmp_t = 0.0
           CALL DVRP_MATERIAL_RGB( m-1, 1, tmp_r, tmp_g, tmp_b, tmp_t )