Ignore:
Timestamp:
Dec 10, 2019 3:46:36 PM (20 months ago)
Author:
motisi
Message:

Renamed wall_flags_0 to wall_flags_static_0

File:
1 edited

Legend:

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

    r4182 r4329  
    2525! -----------------
    2626! $Id$
     27! Renamed wall_flags_0 to wall_flags_static_0
     28!
     29! 4182 2019-08-22 15:20:23Z scharf
    2730! added "Authors" section
    2831!
     
    8083               nzb,                         &
    8184               nzt,                         &
    82                wall_flags_0
     85               wall_flags_static_0
    8386
    8487    USE kinds
     
    202205!
    203206!--    If the grid point lies in a building, a new point is defined
    204        DO WHILE ( .NOT. BTEST( wall_flags_0(cgp_k,cgp_j,cgp_i), 1 ) )
     207       DO WHILE ( .NOT. BTEST( wall_flags_static_0(cgp_k,cgp_j,cgp_i), 1 ) )
    205208          CALL RANDOM_NUMBER( random )
    206209          cgp_k = cgp_k + FLOOR( ( nzt - cgp_k ) * random )   !< Random number upon cgp_k
     
    451454       DO  j = nys, nyn
    452455          DO  k = nzb+1, nzt+1
    453              flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), quant_type ) )
     456             flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), quant_type ) )
    454457             quant_av_k_l(k) = quant_av_k_l(k) + quant(k,j,i) * flag
    455458             count_2d_l(k)   = count_2d_l(k) + INT( flag, KIND=iwp )
     
    479482                                + ( quant(k,j,i) - quant_av_k(k) )**2 &
    480483                                * MERGE( 1.0_wp, 0.0_wp,              &
    481                                          BTEST( wall_flags_0(k,j,i), quant_type ) )
     484                                         BTEST( wall_flags_static_0(k,j,i), quant_type ) )
    482485          ENDDO
    483486       ENDDO
     
    719722      DO  j = nys, nyn
    720723         DO  k = nzb, nzt+1
    721             flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), quant_type ) )
     724            flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), quant_type ) )
    722725            quant_av_l = quant_av_l + quant(k,j,i) * flag
    723726            average_count_l = average_count_l + INT( flag, KIND=iwp )
     
    771774                              + u(k,j,i) * dzw(k) * dy                  &
    772775                              * MERGE( 1.0_wp, 0.0_wp,                  &
    773                                        BTEST( wall_flags_0(k,j,i), 1 )  &
     776                                       BTEST( wall_flags_static_0(k,j,i), 1 )  &
    774777                                     )
    775778          ENDDO
     
    785788                              - u(k,j,i) * dzw(k) * dy                  &
    786789                              * MERGE( 1.0_wp, 0.0_wp,                  &
    787                                        BTEST( wall_flags_0(k,j,i), 1 )  &
     790                                       BTEST( wall_flags_static_0(k,j,i), 1 )  &
    788791                                     )
    789792          ENDDO
     
    800803                              + v(k,j,i) * dzw(k) * dx                  &
    801804                              * MERGE( 1.0_wp, 0.0_wp,                  &
    802                                        BTEST( wall_flags_0(k,j,i), 2 )  &
     805                                       BTEST( wall_flags_static_0(k,j,i), 2 )  &
    803806                                     )
    804807          ENDDO
     
    814817                              - v(k,j,i) * dzw(k) * dx                  &
    815818                              * MERGE( 1.0_wp, 0.0_wp,                  &
    816                                        BTEST( wall_flags_0(k,j,i), 2 )  &
     819                                       BTEST( wall_flags_static_0(k,j,i), 2 )  &
    817820                                     )
    818821          ENDDO
Note: See TracChangeset for help on using the changeset viewer.