1 2 SUBROUTINE GRDEPS 3 !*********************************************************************** 4 ! GRDEPS Module of the AMS/EPA Regulatory Model - AERMOD 5 ! 6 ! PURPOSE: Computes profile of epsilon, turbulence dissipation 7 ! rate, for PVMRM option 8 ! 9 ! PROGRAMMER: Roger Brode, PES, Inc. 10 ! 11 ! DATE: May 13, 2002 12 ! 13 ! INPUTS: 14 ! 15 ! OUTPUTS: 16 ! 17 ! ASSUMPTIONS: 18 ! 19 ! CALLED FROM: METEXT 20 !*********************************************************************** 21 22 !---- Variable declarations 23 USE MAIN1 24 IMPLICIT NONE 25 CHARACTER MODNAM*12 26 INTEGER :: I 27 REAL :: TSUBLR 28 REAL , PARAMETER :: AR1 = 0.46 29 30 SAVE 31 32 !---- Variable initializations 33 MODNAM = 'GRDEPS' ! 0 34 35 ! Loop Through Grid Levels 36 DO I = 1 , MXGLVL 37 38 TSUBLR = AR1*ZI/GRIDSW(I) ! 0 39 GRIDEPS(I) = 0.78*GRIDSW(I)*GRIDSW(I)/TSUBLR 40 41 ENDDO 42 43 CONTINUE ! 0 44 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