1 2 SUBROUTINE REFSV(HEIGHT,VALUE) 3 !======================================================================= 4 ! REFSV Module of the AERMOD Dispersion Model 5 ! 6 ! Purpose: To compute the value of sigma-V, the horizontal 7 ! (lateral) dispersion parameter from the surface 8 ! friction velocity and convective scaling velocity 9 ! alone (i.e., no observations of sigma-V) 10 ! 11 ! Input: Mixing height (ZI) 12 ! Friction velocity (USTAR) 13 ! Convective scaling velocity (WSTAR) 14 ! Height at which sigma-V is needed (HEIGHT) 15 ! 16 ! Output: sigmaV at the required level (VALUE) 17 ! 18 ! Assumptions: Mixing height, friction and convective scaling 19 ! velocities are nonmissing 20 ! 21 ! Programmer: Jim Paumier 30 September 1993 22 ! Pacific Environmental Services 23 ! 24 ! Revision history: 25 ! <none> 26 ! 27 ! Reference(s): 28 ! 29 !----------------------------------------------------------------------- 30 ! 31 !---- Variable declarations 32 ! 33 USE MAIN1 34 IMPLICIT NONE 35 CHARACTER MODNAM*12 36 37 SAVE 38 REAL HEIGHT , VALUE , SVC , SVM 39 ! 40 !---- Data dictionary 41 ! 42 !---- Data initializations 43 ! 44 MODNAM = 'REFSV ' ! 264828 45 ! 46 !....................................................................... 47 ! 48 IF ( UNSTAB ) THEN 49 ! Compute the convective component of sigma-v, SVC 50 CALL REFSVC(HEIGHT,SVC) ! 43326 51 52 ! Compute the mechanical component of sigma-v, SVM 53 CALL REFSVM(HEIGHT,SVM) 54 55 VALUE = SQRT(SVC*SVC+SVM*SVM) 56 57 ELSEIF ( STABLE ) THEN 58 ! Compute the mechanical component of sigma-v, SVM 59 CALL REFSVM(HEIGHT,SVM) ! 221502 60 61 VALUE = SVM 62 63 ENDIF 64 65 ! 66 CONTINUE ! 264828 67 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