1 2 SUBROUTINE FTERM 3 !*********************************************************************** 4 ! FTERM Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: To Calculate the Value of 'F' Which is Related to the 7 ! Fraction of Plume Material Below HCrit 8 ! 9 ! PROGRAMMER: Roger Brode, Jayant Hardikar 10 ! 11 ! DATE: September 30, 1993 12 ! 13 ! INPUTS: PHEE - Fraction of Plume Material Below HCrit 14 ! 15 ! OUTPUTS: FOPT - The 'F' Term 16 ! 17 ! CALLED FROM: PCALC 18 !*********************************************************************** 19 20 ! Variable Declarations 21 USE MAIN1 22 IMPLICIT NONE 23 CHARACTER MODNAM*12 24 25 SAVE 26 27 ! Variable Initializations 28 MODNAM = 'FTERM' ! 21061K 29 30 FOPT = 0.5*(1.0+PHEE) 31 32 CONTINUE 33 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