File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_extend.F |
174 |
THSICE_EXTEND |
Tf = tFrz(i,j) |
./pkg/thsice/thsice_extend.F |
187 |
THSICE_EXTEND |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
./pkg/thsice/thsice_extend.F |
188 |
THSICE_EXTEND |
qicen(2)= -cpIce *Tf + Lfresh |
./pkg/thsice/thsice_extend.F |
96 |
THSICE_EXTEND |
_RL Tf |
./pkg/thsice/thsice_ini_vars.F |
146 |
THSICE_INI_VARS |
Tf = -1.70 _d 0 |
./pkg/thsice/thsice_ini_vars.F |
153 |
THSICE_INI_VARS |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
./pkg/thsice/thsice_ini_vars.F |
154 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = -cpIce *Tf + Lfresh |
./pkg/thsice/thsice_ini_vars.F |
49 |
THSICE_INI_VARS |
_RL Tf |