Ignore:
Timestamp:
Dec 18, 2019 11:55:56 AM (23 months ago)
Author:
motisi
Message:

Introduction of wall_flags_total_0, which currently sets bits based on static topography information used in wall_flags_static_0

File:
1 edited

Legend:

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

    r4329 r4346  
    2525! -----------------
    2626! $Id$
     27! Introduction of wall_flags_total_0, which currently sets bits based on static
     28! topography information used in wall_flags_static_0
     29!
     30! 4329 2019-12-10 15:46:36Z motisi
    2731! Renamed wall_flags_0 to wall_flags_static_0
    2832!
     
    7983           
    8084       USE indices,                                                            &
    81            ONLY:  nxl, nxlu, nxr, nyn, nys, nysv, nzb, nzt, wall_flags_static_0
     85           ONLY:  nxl, nxlu, nxr, nyn, nys, nysv, nzb, nzt,                    &
     86                  wall_flags_total_0
    8287                   
    8388       USE kinds
     
    107112          CASE ( 1 )
    108113             !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) &
    109              !$ACC PRESENT(wall_flags_static_0) &
     114             !$ACC PRESENT(wall_flags_total_0) &
    110115             !$ACC PRESENT(v, w, vg) &
    111116             !$ACC PRESENT(tend)
     
    115120!
    116121!--                   Predetermine flag to mask topography
    117                       flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 1 ) )
     122                      flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 1 ) )
    118123
    119124                      tend(k,j,i) = tend(k,j,i) + flag *                                           &
     
    132137          CASE ( 2 )
    133138             !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) &
    134              !$ACC PRESENT(wall_flags_static_0) &
     139             !$ACC PRESENT(wall_flags_total_0) &
    135140             !$ACC PRESENT(u, w, ug) &
    136141             !$ACC PRESENT(tend)
     
    140145!
    141146!--                   Predetermine flag to mask topography
    142                       flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 2 ) )
     147                      flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 2 ) )
    143148
    144149                      tend(k,j,i) = tend(k,j,i) - flag *                                           &
     
    157162          CASE ( 3 )
    158163             !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) &
    159              !$ACC PRESENT(wall_flags_static_0) &
     164             !$ACC PRESENT(wall_flags_total_0) &
    160165             !$ACC PRESENT(u, v) &
    161166             !$ACC PRESENT(tend)
     
    165170!
    166171!--                   Predetermine flag to mask topography
    167                       flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 3 ) )
     172                      flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 3 ) )
    168173
    169174                      tend(k,j,i) = tend(k,j,i)                                                 &
     
    205210           
    206211       USE indices,                                                            &
    207            ONLY:  nzb, nzt, wall_flags_static_0
     212           ONLY:  nzb, nzt, wall_flags_total_0
    208213           
    209214       USE kinds
     
    235240!
    236241!--             Predetermine flag to mask topography
    237                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 1 ) )
     242                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 1 ) )
    238243
    239244                tend(k,j,i) = tend(k,j,i) + flag *                                                 &
     
    252257!
    253258!--             Predetermine flag to mask topography
    254                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 2 ) )
     259                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 2 ) )
    255260
    256261                tend(k,j,i) = tend(k,j,i) - flag *                                                 &
     
    269274!
    270275!--             Predetermine flag to mask topography
    271                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 3 ) )
     276                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 3 ) )
    272277
    273278                tend(k,j,i) = tend(k,j,i)                                                 &
Note: See TracChangeset for help on using the changeset viewer.