| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
10 |
THSICE_SOLVE4TEMP |
I useBlkFlx, flxExcSw, Tf, hi, hs, |
|
./pkg/thsice/thsice_solve4temp.F |
172 |
THSICE_SOLVE4TEMP |
& - k32 * (4. _d 0*dt*k32*Tf+rhoi*cpice *hi*Tice(2)) |
|
./pkg/thsice/thsice_solve4temp.F |
274 |
THSICE_SOLVE4TEMP |
Tice(2) = (2. _d 0*dt*k32*(Tice(1)+2. _d 0*Tf) |
|
./pkg/thsice/thsice_solve4temp.F |
283 |
THSICE_SOLVE4TEMP |
flxCnB = 4. _d 0*kice *(Tice(2)-Tf)/hi |
|
./pkg/thsice/thsice_solve4temp.F |
54 |
THSICE_SOLVE4TEMP |
_RL Tf |
|
./pkg/thsice/thsice_calc_thickn.F |
10 |
THSICE_CALC_THICKN |
I frzmlt, Tf, oceTs, oceV2s, snowPr, |
|
./pkg/thsice/thsice_calc_thickn.F |
156 |
THSICE_CALC_THICKN |
Fbot = cpchr*(Tf-oceTs)*ustar ! < 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
271 |
THSICE_CALC_THICKN |
qbot = -cpice *Tf + Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
52 |
THSICE_CALC_THICKN |
_RL Tf |
|
./pkg/thsice/thsice_impl_temp.F |
103 |
THSICE_IMPL_TEMP |
I useBulkforce, flxExcSw, Tf, hIce, hSnow, |
|
./pkg/thsice/thsice_impl_temp.F |
63 |
THSICE_IMPL_TEMP |
_RL Tf |
|
./pkg/thsice/thsice_impl_temp.F |
86 |
THSICE_IMPL_TEMP |
Tf = -mu_Tf*sOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_extend.F |
107 |
THSICE_EXTEND |
sst=(1. _d 0-newIceFrac)*sst+newIceFrac*Tf |
|
./pkg/thsice/thsice_extend.F |
10 |
THSICE_EXTEND |
I esurp, Tf, |
|
./pkg/thsice/thsice_extend.F |
47 |
THSICE_EXTEND |
_RL Tf |
|
./pkg/thsice/thsice_extend.F |
85 |
THSICE_EXTEND |
& + cpice *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
|
./pkg/thsice/thsice_extend.F |
86 |
THSICE_EXTEND |
qicen(2)= -cpice *Tf + Lfresh |
|
./pkg/thsice/thsice_extend.F |
99 |
THSICE_EXTEND |
sst=Tf |