1


2!***  End new code for area source numerical integration algorithm - 7/7/93


3


4


5


6!***  Subroutines for OPENPIT Source algorithms - 7/19/94


7


8


9      SUBROUTINE ESCAPE(ICAT)


10!***********************************************************************


11!*                ESCAPE Module of the AMS/EPA Regulatory Model - AERMOD


12!*


13!*       PURPOSE: To Calculate Escape Fractions for a Particle


14!*                Size Category


15!*


16!*       PROGRAMMER: Jayant Hardikar, Roger Brode


17!*


18!*       DATE:    July 20, 1994


19!*


20!*       INPUTS:  Index for Particle Size Category Being Processed


21!*                Gravitational Settling Velocity for Current


22!*                     Particle Size Category & Current Source


23!*                10-meter Wind Speed for the Current Hour


24!*                Constant ALPHA (= 0.029)


25!*


26!*


27!*       OUTPUTS: The Escape Fraction for the current Size Category


28!*


29!*       CALLED FROM:   OCALC


30!***********************************************************************


31


32!*    Variable Declarations


33      USE MAIN1


34      IMPLICIT NONE


35      CHARACTER MODNAM*12


36


37      SAVE


38      INTEGER :: ICAT


39!*    Variable Initializations


40      MODNAM = 'ESCAPE'                                                 !      0


41


42      EFRAC(ICAT) = 1.0/(1.0+VGRAV(ICAT)/(ALPHA*UREF10))


43


44      CONTINUE


45      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