1 2 SUBROUTINE XTRPSW(PFLZ,PFLVAL,GRDZ,VALUE) 3 !======================================================================= 4 ! XTRPSW Module of the AERMOD Dispersion Model 5 ! 6 ! Purpose: To compute the the deviation of the vertical wind 7 ! speed by extrapolating outside (either above or below) 8 ! the range of observed data (i.e., there is at least 9 ! one observation of sigma_W in the profile). 10 ! 11 ! Input: 12 ! 13 ! 14 ! 15 ! 16 ! Output: Value of the parameter at the required level 17 ! 18 ! Called by: 19 ! 20 ! Assumptions: 21 ! 22 ! Programmer: Jim Paumier 30 September 1993 23 ! Pacific Environmental Services 24 ! 25 ! Revision history: 26 ! <none> 27 ! 28 ! Reference(s): 29 ! 30 !----------------------------------------------------------------------- 31 ! 32 !---- Variable declarations 33 ! 34 IMPLICIT NONE 35 36 REAL :: GRDZ , PFLVAL , PFLZ , RATIO , VALOBS , VALGRD , VALUE 37 ! 38 !---- Data dictionary 39 ! 40 ! 41 !---- Data initializations 42 ! 43 ! 44 !....................................................................... 45 !---- The computation requires estimates from the reference/theoretical 46 ! profile at the height of the highest(lowest) observation and at 47 ! the height the parameter is needed. The ratio of these two values 48 ! is applied to the observed parameter at the highest(lowest) 49 ! observed height. 50 ! 51 ! COMPUTE the value of the parameter from the reference profile 52 ! at the height of the highest(lowest) observed value --- CALL REFSW 53 CALL REFSW(PFLZ,VALOBS) ! 0 54 ! 55 ! COMPUTE the value of the parameter from the reference profile 56 ! at the height where a value is required --- CALL REFSW 57 CALL REFSW(GRDZ,VALGRD) 58 ! 59 RATIO = VALGRD/VALOBS 60 ! 61 VALUE = RATIO*PFLVAL 62 ! 63 CONTINUE 64 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