ACALC.f90#109         FB = 0.0


CBLPRD.f90#38     &       +3.0*FB*XARG*XARG/(2.0*BETA1*BETA1*UP*UP*UP))**0.333333


CBLPRN.f90#46      DELHI = SQRT((2.*FB*ZI)/(ALPHAR*UP*RYRZ))*(XARG/UP)


DELTAH.f90#75         XMAXTMP = UP*ATAN2(FM*BVPRIM,-FB)/BVPRIM                       !1156738


#111         XMAXTMP = UP*ATAN2(FM*BVPRIM,-FB)/BVPRIM


DISTF.f90#39         XMAX = UP*ATAN2(FM*BVPRIM,-FB)/BVPRIM                          !  20168


#42         DHFAER = 2.66*(FB/(BVF*BVF*UP))**0.333333


#43         XLN = FB/(UP*USTAR*USTAR)


#48         IF ( FB.LE.0.0 ) THEN


#52            IF ( FB.GE.55.0 ) THEN                                      !  20168


#53               XMAXN = 119.0*FB**0.4                                    !   7246


#55               XMAXN = 49.0*FB**0.625                                   !  12922


#62         DHFAER = AMIN1(DHFAER,4.0*FB**0.25/(BVF*BVF)**0.375)           !  20168


#76         IF ( FB.LE.0.0 ) THEN                                          !   1454


#80            IF ( FB.GE.55. ) THEN                                       !   1454


#81               XMAX = 119.*FB**0.4                                      !    498


#83               XMAX = 49.*FB**0.625                                     !    956


EVALFL.f90#114            FSTAR = FB/(UP*WSTAR*WSTAR*ZI)                              !      0


#183     &                             USTAR , PWSTAR , FB , FM , BOWEN ,   &


FLUXES.f90#40      FB = (0.25/TS)*(VS*DS*DS)*G*(TS-TA)


#44      IF ( FB.LT.1.0E-10 ) FB = 1.0E-10


MAIN1.f90#651     &        SBID , FM , FB , DTDZ , DHF , DHFAER , DHP , DHP1 , DHP2 ,&


NUMRISE.f90#159      FB = GRAVI*FDUM*DELTAT


#167      IF ( FB.LE.0.0 ) THEN


#170      ELSEIF ( FB.LT.55 ) THEN


#172         XMAXB = 49.*FB**0.625                                          !   3044


#176         XMAX = 119*FB**0.4                                             !   3044


#181      IF ( FB.LE.0.0 ) THEN                                             !   6088


#184      ELSEIF ( FB.LT.55. ) THEN


#186         ZNF = 21.425*(FB**0.75)/UAM                                    !   3044


#189         ZNF = 38.71*(FB**0.60)/UAM                                     !   3044


#539         WRITE (IO6,*) '             Buoyancy flux (FB) = ' , FB


OCALC.f90#172         FB = 0.0                                                       !      0


PENFCT.f90#57         PSUBS = FB/(UP*BVZI2*(ZI-HSP)*(ZI-HSP)*(ZI-HSP))


PLUME_VOL.f90#95         FB = 0.0                                                       !      0


PSRDEB.f90#45      WRITE (DBGUNT,6135) ISRC , QS , TS , VS , DS , FB , FM , HS ,     &


SBLRIS.f90#44      TERMA = FB/(BVF*BVF*UP)


#45      TERMB = BVPRIM*FM/FB


VCALC.f90#100         FB = 0.0


ZBRENT.f90#35     &        FB , FC , C1 , D1 , E1 , TOL1 , XM , P1 , Q1 , R1 , S1 ,  &


#44      FB = VN2 - IFD*3.9


#46      IF ( FB*FA.LE.0.0 ) THEN


#47         FC = FB                                                        !  82256


#49            IF ( FB*FC.GT.0.0 ) THEN                                    ! 248628


#55            IF ( ABS(FC).LT.ABS(FB) ) THEN                              ! 248628


#59               FA = FB


#60               FB = FC


#65            IF ( ABS(XM).LE.TOL1 .OR. FB.EQ.0.0 ) THEN


#69            IF ( ABS(E1).GE.TOL1 .AND. ABS(FA).GT.ABS(FB) ) THEN        ! 166372


#70               S1 = FB/FA                                               ! 166358


#76                  R1 = FB/FC


#95            FA = FB


#103            FB = VN - IFD*3.9




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