1 2 SUBROUTINE CBLPRD(XARG) 3 !*********************************************************************** 4 ! CBLPRD Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: To calculate plume rise for the direct 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: 14 ! 15 ! OUTPUTS: Plume Rise, DHP1 (m) 16 ! 17 ! CALLED FROM: DELTAH 18 ! 19 ! Assumptions: Wind speed is nonzero at stack top 20 ! 21 ! References: "A Dispersion Model for the Convective Boundary Layer", 22 ! J. Weil, 8/17/93 23 ! 24 !*********************************************************************** 25 26 ! Variable Declarations 27 USE MAIN1 28 IMPLICIT NONE 29 CHARACTER MODNAM*12 30 REAL :: XARG 31 32 SAVE 33 34 ! Variable Initializations 35 MODNAM = 'CBLPRD' !1822464 36 37 DHP1 = (3.0*FM*XARG/(BETA1*BETA1*UP*UP) & 38 & +3.0*FB*XARG*XARG/(2.0*BETA1*BETA1*UP*UP*UP))**0.333333 39 40 CONTINUE 41 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