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/wind_turbine_model_mod.f90

    r4343 r4346  
    2626! -----------------
    2727! $Id$
     28! Introduction of wall_flags_total_0, which currently sets bits based on static
     29! topography information used in wall_flags_static_0
     30!
     31! 4343 2019-12-17 12:26:12Z oliver.maas
    2832! replaced <= by < in line 1464 to ensure that ialpha will not be
    2933! greater than dlen
     
    118122    USE indices,                                                               &
    119123        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz,   &
    120                nzb, nzt, wall_flags_static_0
     124               nzb, nzt, wall_flags_total_0
    121125
    122126    USE kinds
     
    22282232!
    22292233!--                         Predetermine flag to mask topography
    2230                             flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 1 ) )
     2234                            flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_total_0(k,j,i), 1 ) )
    22312235     
    22322236!
     
    27022706                                  - tend_nac_x - tend_tow_x )                  &
    27032707                                      * MERGE( 1.0_wp, 0.0_wp,                 &
    2704                                                BTEST( wall_flags_static_0(k,j,i), 1 ) )
     2708                                        BTEST( wall_flags_total_0(k,j,i), 1 ) )
    27052709                   ENDDO
    27062710                ENDDO
     
    27222726                                  - tend_nac_y - tend_tow_y )                  &
    27232727                                      * MERGE( 1.0_wp, 0.0_wp,                 &
    2724                                                BTEST( wall_flags_static_0(k,j,i), 2 ) )
     2728                                        BTEST( wall_flags_total_0(k,j,i), 2 ) )
    27252729                   ENDDO
    27262730                ENDDO
     
    27372741                      tend(k,j,i) = tend(k,j,i) - rot_tend_z(k,j,i)            &
    27382742                                      * MERGE( 1.0_wp, 0.0_wp,                 &
    2739                                                BTEST( wall_flags_static_0(k,j,i), 3 ) )
     2743                                        BTEST( wall_flags_total_0(k,j,i), 3 ) )
    27402744                   ENDDO
    27412745                ENDDO
     
    27882792                            - tend_nac_x - tend_tow_x )                        &
    27892793                                      * MERGE( 1.0_wp, 0.0_wp,                 &
    2790                                             BTEST( wall_flags_static_0(k,j,i), 1 ) )
     2794                                        BTEST( wall_flags_total_0(k,j,i), 1 ) )
    27912795             ENDDO
    27922796          ENDIF
     
    28042808                            - tend_nac_y - tend_tow_y )                        &
    28052809                                      * MERGE( 1.0_wp, 0.0_wp,                 &
    2806                                                BTEST( wall_flags_static_0(k,j,i), 2 ) )
     2810                                        BTEST( wall_flags_total_0(k,j,i), 2 ) )
    28072811                ENDDO
    28082812          ENDIF
     
    28152819                tend(k,j,i) = tend(k,j,i) - rot_tend_z(k,j,i)                  &
    28162820                                      * MERGE( 1.0_wp, 0.0_wp,                 &
    2817                                                BTEST( wall_flags_static_0(k,j,i), 3 ) )
     2821                                        BTEST( wall_flags_total_0(k,j,i), 3 ) )
    28182822             ENDDO
    28192823          ENDIF
Note: See TracChangeset for help on using the changeset viewer.