ALLRESULT.f90#44 ALLOCATE (ARCMAX(NARC),QMAX(NARC),DXMAX(NARC),UMAX(NARC), & EVALCK.f90#66 UMAX(INDEX) = UEFF ! 0 #81 UMAX(INDEX) = UEFFD ! 0 #96 UMAX(INDEX) = UEFFD ! 0 EVALFL.f90#55 CWICN = CWIC*UMAX(I)*AMAX1(HEMAX(I),ZI) #71 CWICW = SRT2PI*SYMAX(I)*UMAX(I)*ZI*(CHIDMW(I)+CHINMW(I)) & #73 CWICL = SRT2PI*SYMAX(I)*UMAX(I)*ZI*(CHIDML(I)+CHINML(I)) & #82 UOUST = UMAX(I)/USTAR ! 0 #88 IF ( UMAX(I).GE.1.0E-10 ) THEN ! 0 #89 SVOU = SVMAX(I)/UMAX(I) ! 0 #123 UOWST = UMAX(I)/WSTAR ! 0 #129 IF ( UMAX(I).GE.1.0E-10 .AND. ZI.GE.1.0E-10 ) THEN ! 0 #130 XNDIM = DXMAX(I)*WSTAR/(UMAX(I)*ZI) ! 0 #166 UOUT = UMAX(I) ! 0 EVLINI.f90#43 UMAX(I) = 0.0 MAIN1.f90#835 REAL , ALLOCATABLE :: ARCMAX(:) , QMAX(:) , DXMAX(:) , UMAX(:) , &
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