1 2 FUNCTION HSPRIM(US,VS,HS,DS) 3 !*********************************************************************** 4 ! HSPRIM Module of the ISC Model - Version 2 5 ! 6 ! PURPOSE: Calculates Stack Height Adjusted for Stack 7 ! Tip Downwash (HS') 8 ! 9 ! PROGRAMMER: Roger Brode, Jeff Wang 10 ! 11 ! DATE: March 2, 1992 12 ! 13 ! INPUTS: Arrays of Source Parameters 14 ! Wind Speed Adjusted to Stack Height 15 ! 16 ! OUTPUTS: Adjusted Stack Height (m) 17 ! 18 ! CALLED FROM: PHEFF 19 !*********************************************************************** 20 21 ! Variable Declarations 22 IMPLICIT NONE 23 REAL :: US , VS , HS , DS , HSPRIM 24 CHARACTER MODNAM*6 25 ! Variable Initializations 26 MODNAM = 'HSPRIM' ! 9132 27 28 ! Calculate Adjusted Stack Height (Eqn. 1-7) 29 30 IF ( VS.LT.1.5*US ) THEN 31 HSPRIM = HS - 2.0*DS*(1.5-VS/US) ! 1766 32 ELSE 33 HSPRIM = HS ! 7366 34 ENDIF 35 36 IF ( HSPRIM.LT.0.0 ) HSPRIM = 0.0 ! 9132 37 38 CONTINUE 39 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