| 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 | 370 | THSICE_CALC_THICKN |
cpchr =cpWater*rhosw*bMeltCoef |
| ./pkg/thsice/thsice_extend.F | 171 | THSICE_EXTEND |
qicen(1)= -cpWater*Tmlt1 |
| ./pkg/thsice/thsice_ini_vars.F | 150 | THSICE_INI_VARS |
Qice1(i,j,bi,bj) = -cpWater*Tmlt1 |
| ./pkg/thsice/thsice_readparms.F | 262 | THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: cpWater =',cpWater |
| ./pkg/thsice/thsice_readparms.F | 50 | THSICE_READPARMS |
& cpIce, cpWater, |
| ./pkg/thsice/thsice_readparms.F | 92 | THSICE_READPARMS |
cpWater = HeatCapacity_Cp |
| ./pkg/thsice/thsice_solve4temp.F | 266 | THSICE_SOLVE4TEMP |
b1 = qicen(1) + (cpWater-cpIce )*Tmlt1 - Lfresh |
| ./pkg/thsice/thsice_solve4temp.F | 477 | THSICE_SOLVE4TEMP |
qicen(1) = -cpWater*Tmlt1 + cpIce *(Tmlt1-Tice(1)) |