Changeset 1799

Timestamp:

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

Author:

gronemeier

Message:

some bugfixes

Location:

palm/trunk/SOURCE

Files:

• pres.f90 (modified) (2 diffs)
• user_init.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)

palm/trunk/SOURCE/user_init.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: added dots_num to variable list
 !
 ! Former revisions:
@@ -59 +59 @@
     
     USE netcdf_interface,                                                      &
-        ONLY: dots_label, dots_unit
+        ONLY: dots_label, dots_unit, dots_num
     
     USE pegrid