File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_extend.F |
165 |
THSICE_EXTEND |
Tf = tFrz(i,j) |
./pkg/thsice/thsice_extend.F |
178 |
THSICE_EXTEND |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
./pkg/thsice/thsice_extend.F |
179 |
THSICE_EXTEND |
qicen(2)= -cpIce *Tf + Lfresh |
./pkg/thsice/thsice_extend.F |
96 |
THSICE_EXTEND |
_RL Tf |
./pkg/thsice/thsice_ini_vars.F |
144 |
THSICE_INI_VARS |
Tf = -1.70 _d 0 |
./pkg/thsice/thsice_ini_vars.F |
151 |
THSICE_INI_VARS |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
./pkg/thsice/thsice_ini_vars.F |
152 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = -cpIce *Tf + Lfresh |
./pkg/thsice/thsice_ini_vars.F |
50 |
THSICE_INI_VARS |
_RL Tf |