Changeset 1799 for palm/trunk/SOURCE/pres.f90

Timestamp:

Apr 5, 2016 8:35:55 AM (8 years ago)

Author:

gronemeier

Message:

some bugfixes

File:

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

palm/trunk/SOURCE/pres.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! Bugfix: excluded third dimension from horizontal volume flow calculation
 ! 
 ! Former revisions:
@@ -682 +682 @@
 #endif   
 
-       volume_flow_offset = ( volume_flow_initial - volume_flow ) / &
-                            volume_flow_area
+       volume_flow_offset(1:2) = ( volume_flow_initial(1:2) - volume_flow(1:2) ) / &
+                            volume_flow_area(1:2)
 
        !$OMP PARALLEL PRIVATE (i,j,k)