1 2 SUBROUTINE CBLPR3 3 !*********************************************************************** 4 ! CBLPR3 Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: To calculate plume rise for the penetrated plume in the 7 ! convective boundary layer 8 ! 9 ! PROGRAMMER: Jim Paumier and Roger Brode, PES, Inc 10 ! 11 ! DATE: September 30, 1993 12 ! 13 ! INPUTS: The ratio of delta(Hsub_e) to delta(Hsub_h), HEDHH 14 ! Mixing height, ZI 15 ! Source release height, HS 16 ! 17 ! OUTPUTS: Plume Rise, DHP3 (m) 18 ! 19 ! CALLED FROM: DELTAH 20 ! 21 ! Assumptions: 22 ! 23 ! References: "A Dispersion Model for the Convective Boundary 24 ! Layer", J. Weil, 8/17/93 25 ! "Plume Penetration of the CBL and Source 3: Source 26 ! Strength and Plume Rise", J. Weil, 9/1/93 27 ! 28 !*********************************************************************** 29 30 ! Variable Declarations 31 USE MAIN1 32 IMPLICIT NONE 33 CHARACTER MODNAM*12 34 35 SAVE 36 37 ! Variable Initializations 38 MODNAM = 'CBLPR3' ! 208794 39 40 ! The plume rise for the penetrated source is delta(Hsub_3), given 41 ! by Eq. 9 in Jeff Weil's 9/1/93 document. The variable HEDHH is 42 ! delta(Hsub_e)/delta(Hsub_h), calculated from Eq. 26a of Jeff Weil's 43 ! 8/17/93 document, where delta(Hsub_h) is ZI-HS. 44 45 IF ( PPF.EQ.1.0 ) THEN 46 DHP3 = HEDHH*(ZI-HSP) ! 17138 47 ELSE 48 DHP3 = 0.75*(ZI-HSP)*HEDHH + 0.5*(ZI-HSP) ! 191656 49 ENDIF 50 51 CONTINUE ! 208794 52 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