Changeset 3817 for palm

Timestamp:

Mar 26, 2019 1:53:57 PM (6 years ago)

Author:

suehring

Message:

Correct output coordinates for vertical surface-element data

File:

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

palm/trunk/SOURCE/surface_data_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Correct output coordinates of vertical surface elements
+! 
+! 3766 2019-02-26 16:23:41Z raasch
 ! bugfix in surface_data_output_rrd_local (variable k removed)
 ! 
@@ -1081 +1084 @@
              IF ( l == 0 )  THEN
                 az    = 270.0_wp
-                off_x =   0.0_wp
-                off_y = - 0.5_wp
+                off_x = 0.5_wp
+                off_y = 0.0_wp
              ELSEIF ( l == 1 )  THEN
                 az    = 90.0_wp
-                off_x =  0.0_wp
-                off_y =  0.5_wp
+                off_x = 0.5_wp
+                off_y = 0.0_wp
              ELSEIF ( l == 2 )  THEN
-                az    =   0.0_wp
-                off_x = - 0.5_wp
-                off_y =   0.0_wp
+                az    = 0.0_wp
+                off_x = 0.0_wp
+                off_y = 0.5_wp
              ELSEIF ( l == 3 )  THEN
-                az   = 180.0_wp
-                off_x =  0.5_wp
-                off_y =  0.0_wp
+                az    = 180.0_wp
+                off_x = 0.0_wp
+                off_y = 0.5_wp
              ENDIF