| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
162 |
THSICE_SOLVE4TEMP |
_RL k12 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
275 |
THSICE_SOLVE4TEMP |
k12(i,j) = 4. _d 0*kIce*kSnow |
|
./pkg/thsice/thsice_solve4temp.F |
448 |
THSICE_SOLVE4TEMP |
& flxNet, dFlxdT(i,j), k12(i,j), k12(i,j)-dFlxdT(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
451 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) - k12(i,j)*dFlxdT(i,j) / (k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
452 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
453 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
456 |
THSICE_SOLVE4TEMP |
dTsrf(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j))) |
|
./pkg/thsice/thsice_solve4temp.F |
457 |
THSICE_SOLVE4TEMP |
& /(k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
464 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) + k12(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
537 |
THSICE_SOLVE4TEMP |
fct = k12(i,j)*(Tsf(i,j)-tIc1(i,j)) |
|
./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 + |