Symbol Description Uses
k12 20


File Line number Procedure Code
./pkg/dic/carbon_chem.F 124 CALC_PCO2 
        _RL  k12
./pkg/dic/carbon_chem.F 180 CALC_PCO2 
            k12 = k1local*k2local
./pkg/dic/carbon_chem.F 187 CALC_PCO2 
            b = x2 + k1local*x + k12
./pkg/dic/carbon_chem.F 195 CALC_PCO2 
     &        2.0*diclocal*k12/b +
./pkg/dic/carbon_chem.F 212 CALC_PCO2 
     &        2.0*diclocal*k12*db/b2 -
./pkg/dic/carbon_chem.F 252 CALC_PCO2 
              k12 = k1local*k2local
./pkg/dic/carbon_chem.F 259 CALC_PCO2 
              b = x2 + k1local*x + k12
./pkg/dic/carbon_chem.F 264 CALC_PCO2 
     &          2.0*diclocal*k12/b +
./pkg/thsice/thsice_solve4temp.F 109 THSICE_SOLVE4TEMP 
      _RL  k12, k32      ! thermal conductivity terms
./pkg/thsice/thsice_solve4temp.F 148 THSICE_SOLVE4TEMP 
      k12 = 4. _d 0*kice*ksnow / (ksnow*hi + 4. _d 0*kice*hs)
./pkg/thsice/thsice_solve4temp.F 203 THSICE_SOLVE4TEMP 
     &                                     flx0,df0dT,k12,k12-df0dT
./pkg/thsice/thsice_solve4temp.F 209 THSICE_SOLVE4TEMP 
         a1 = a10 - k12*df0dT / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 210 THSICE_SOLVE4TEMP 
         b1 = b10 - k12*(flx0-df0dT*Tsf) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 212 THSICE_SOLVE4TEMP 
         dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 217 THSICE_SOLVE4TEMP 
            a1 = a10 + k12
./pkg/thsice/thsice_solve4temp.F 282 THSICE_SOLVE4TEMP 
      fct    = k12*(Tsf-Tice(1))