1 2 SUBROUTINE CBLPRN(XARG) 3 !*********************************************************************** 4 ! CBLPRN Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: To calculate plume rise for the indirect 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 ! CHANGES: Equation for DHP2 revised per memorandum from Jeff Weil 14 ! to AERMIC dated June 20, 1994. 15 ! 16 ! Added XARG as formal argument for new formulation. 17 ! Roger Brode, PES, Inc. - 12/5/94 18 ! 19 ! INPUTS: 20 ! 21 ! OUTPUTS: Plume Rise, DHP2 (m) 22 ! 23 ! CALLED FROM: DELTAH 24 ! 25 ! Assumptions: 26 ! 27 ! References: "A Dispersion Model for the Convective Boundary Layer", 28 ! J. Weil, 8/17/93 29 ! 30 !*********************************************************************** 31 32 ! Variable Declarations 33 USE MAIN1 34 IMPLICIT NONE 35 CHARACTER MODNAM*12 36 REAL :: XARG , RSUBH , RYRZ , DELHI 37 38 SAVE 39 40 ! Variable Initializations 41 MODNAM = 'CBLPRN' ! 322030 42 43 RSUBH = BETA2*(ZI-HSP) 44 RYRZ = RSUBH*RSUBH + 0.25*ASUBE*(LAMDAY**1.5) & 45 & *WSTAR*WSTAR*XARG*XARG/(UP*UP) 46 DELHI = SQRT((2.*FB*ZI)/(ALPHAR*UP*RYRZ))*(XARG/UP) 47 DHP2 = DELHI 48 49 CONTINUE 50 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