1


2


3      SUBROUTINE PITEMI(QPTOT)


4!***********************************************************************


5!*                PITEMI Module of the AMS/EPA Regulatory Model - AERMOD


6!*


7!*       PURPOSE: To Determine the Emission Rate for the Effective


8!*                Pit Area


9!*


10!*       PROGRAMMER: Jayant Hardikar, Roger Brode


11!*


12!*       DATE:    July 20, 1994


13!*


14!*       INPUTS:  Fractional Area of the Pit


15!*                Total Adjusted Emission Rate


16!*


17!*       OUTPUTS: Emission Rate for the Effective Area of the Current


18!*                OPENPIT Source


19!*


20!*


21!*       CALLED FROM:   OCALC


22!***********************************************************************


23


24!*    Variable Declarations


25      USE MAIN1


26      IMPLICIT NONE


27      CHARACTER MODNAM*12


28


29      SAVE


30      REAL :: QPTOT


31!*    Variable Initializations


32      MODNAM = 'PITEMI'                                                 !      0


33


34      QEFF = QPTOT/PITFRA


35


36      CONTINUE


37      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