Symbol Description Uses
cpwater specific heat of water (J/kg/K) 11


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 153 THSICE_SOLVE4TEMP 
      b1 = qicen(1) + (cpwater-cpice )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 307 THSICE_SOLVE4TEMP 
      qicen(1) = -cpwater*Tmlt1 + cpice *(Tmlt1-Tice(1)) +
./pkg/thsice/THSICE_PARAMS.h 70 NO PROCEDURE 
     &  cpice, cpwater,
./pkg/thsice/THSICE_PARAMS.h 88 NO PROCEDURE 
      _RL  cpwater
./pkg/thsice/thsice_calc_thickn.F 155 THSICE_CALC_THICKN 
         cpchr =cpwater*rhosw*transcoef
./pkg/thsice/thsice_readparms.F 203 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: cpwater =',cpwater
./pkg/thsice/thsice_readparms.F 49 THSICE_READPARMS 
     &  cpice, cpwater,
./pkg/thsice/thsice_readparms.F 90 THSICE_READPARMS 
      cpwater  = HeatCapacity_Cp
./pkg/thsice/thsice_extend.F 84 THSICE_EXTEND 
          qicen(1)= -cpwater*Tmlt1
./pkg/thsice/thsice_step_fwd.F 189 THSICE_STEP_FWD 
        cphm    = cpwater*rhosw*hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 61 THSICE_SLAB_OCEAN 
       heatFac = ocean_deltaT/(cpwater*rhosw)