Changeset 4444 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Mar 5, 2020 3:59:50 PM (4 years ago)

Author:

raasch

Message:

bugfix: cpp-directives for serial mode added

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directive moved
+! 
+! 4442 2020-03-04 19:21:13Z suehring
 ! Change order of dimension in surface arrays %frac, %emissivity and %albedo 
 ! to allow for better vectorization in the radiation interactions.
@@ -2376 +2379 @@
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  bound          !< temporary arrays for storing index bounds
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  bound_root_fr  !< temporary arrays for storing index bounds
+#if defined( __parallel )
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  pr_soil_init   !< temporary array used for averaging soil profiles
-#if defined( __parallel )
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  z_soil_root    !< vertical dimension of soil grid in root domain
 #endif