Changeset 3817 for palm/trunk/SOURCE


Ignore:
Timestamp:
Mar 26, 2019 1:53:57 PM (3 years ago)
Author:
suehring
Message:

Correct output coordinates for vertical surface-element data

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_data_output_mod.f90

    r3766 r3817  
    2525! -----------------
    2626! $Id$
     27! Correct output coordinates of vertical surface elements
     28!
     29! 3766 2019-02-26 16:23:41Z raasch
    2730! bugfix in surface_data_output_rrd_local (variable k removed)
    2831!
     
    10811084             IF ( l == 0 )  THEN
    10821085                az    = 270.0_wp
    1083                 off_x =   0.0_wp
    1084                 off_y = - 0.5_wp
     1086                off_x = 0.5_wp
     1087                off_y = 0.0_wp
    10851088             ELSEIF ( l == 1 )  THEN
    10861089                az    = 90.0_wp
    1087                 off_x =  0.0_wp
    1088                 off_y =  0.5_wp
     1090                off_x = 0.5_wp
     1091                off_y = 0.0_wp
    10891092             ELSEIF ( l == 2 )  THEN
    1090                 az    =   0.0_wp
    1091                 off_x = - 0.5_wp
    1092                 off_y =   0.0_wp
     1093                az    = 0.0_wp
     1094                off_x = 0.0_wp
     1095                off_y = 0.5_wp
    10931096             ELSEIF ( l == 3 )  THEN
    1094                 az   = 180.0_wp
    1095                 off_x =  0.5_wp
    1096                 off_y =  0.0_wp
     1097                az    = 180.0_wp
     1098                off_x = 0.0_wp
     1099                off_y = 0.5_wp
    10971100             ENDIF
    10981101
Note: See TracChangeset for help on using the changeset viewer.