Symbol Description Uses
k12 thermal conductivity terms 20


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 166 THSICE_SOLVE4TEMP 
      _RL  k12, k32
./pkg/thsice/thsice_solve4temp.F 261 THSICE_SOLVE4TEMP 
      k12 = 4. _d 0*kIce*kSnow / (kSnow*hi + 4. _d 0*kIce*hs)
./pkg/thsice/thsice_solve4temp.F 357 THSICE_SOLVE4TEMP 
     &  'ThSI_SOLVE4T: flx0,df0dT,k12,D=', flx0,df0dT,k12,k12-df0dT
./pkg/thsice/thsice_solve4temp.F 367 THSICE_SOLVE4TEMP 
         a1 = a10 - k12*df0dT / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 368 THSICE_SOLVE4TEMP 
         b1 = b10 - k12*(flx0-df0dT*Tsf) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 370 THSICE_SOLVE4TEMP 
         dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 377 THSICE_SOLVE4TEMP 
            a1 = a10 + k12
./pkg/thsice/thsice_solve4temp.F 449 THSICE_SOLVE4TEMP 
      fct    = k12*(Tsf-Tice(1))
./pkg/dic/carbon_chem.F 119 CALC_PCO2 
        _RL  k12
./pkg/dic/carbon_chem.F 175 CALC_PCO2 
            k12 = k1local*k2local
./pkg/dic/carbon_chem.F 182 CALC_PCO2 
            b = x2 + k1local*x + k12
./pkg/dic/carbon_chem.F 190 CALC_PCO2 
     &        2.0*diclocal*k12/b +
./pkg/dic/carbon_chem.F 207 CALC_PCO2 
     &        2.0*diclocal*k12*db/b2 -
./pkg/dic/carbon_chem.F 247 CALC_PCO2 
              k12 = k1local*k2local
./pkg/dic/carbon_chem.F 254 CALC_PCO2 
              b = x2 + k1local*x + k12
./pkg/dic/carbon_chem.F 259 CALC_PCO2 
     &          2.0*diclocal*k12/b +