| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
174 |
THSICE_SOLVE4TEMP |
_RL k12 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
294 |
THSICE_SOLVE4TEMP |
k12(i,j) = 4. _d 0*kIce*kSnow |
|
./pkg/thsice/thsice_solve4temp.F |
486 |
THSICE_SOLVE4TEMP |
& flxNet, dFlxdT(i,j), k12(i,j), k12(i,j)-dFlxdT(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
489 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) - k12(i,j)*dFlxdT(i,j) / (k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
490 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
491 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
494 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j))) |
|
./pkg/thsice/thsice_solve4temp.F |
495 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
503 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) + k12(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
587 |
THSICE_SOLVE4TEMP |
fct = k12(i,j)*(Tsf(i,j)-tIc1(i,j)) |
|
./pkg/bling/bling_carbon_chem.F |
118 |
CALC_PCO2 |
_RL k12 |
|
./pkg/bling/bling_carbon_chem.F |
174 |
CALC_PCO2 |
k12 = k1local*k2local |
|
./pkg/bling/bling_carbon_chem.F |
181 |
CALC_PCO2 |
b = x2 + k1local*x + k12 |
|
./pkg/bling/bling_carbon_chem.F |
189 |
CALC_PCO2 |
& 2.0*diclocal*k12/b + |
|
./pkg/bling/bling_carbon_chem.F |
206 |
CALC_PCO2 |
& 2.0*diclocal*k12*db/b2 - |
|
./pkg/bling/bling_carbon_chem.F |
246 |
CALC_PCO2 |
k12 = k1local*k2local |
|
./pkg/bling/bling_carbon_chem.F |
253 |
CALC_PCO2 |
b = x2 + k1local*x + k12 |
|
./pkg/bling/bling_carbon_chem.F |
258 |
CALC_PCO2 |
& 2.0*diclocal*k12/b + |
|
./pkg/dic/carbon_chem.F |
123 |
CALC_PCO2 |
_RL k12 |
|
./pkg/dic/carbon_chem.F |
179 |
CALC_PCO2 |
k12 = k1local*k2local |
|
./pkg/dic/carbon_chem.F |
186 |
CALC_PCO2 |
b = x2 + k1local*x + k12 |
|
./pkg/dic/carbon_chem.F |
194 |
CALC_PCO2 |
& 2.0*diclocal*k12/b + |
|
./pkg/dic/carbon_chem.F |
211 |
CALC_PCO2 |
& 2.0*diclocal*k12*db/b2 - |
|
./pkg/dic/carbon_chem.F |
251 |
CALC_PCO2 |
k12 = k1local*k2local |
|
./pkg/dic/carbon_chem.F |
258 |
CALC_PCO2 |
b = x2 + k1local*x + k12 |
|
./pkg/dic/carbon_chem.F |
263 |
CALC_PCO2 |
& 2.0*diclocal*k12/b + |