| Symbol | Description | Uses |
| cpWater | specific heat of water [J/kg/K] | 10 |
| File | Line number | Procedure | Code |
| ./pkg/thsice/THSICE_PARAMS.h | 101 | NO PROCEDURE |
_RL cpWater |
| ./pkg/thsice/THSICE_PARAMS.h | 81 | NO PROCEDURE |
& cpIce, cpWater, |
| ./pkg/thsice/thsice_calc_thickn.F | 387 | THSICE_CALC_THICKN |
cpchr =cpWater*rhosw*bMeltCoef |
| ./pkg/thsice/thsice_extend.F | 186 | THSICE_EXTEND |
qicen(1)= -cpWater*Tmlt1 |
| ./pkg/thsice/thsice_ini_vars.F | 152 | THSICE_INI_VARS |
Qice1(i,j,bi,bj) = -cpWater*Tmlt1 |
| ./pkg/thsice/thsice_readparms.F | 113 | THSICE_READPARMS |
cpWater = HeatCapacity_Cp |
| ./pkg/thsice/thsice_readparms.F | 297 | THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'cpWater =', cpWater |
| ./pkg/thsice/thsice_readparms.F | 53 | THSICE_READPARMS |
& cpIce, cpWater, |
| ./pkg/thsice/thsice_solve4temp.F | 300 | THSICE_SOLVE4TEMP |
b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh |
| ./pkg/thsice/thsice_solve4temp.F | 616 | THSICE_SOLVE4TEMP |
qIc1(i,j) = -cpWater*Tmlt1 + cpIce *(Tmlt1-tIc1(i,j)) |