Changeset 4645 for palm


Ignore:
Timestamp:
Aug 24, 2020 1:55:58 PM (2 months ago)
Author:
suehring
Message:

Bugfix in output of E_UTM_soil coordinate

File:
1 edited

Legend:

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

    r4642 r4645  
    2525! -----------------
    2626! $Id$
     27! Bugfix in output of E_UTM_soil coordinate
     28!
     29! 4642 2020-08-13 15:47:33Z suehring
    2730! Do not set attribute bounds for time variable, as it refers to time_bounds which is not defined
    2831! for non-aggregated quantities (according to data standard)
     
    11431146                         DO  k = kl, ku
    11441147                            meas_flag(k,j,i) = MERGE( IBSET( meas_flag(k,j,i), 0 ), 0,             &
    1145                                                BTEST( wall_flags_total_0(k,j,i), 0 ) )
     1148                                                      BTEST( wall_flags_total_0(k,j,i), 0 ) )
    11461149                         ENDDO
    11471150                      ENDDO
     
    20832086!--          Output of Easting coordinate. Before output, recalculate EUTM.
    20842087             output_values_1d_target = init_model%origin_x                                         &
    2085                + REAL( vmea(l)%i(1:vmea(l)%ns_soil) + 0.5_wp, KIND = wp ) * dx                     &
     2088               + REAL( vmea(l)%i_soil(1:vmea(l)%ns_soil) + 0.5_wp, KIND = wp ) * dx                &
    20862089               * COS( init_model%rotation_angle * pi / 180.0_wp )                                  &
    2087                + REAL( vmea(l)%j(1:vmea(l)%ns_soil) + 0.5_wp, KIND = wp ) * dy                     &
     2090               + REAL( vmea(l)%j_soil(1:vmea(l)%ns_soil) + 0.5_wp, KIND = wp ) * dy                &
    20882091               * SIN( init_model%rotation_angle * pi / 180.0_wp )
    20892092             output_values_1d_pointer => output_values_1d_target
Note: See TracChangeset for help on using the changeset viewer.