Symbol Description Uses
B1 23



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1346 TRBFLX
      PARAMETER ( B1      =   16.6    )
./pkg/fizhi/fizhi_turb.F 1347 TRBFLX
      PARAMETER ( B3      = 1. / B1  )
./pkg/fizhi/fizhi_turb.F 3741 TRBL20
      PARAMETER ( B1      =   16.6    )
./pkg/fizhi/fizhi_turb.F 3796 TRBL20
          QE(I,1) = B1*QE(I,1)
./pkg/fizhi/fizhi_turb.F 3846 TRBL25
      PARAMETER ( B1      =   16.6    )
./pkg/fizhi/fizhi_turb.F 3848 TRBL25
      PARAMETER ( B3      = 1. / B1  )
./pkg/my82/MY82.h 38 NO PROCEDURE
      _RL A1, A2, B1, B2, C1
./pkg/my82/MY82.h 41 NO PROCEDURE
      PARAMETER( B1 = 16.6D0 )
./pkg/my82/my82_init_varia.F 35 MY82_INIT_VARIA
      gam1 = 1. _d 0/3. _d 0 - 2. _d 0 *A1/B1
./pkg/my82/my82_init_varia.F 36 MY82_INIT_VARIA
      gam2 = (B2+6. _d 0*A1)/B1
./pkg/my82/my82_init_varia.F 39 MY82_INIT_VARIA
      beta1  = A1*B1*(gam1-C1)
./pkg/my82/my82_init_varia.F 40 MY82_INIT_VARIA
      beta2  = A1*(B1*(gam1-C1) + 6. _d 0 *A1 + 3. _d 0 *A2)
./pkg/my82/my82_init_varia.F 41 MY82_INIT_VARIA
      beta3  = A2*B1*gam1
./pkg/my82/my82_init_varia.F 42 MY82_INIT_VARIA
      beta4  = A2*(B1*(gam1+gam2) - 3. _d 0 *A1)
./pkg/bling/bling_carbon_chem.F 558 CARBON_COEFFS
        _RL  B1
./pkg/bling/bling_carbon_chem.F 601 CARBON_COEFFS
           B1 = -1636.75 _d 0 + 12.0408 _d 0*tk - 0.0327957 _d 0*tk*tk
./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 818 CARBON_COEFFS_PRESSURE_DEP
        _RL  B1
./pkg/bling/bling_carbon_chem.F 897 CARBON_COEFFS_PRESSURE_DEP
           B1 = -1636.75 _d 0 + 12.0408 _d 0*tk - 0.0327957 _d 0*tk*tk
./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/dic/carbon_chem.F 570 CARBON_COEFFS
        _RL  B1
./pkg/dic/carbon_chem.F 613 CARBON_COEFFS
           B1 = -1636.75 _d 0 + 12.0408 _d 0*tk - 0.0327957 _d 0*tk*tk
./pkg/dic/carbon_chem.F 614 CARBON_COEFFS
           B = B1 + 3.16528 _d 0*tk*tk*tk*(0.00001 _d 0)