1 2 3 SUBROUTINE FYPLM(SYARG,FYOUT) 4 !*********************************************************************** 5 ! FYPLM Module of the AMS/EPA Regulatory Model - AERMOD 6 ! 7 ! PURPOSE: To Calculate the Value of the Horizontal Gaussian 8 ! Distribution Function for the Coherent Plume 9 ! 10 ! PROGRAMMER: Roger Brode 11 ! 12 ! DATE: September 30, 1993 13 ! 14 ! INPUTS: 15 ! SY - Sigma-Y 16 ! Y - The Crosswind Distance of the Receptor from 17 ! the Plume 18 ! 19 ! OUTPUTS: 'FSUBY' Term 20 ! 21 ! CALLED FROM: AERCALC, PRMCALC, VOLCALC, ACALC 22 !*********************************************************************** 23 24 ! Variable Declarations 25 USE MAIN1 26 IMPLICIT NONE 27 CHARACTER MODNAM*12 28 REAL :: SYARG , EXPARG , FYOUT 29 30 SAVE 31 32 ! Variable Initializations 33 MODNAM = 'FYPLM' !1913982 34 35 EXPARG = -(Y*Y/(2.0*SYARG*SYARG)) 36 ! 37 ! Add meander component 38 ! 39 IF ( EXPARG.GT.EXPLIM ) THEN 40 ! Calculate lateral term for Gaussian plume 41 FYOUT = EXP(EXPARG)/(SRT2PI*SYARG) !1212418 42 ELSE 43 FYOUT = 0.0 ! 701564 44 ENDIF 45 46 CONTINUE !1913982 47 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