ACPLUME.f90#2 SUBROUTINE ACPLUME(ZARG,FYARG,COUT) #54 REAL :: ZARG , FYARG , COUT #61 ZR = ZARG CPLUME.f90#2 SUBROUTINE CPLUME(ZARG,COUT) #55 REAL :: ZARG , COUT #62 ZR = ZARG PRM_PLUME.f90#2 SUBROUTINE PRM_PLUME(ZARG,COUT) #25 REAL :: ZARG , FYPL , COUT , EXPARG #32 ZR = ZARG SIGYPR.f90#2 SUBROUTINE SIGYPR(XARG,ZARG,SYOUT) #28 REAL :: XARG , SVOVRU , TYEFF , XNODIM , DENOMI , BETALPH , ZARG ,& #38 TYEFF = (ZIMECH/(156.*SVEFF))*(AMAX1(ZARG,0.46)/0.46) #46 DENOMI = AMAX1(ZARG,0.46) SIGZPR.f90#2 SUBROUTINE SIGZPR(XARG,ZARG,SZOUT) #29 & ZARG , SZAD , SZOUT #45 CALL LOCATE(GRIDHT,1,MXGLVL,ZARG,NDXZHE) #49 & GRIDPT(NDXZHE+1),ZARG,PTP) #58 ZTMP = AMAX1(ZARG,1.0E-4) #71 IF ( ZARG.LT.ZI ) THEN ! 164418 #72 CALL SZSFCLPR(XARG,ZARG) ! 138660 #74 SIGF = AMIN1(ZARG/ZI,1.0) #85 IF ( ZARG.GE.0.1*ZI ) THEN ! 65808 #88 ALPHAB = 0.6 + 0.4*(ZARG/(0.1*ZI)) ! 63134 #93 CALL SZSFCLPR(XARG,ZARG) SZSFCLPR.f90#2 SUBROUTINE SZSFCLPR(XARG,ZARG) #39 REAL :: XARG , ZARG #51 IF ( UNSTAB .AND. ZARG.LT.0.1*ZI ) THEN #52 SZSURF = BSUBC*(1.0-10.*(ZARG/ZI))**ALPHA1*(USTAR/UEFF) &
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