1


2


3      SUBROUTINE PDEPG(XARG)


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


5!               PDEPG Module of AERMOD Model


6!


7!        PURPOSE: Calculates Deposition Adjustment Factors from DEPLETE


8!                 for Gases


9!


10!        PROGRAMMER: R. W. Brode, MACTEC/PES, Inc.


11!


12!        DATE:       September 29, 2003


13!


14!        INPUTS:


15!


16!


17!        OUTPUTS:


18!


19!


20!        CALLED FROM:


21!***********************************************************************


22


23!     Variable Declarations


24      USE MAIN1


25      IMPLICIT NONE


26      CHARACTER MODNAM*12


27


28      SAVE


29      REAL :: XARG


30


31!     Variable Initializations


32      MODNAM = 'PDEPG'                                                  !      0


33


34!     Initialize source depletion factors to unity.


35      DQCORG = 1.0


36      WQCORG = 1.0


37!        Determine factor for dry depletion


38      IF ( DDPLETE ) CALL DEPLETE(VDEPG,XARG,ROMBERG,DQCORG)


39!        Determine source depletion factor


40!        from wet removal (GASES)


41!        Simple Terrain Model


42      IF ( WDPLETE .AND. GSCVRT.GT.0.0 ) WQCORG = EXP(-GSCVRT*XARG/US)


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