Changeset 2764 for palm

Timestamp:

Jan 22, 2018 9:25:36 AM (7 years ago)

Author:

gronemeier

Message:

Bugfix: remove duplicate SAVE statements

File:

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

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: remove duplicate SAVE statements
+! 
+! 2746 2018-01-15 12:06:04Z suehring
 ! Move flag plant canopy to modules
 ! 
@@ -132 +135 @@
     REAL(wp), DIMENSION(:), ALLOCATABLE ::  l_black      !< mixing length according to Blackadar
 
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, SAVE :: dummy1 !< debug output variable
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, SAVE :: dummy2 !< debug output variable
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, SAVE :: dummy3 !< debug output variable
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: dummy1 !< debug output variable
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: dummy2 !< debug output variable
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: dummy3 !< debug output variable