1 2 SUBROUTINE PRM_PDEP(XARG) 3 !*********************************************************************** 4 ! PRM_PDEP Module of AERMOD Model 5 ! 6 ! PURPOSE: Calculates Deposition Adjustment Factors from 7 ! PRM_DEPLETE for PRIME component 8 ! 9 ! PROGRAMMER: R. W. Brode, PES, Inc. 10 ! 11 ! DATE: September 29, 1994 12 ! 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 INTEGER :: I 30 REAL :: XARG 31 32 ! Variable Initializations 33 MODNAM = 'PRM_PDEP' ! 0 34 35 ! Loop over particle sizes 36 DO I = 1 , NPD 37 DQCOR(I) = 1.0 ! 0 38 WQCOR(I) = 1.0 39 IF ( DDPLETE ) THEN 40 ! Determine factor for dry depletion 41 VSETL = VGRAV(I) ! 0 42 CALL PRM_DEPLETE(VDEP(I),XARG,ROMBERG,DQCOR(I)) 43 ENDIF 44 IF ( WDPLETE .AND. PSCVRT(I).GT.0.0 ) THEN ! 0 45 ! Determine source depletion factor from wet removal 46 ! Simple Terrain Model 47 WQCOR(I) = EXP(-PSCVRT(I)*XARG/US) ! 0 48 ELSE 49 ENDIF 50 ENDDO 51 52 CONTINUE ! 0 53 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