1 2 SUBROUTINE BID 3 !*********************************************************************** 4 ! BID Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Applies Bouyancy-Induced Dispersion to 7 ! Sigma-y and Sigma-z 8 ! 9 ! PROGRAMMER: Roger Brode and Jim Paumier, PES, Inc 10 ! 11 ! DATE: September 30, 1993 12 ! 13 ! INPUTS: Sigma-y 14 ! Sigma-z 15 ! Downwind Distance 16 ! Buoyancy and Momentum Fluxes 17 ! Source Parameter Arrays 18 ! 19 ! OUTPUTS: BID contributions to sigma_Y and sigma_Z 20 ! 21 ! CALLED FROM: PDIS 22 ! 23 ! References: "A Dispersion Model for the Convective Boundary 24 ! Layer (Revised)", J. Weil, 8/27/93 25 ! 26 !*********************************************************************** 27 28 ! Variable Declarations 29 USE MAIN1 30 IMPLICIT NONE 31 CHARACTER MODNAM*12 32 33 SAVE 34 35 ! Variable Initializations 36 MODNAM = 'BID' !4043512 37 38 ! Calculate the buoyancy-induced contribution, which will be added 39 ! to the other contributions in RMSSIG 40 41 IF ( STABLE .OR. (UNSTAB .AND. (HS.GE.ZI)) ) THEN 42 43 SZB = BETA2*DHP/RTOF2 !3399452 44 45 SYB = SZB 46 47 ELSEIF ( UNSTAB ) THEN 48 49 ! Direct source contribution 50 SZBD = BETA2*DHP1/RTOF2 ! 644060 51 52 ! Set SZBN = SZBD. 53 SZBN = SZBD 54 55 ! The penetrated source contribution 56 IF ( UNSTAB .AND. (PPF.GT.0.0) ) THEN 57 SZB3 = BETA2*PPF*DHP3/RTOF2 ! 417588 58 59 ELSE 60 SZB3 = 0.0 ! 226472 61 62 ENDIF 63 64 SYB = SZBD ! 644060 65 SYB3 = SZB3 66 67 ENDIF 68 69 CONTINUE !4043512 70 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