1 2 SUBROUTINE ALCALC() 3 !======================================================================= 4 ! ALCALC Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! Purpose: To calculate the coefficient ALPHPD for the CBL PDF 7 ! 8 ! Input: Lagrangian correlation coefficient, R 9 ! 10 ! Output: Coefficient, ALPHPD 11 ! 12 ! Assumptions: 13 ! 14 ! Called by: PDF 15 ! 16 ! Programmer: Jim Paumier, PES, Inc. 17 ! Date: September 30, 1993 18 ! 19 ! Revision history: 20 ! <none> 21 ! 22 ! References: "Summary of Expressions for the CBL", J. Weil, 4/12/93 23 ! 24 !----------------------------------------------------------------------- 25 ! 26 !---- Variable declarations 27 ! 28 USE MAIN1 29 IMPLICIT NONE 30 CHARACTER MODNAM*12 31 32 SAVE 33 34 !---- Data initializations 35 ! 36 MODNAM = 'ALCALC' ! 10694K 37 38 !---- Calculate the coefficient ALPHPD 39 40 ALPHPD = (1.0+R*R)/(1.0+3.0*R*R) 41 42 CONTINUE 43 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