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


File Line number Procedure Code
./pkg/thsice/THSICE_PARAMS.h 71 NO PROCEDURE 
     &  cpice, cpwater,
./pkg/thsice/THSICE_PARAMS.h 90 NO PROCEDURE 
      _RL  cpwater
./pkg/thsice/thsice_calc_thickn.F 220 THSICE_CALC_THICKN 
         cpchr =cpwater*rhosw*transcoef
./pkg/thsice/thsice_extend.F 136 THSICE_EXTEND 
          qicen(1)= -cpwater*Tmlt1
./pkg/thsice/thsice_slab_ocean.F 65 THSICE_SLAB_OCEAN 
       heatFac = ocean_deltaT/(cpwater*rhosw)
./pkg/thsice/thsice_solve4temp.F 207 THSICE_SOLVE4TEMP 
      b1 = qicen(1) + (cpwater-cpice )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 396 THSICE_SOLVE4TEMP 
      qicen(1) = -cpwater*Tmlt1 + cpice *(Tmlt1-Tice(1))
./pkg/thsice/thsice_step_fwd.F 160 THSICE_STEP_FWD 
        cphm    = cpwater*rhosw*hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_readparms.F 222 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: cpwater =',cpwater
./pkg/thsice/thsice_readparms.F 49 THSICE_READPARMS 
     &  cpice, cpwater,
./pkg/thsice/thsice_readparms.F 91 THSICE_READPARMS 
      cpwater  = HeatCapacity_Cp