1


2


3      SUBROUTINE FYPAN(FYOUT)


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


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


6!


7!        PURPOSE: To Calculate the Value of the Horizontal Gaussian


8!                 Distribution Function for the Random ("Pancake")


9!                 Component


10!


11!        PROGRAMMER: Roger Brode


12!


13!        DATE:    September 30, 1993


14!


15!        INPUTS:


16!                 DISTR - Real - Radial distance of receptor from the


17!                                source (m)


18!


19!        OUTPUTS: 'FSUBY' Term


20!


21!        CALLED FROM:   PCALC


22!***********************************************************************


23


24!     Variable Declarations


25      USE MAIN1


26      IMPLICIT NONE


27      CHARACTER MODNAM*12


28      REAL :: FYOUT


29


30      SAVE


31


32!     Variable Initializations


33      MODNAM = 'FYPAN'                                                  !2761592


34


35      FYOUT = 1.0/(TWOPI*DISTR)


36


37      CONTINUE


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