1


2


3      SUBROUTINE LWIND


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


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


6!*


7!*       PURPOSE: To Calculate the Along-Wind Length of the OPENPIT


8!*


9!*       PROGRAMMER: Jayant Hardikar, Roger Brode


10!*


11!*       DATE:    July 20, 1994


12!*


13!*       INPUTS:  Wind Flow Vector for the Current Hour


14!*                Angle of the Long OPENPIT dimension from the North


15!*                Length of the OPENPIT


16!*                Width of the OPENPIT


17!*


18!*       OUTPUTS: Along-Wind Length of the OPENPIT


19!*


20!*


21!*       CALLED FROM:   OCALC


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


23


24!*    Variable Declarations


25      USE MAIN1


26      IMPLICIT NONE


27      CHARACTER MODNAM*12


28


29      SAVE


30!*    Variable Initializations


31      MODNAM = 'LWIND'                                                  !      0


32


33!*    Determine the Wind Direction Angle Relative to the Long


34!*    Axis of the OpenPit


35      CALL CTHETA(AFV,PALPHA,THETA)


36


37!*    Determine the Along-Wind Length of the OPENPIT


38      PITL = PITLEN*(1-THETA/90.) + PITWID*(THETA/90.)


39


40      CONTINUE


41      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