Symbol Description Uses
B 85


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 4005 VTRI0 
      SUBROUTINE VTRI0 ( A,B,C,F,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4009 VTRI0 
      _RL A(irun,K),B(irun,K),C(irun,K),Y(irun,K+1)
./pkg/fizhi/fizhi_turb.F 4022 VTRI0 
        A(I,L) = 1. / ( A(I,L) - B(I,LM1) * C(I,L) )
./pkg/fizhi/fizhi_turb.F 4029 VTRI0 
       Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) * A(I,L)
./pkg/fizhi/fizhi_turb.F 4038 VTRI1 
      SUBROUTINE VTRI1 ( A,B,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4042 VTRI1 
      _RL A(irun,K),B(irun,K),Y(irun,K+1)
./pkg/fizhi/fizhi_turb.F 4048 VTRI1 
        Y(I,L) = B(I,L) * Y(I,L+1) * A(I,L)
./pkg/fizhi/fizhi_turb.F 4057 VTRI2 
      SUBROUTINE VTRI2 ( A,B,C,F,Y,K,irun)
./pkg/fizhi/fizhi_turb.F 4061 VTRI2 
      _RL A(irun,K),B(irun,K),C(irun,K),F(irun,K)
./pkg/fizhi/fizhi_turb.F 4074 VTRI2 
        Y(I,L) = (F(I,L) + B(I,L) * Y(I,L+1)) *  A(I,L)
./pkg/fizhi/fizhi_utils.F 103 STRIPINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 108 STRIPINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 111 STRIPINT 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 118 PASTE 
      SUBROUTINE PASTE(B,A,IB,IA,L,K)
./pkg/fizhi/fizhi_utils.F 121 PASTE 
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 131 PASTE 
      A(I+OFFSET-1,J) = B(I,J)
./pkg/fizhi/fizhi_utils.F 136 PSTBMP 
      SUBROUTINE PSTBMP(B,A,IB,IA,L,K)
./pkg/fizhi/fizhi_utils.F 139 PSTBMP 
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 149 PSTBMP 
      A(I+OFFSET-1,J) = A(I+OFFSET-1,J) + B(I,J)
./pkg/fizhi/fizhi_utils.F 154 STRINT 
      SUBROUTINE STRINT(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 157 STRINT 
      INTEGER A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 168 STRINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 173 STRINT 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 176 STRINT 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 60 STRIP 
      SUBROUTINE STRIP(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 63 STRIP 
      _RL A(IA,L), B(IB,L)
./pkg/fizhi/fizhi_utils.F 652 GRD2MSC 
      SUBROUTINE GRD2MSC(A,IM,JM,IGRD,B,MXCHPS,NCHP)
./pkg/fizhi/fizhi_utils.F 658 GRD2MSC 
      _RL A(IM*JM), B(MXCHPS)
./pkg/fizhi/fizhi_utils.F 665 GRD2MSC 
         B(I) = A(IGRD(I))
./pkg/fizhi/fizhi_utils.F 674 MSC2GRD 
      SUBROUTINE MSC2GRD(IGRD,CHFR,B,MXCHPS,NCHP,FRACG,A,IM,JM)
./pkg/fizhi/fizhi_utils.F 683 MSC2GRD 
      _RL A(IM*JM), B(MXCHPS), CHFR(MXCHPS), FRACG(IM*JM)
./pkg/fizhi/fizhi_utils.F 697 MSC2GRD 
         VT1(IGRD(I)) = VT1(IGRD(I)) + B(I)*CHFR(I)
./pkg/fizhi/fizhi_utils.F 74 STRIP 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 79 STRIP 
        B(I,J) = A(I+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 82 STRIP 
        B(Lena+I,J) = A(Lena+OFFSET-1,J)
./pkg/fizhi/fizhi_utils.F 89 STRIPINT 
      SUBROUTINE STRIPINT(A,B,IA,IB,L,K)
./pkg/fizhi/fizhi_utils.F 92 STRIPINT 
      INTEGER A(IA,L), B(IB,L)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 176 GAD_OS7MP_ADV_R 
         B = 4. _d 0*d2p1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_r.F 179 GAD_OS7MP_ADV_R 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 181 GAD_OS7MP_ADV_R 
         B = 4. _d 0*d2 - d2m1
./pkg/generic_advdiff/gad_os7mp_adv_r.F 184 GAD_OS7MP_ADV_R 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 40 GAD_OS7MP_ADV_R 
      _RL d2,d2p1,d2m1,A,B,C,D
./pkg/generic_advdiff/gad_os7mp_adv_x.F 180 GAD_OS7MP_ADV_X 
         B = 4. _d 0*d2p1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_x.F 183 GAD_OS7MP_ADV_X 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 185 GAD_OS7MP_ADV_X 
         B = 4. _d 0*d2 - d2m1
./pkg/generic_advdiff/gad_os7mp_adv_x.F 188 GAD_OS7MP_ADV_X 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 42 GAD_OS7MP_ADV_X 
      _RL d2,d2p1,d2m1,A,B,C,D
./pkg/generic_advdiff/gad_os7mp_adv_y.F 180 GAD_OS7MP_ADV_Y 
         B = 4. _d 0*d2p1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_y.F 183 GAD_OS7MP_ADV_Y 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 185 GAD_OS7MP_ADV_Y 
         B = 4. _d 0*d2 - d2m1
./pkg/generic_advdiff/gad_os7mp_adv_y.F 188 GAD_OS7MP_ADV_Y 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 42 GAD_OS7MP_ADV_Y 
      _RL d2,d2p1,d2m1,A,B,C,D
./pkg/sbo/sbo_rho.F 116 NO PROCEDURE 
      B  = (5.03217E-5*P+3.359406)*P+21582.27
./pkg/sbo/sbo_rho.F 117 NO PROCEDURE 
      x = x*(1.0 - P/B) + (V350P+x)*P*SR/(B*(B+SR))
./pkg/sbo/sbo_rho.F 118 NO PROCEDURE 
      SR = V350P*(1.0 - P/B)
./pkg/sbo/sbo_rho.F 119 NO PROCEDURE 
      SBO_RHO = 1028.106331 + P/B/SR - x / (SR*(SR+x))
./pkg/sbo/sbo_rho.F 25 NO PROCEDURE 
      _RL PLAT,D,C1,P,PR,Q,X,SR,V350P,B
./pkg/sphere/sphere.F 315 SHC2ZONE 
      REAL    A, B, E, F, Q, DA, DB, XLAT
./pkg/sphere/sphere.F 332 SHC2ZONE 
         B    = 0.0
./pkg/sphere/sphere.F 342 SHC2ZONE 
            B    = B+DB
./pkg/sphere/sphere.F 351 SHC2ZONE 
            B    = B+DB
./pkg/sphere/sphere.F 362 SHC2ZONE 
            B    = B+DB
./pkg/sphere/sphere.F 371 SHC2ZONE 
            HS(M+M+1) = B
./pkg/bling/bling_carbon_chem.F 559 CARBON_COEFFS 
        _RL  B
./pkg/bling/bling_carbon_chem.F 602 CARBON_COEFFS 
           B = B1 + 3.16528 _d 0*tk*tk*tk*(0.00001 _d 0)
./pkg/bling/bling_carbon_chem.F 605 CARBON_COEFFS 
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) *
./pkg/bling/bling_carbon_chem.F 609 CARBON_COEFFS 
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)
./pkg/bling/bling_carbon_chem.F 819 CARBON_COEFFS_PRESSURE_DEP 
        _RL  B
./pkg/bling/bling_carbon_chem.F 898 CARBON_COEFFS_PRESSURE_DEP 
           B = B1 + 3.16528 _d 0*tk*tk*tk*(0.00001 _d 0)
./pkg/bling/bling_carbon_chem.F 902 CARBON_COEFFS_PRESSURE_DEP 
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) *
./pkg/bling/bling_carbon_chem.F 906 CARBON_COEFFS_PRESSURE_DEP 
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)
./pkg/dic/carbon_chem.F 571 CARBON_COEFFS 
        _RL  B
./pkg/dic/carbon_chem.F 614 CARBON_COEFFS 
           B = B1 + 3.16528 _d 0*tk*tk*tk*(0.00001 _d 0)
./pkg/dic/carbon_chem.F 615 CARBON_COEFFS 
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)