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