1!----------------------------------------------------------------------
2      SUBROUTINE PRIME1
3!----------------------------------------------------------------------
4!
5! --- PRIME      Version:  1.0     Level:  970812                PRIME1
6!                J. Scire, D. Strimaitis, EARTH TECH
7!                Prepared for EPRI under contract WO3527-01
8!
9! --- PURPOSE:  Initialize the variables used by the PRIME
10!               building downwash algorithm
11!
12! --- INPUTS:  none
13!
14! --- OUTPUT:
15!
16!     Common block /DFSN/ variables:
17!           afac,xbyrmax,wiz0,wiy0,wfz,wfy,
18!           dua_ua,xdecay,xdecayi,
19!           rurliz,rurliy,urbniz,urbniy
20!
21! --- PRIME1 called by:  MAIN (Host)
22! --- PRIME1 calls:      none
23!----------------------------------------------------------------------
24
25! --- Include common blocks
26      INCLUDE 'dfsn.pri'
27      REAL RIZ(6) , RIY(6) , UIZ(6) , UIY(6)
28
29! --- Ambient turbulence intensities are inferred from Briggs (1973)
30! --- "Diffusion estimation for small emissions", ATDL-106;
31      DATA RIZ/.20 , .12 , .08 , .06 , .03 , .016/
32      DATA RIY/.22 , .16 , .11 , .08 , .06 , .04/
33      DATA UIZ/.24 , .24 , .20 , .14 , .08 , .08/
34      DATA UIY/.32 , .32 , .22 , .16 , .11 , .11/
35
36! -----------------------
37! --- /DFSN/ variables
38! -----------------------
39
40! --- Set the factor for defining when turb Approaches Asymptotic
41! --- value, and also define the maximum allowed scaled distance
42      AFAC = 1.3                                                        !      3
43      XBYRMAX = 15.
44
45! --- Turbulence intensities in wake (from Briggs rural curves)
46      WIZ0 = 0.06
47      WIY0 = 0.08
48! --- Wake Factors for sigw and sigv from Weil (1996)
49      WFZ = 1.7
50      WFY = 1.7
51! --- deltaU0/U0
52      DUA_UA = 0.7
53! --- Power-law exponent for turbulence intensity change in distance
54      XDECAY = 0.666667
55      XDECAYI = 1.5
56
57! --- Pass turbulence intensities to /DFSN/ arrays
58      DO KST = 1 , 6
59         RURLIZ(KST) = RIZ(KST)                                         !     18
60         RURLIY(KST) = RIY(KST)
61         URBNIZ(KST) = UIZ(KST)
62         URBNIY(KST) = UIY(KST)
63      ENDDO
64!
65      CONTINUE                                                          !      3
66      END


HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use