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 386 THSICE_CALC_THICKN 
          cpchr =cpWater*rhosw*bMeltCoef
./pkg/thsice/thsice_extend.F 177 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 281 THSICE_SOLVE4TEMP 
          b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 562 THSICE_SOLVE4TEMP 
          qIc1(i,j) = -cpWater*Tmlt1 + cpIce *(Tmlt1-tIc1(i,j))