1


2


3      SUBROUTINE PTFRAC


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


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


6!*


7!*       PURPOSE: To Calculate the Fractional Size of the Effective


8!*                Area of the OPENPIT Source


9!*


10!*       PROGRAMMER: Jayant Hardikar, Roger Brode


11!*


12!*       DATE:    July 20, 1994


13!*


14!*       INPUTS:  Relative Pit Depth


15!*


16!*       OUTPUTS: Fractional Size of the Effective Area of the OPENPIT


17!*


18!*


19!*       CALLED FROM:   OCALC


20!***********************************************************************


21


22!*    Variable Declarations


23      USE MAIN1


24      IMPLICIT NONE


25      CHARACTER MODNAM*12


26


27      SAVE


28!*    Variable Initializations


29      MODNAM = 'PTFRAC'                                                 !      0


30


31      IF ( PDREL.GE.0.2 ) THEN


32         PITFRA = 0.08                                                  !      0


33      ELSE


34         PITFRA = SQRT(1.0-1.7*(PDREL**(0.333333)))                     !      0


35      ENDIF


36


37      CONTINUE                                                          !      0


38      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