Index: palm/trunk/SOURCE/CURRENT_MODIFICATIONS
===================================================================
--- palm/trunk/SOURCE/CURRENT_MODIFICATIONS	(revision 403)
+++ palm/trunk/SOURCE/CURRENT_MODIFICATIONS	(revision 405)
@@ -7,5 +7,5 @@
 var_ts is replaced by dots_max (modules,init_3d_model)
 
-modules,init_3d_model
+init_3d_model, modules
 
 
@@ -18,5 +18,8 @@
 Bugfix: calculation of precipitation_rate (calc_precipitation)
 
-sum_up_3d_data, time_integration, calc_precipitation
+Bugfix: initial data assignments to some dvrp arrays changed due to error
+messages from gfortran compiler (modules=
+
+calc_precipitation, modules, sum_up_3d_data, time_integration
 
 
Index: palm/trunk/SOURCE/modules.f90
===================================================================
--- palm/trunk/SOURCE/modules.f90	(revision 403)
+++ palm/trunk/SOURCE/modules.f90	(revision 405)
@@ -5,6 +5,7 @@
 ! Current revisions:
 ! -----------------
-! -var_ts: replaced by dots_max
-!
+! -var_ts: replaced by dots_max,
+! initial data assignments to some dvrp arrays changed due to error messages
+! from gfortran compiler
 !
 ! Former revisions:
@@ -583,56 +584,59 @@
                            topography_color = (/ 0.8, 0.7, 0.6 /)
 
-#if defined( __decalpha )
-    REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp = (/ &
+!#if defined( __decalpha )
+    REAL, DIMENSION(2,10)  ::  slicer_range_limits_dvrp = RESHAPE( (/       &
                                 -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
                                 -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
-                                -1.0, 1.0, -1.0, 1.0 /)
-
-    REAL, DIMENSION(3,10)  ::  isosurface_color = (/ &
+                                -1.0, 1.0, -1.0, 1.0 /), (/ 2, 10 /) )
+
+    REAL, DIMENSION(3,10)  ::  isosurface_color = RESHAPE( (/                  &
                                 0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
                                 0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
-                                0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4  &
-                                0.1, 0.4, 0.1 /)
+                                0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4, &
+                                0.1, 0.4, 0.1 /), (/ 3, 10 /) )
 
     REAL(4), DIMENSION(2,100) ::  interval_values_dvrp, interval_h_dvrp =      &
-                                  (/ 270.0, 225.0, 225.0, 180.0, 70.0, 25.0,   &
-                                     25.0, -25.0, ( 0.0, i9 = 1, 192 ) /),     &
+                                  RESHAPE( (/ 270.0, 225.0, 225.0, 180.0,      &
+                                               70.0,  25.0,  25.0, -25.0,      &
+                                              ( 0.0, i9 = 1, 192 ) /),         &
+                                           (/ 2, 100 /) ),                     &
                                   interval_l_dvrp = 0.5, interval_s_dvrp = 1.0,&
                                   interval_a_dvrp = 0.0,                       &
                                   interval_values_dvrp_prt,                    &
-                                  interval_h_dvrp_prt,                         &
+                                  interval_h_dvrp_prt = RESHAPE(               &
                                   (/ 270.0, 225.0, 225.0, 180.0, 70.0, 25.0,   &
                                      25.0, -25.0, ( 0.0, i9 = 1, 192 ) /),     &
+                                                  (/ 2, 100 /) ),              &
                                   interval_l_dvrp_prt = 0.5,                   &
                                   interval_s_dvrp_prt = 1.0,                   &
                                   interval_a_dvrp_prt = 0.0
-#else
-    REAL, DIMENSION(2,10)     ::  slicer_range_limits_dvrp
-
-    REAL, DIMENSION(3,10)     ::  isosurface_color
-
-    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp,                       &
-                                  interval_values_dvrp_prt, interval_h_dvrp,  &
-                                  interval_h_dvrp_prt, interval_l_dvrp = 0.5, &
-                                  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, &
-                                     -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
-                                     -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
-                                     -1.0, 1.0 /
-
-    DATA  isosurface_color / 0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
-                             0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
-                             0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4, &
-                             0.1, 0.4, 0.1 /
-
-    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
+!#else
+!    REAL, DIMENSION(2,10)     ::  slicer_range_limits_dvrp
+
+!    REAL, DIMENSION(3,10)     ::  isosurface_color
+
+!    REAL(4), DIMENSION(2,100) ::  interval_values_dvrp,                       &
+!                                  interval_values_dvrp_prt, interval_h_dvrp,  &
+!                                  interval_h_dvrp_prt, interval_l_dvrp = 0.5, &
+!                                  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, &
+!                                     -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
+!                                     -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, &
+!                                     -1.0, 1.0 /
+
+!    DATA  isosurface_color / 0.9, 0.9, 0.9,  0.8, 0.1, 0.1,  0.1, 0.1, 0.8, &
+!                             0.1, 0.8, 0.1,  0.6, 0.1, 0.1,  0.1, 0.1, 0.6, &
+!                             0.1, 0.6, 0.1,  0.4, 0.1, 0.1,  0.1, 0.1, 0.4, &
+!                             0.1, 0.4, 0.1 /
+
+!    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
 
     REAL(4), DIMENSION(:), ALLOCATABLE ::  xcoor_dvrp, ycoor_dvrp, zcoor_dvrp
