Symbol Description Uses
cpice specific heat of fresh ice (J/kg/K) 21


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 152 THSICE_SOLVE4TEMP 
      a1 = cpice
./pkg/thsice/thsice_solve4temp.F 153 THSICE_SOLVE4TEMP 
      b1 = qicen(1) + (cpwater-cpice )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 156 THSICE_SOLVE4TEMP 
      Tice(2) = (Lfresh-qicen(2)) / cpice
./pkg/thsice/thsice_solve4temp.F 166 THSICE_SOLVE4TEMP 
      a10 = rhoi*cpice *hi/(2. _d 0*dt) +
./pkg/thsice/thsice_solve4temp.F 167 THSICE_SOLVE4TEMP 
     &      k32 * (4. _d 0*dt*k32 + rhoi*cpice *hi)
./pkg/thsice/thsice_solve4temp.F 168 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpice *hi)
./pkg/thsice/thsice_solve4temp.F 170 THSICE_SOLVE4TEMP 
     &      (rhoi*cpice*Tice(1)+rhoi*Lfresh*Tmlt1/Tice(1))
./pkg/thsice/thsice_solve4temp.F 172 THSICE_SOLVE4TEMP 
     &      - k32 * (4. _d 0*dt*k32*Tf+rhoi*cpice *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 173 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpice *hi) - fswint
./pkg/thsice/thsice_solve4temp.F 275 THSICE_SOLVE4TEMP 
     &        + rhoi*cpice *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 276 THSICE_SOLVE4TEMP 
     &         /(6. _d 0*dt*k32 + rhoi*cpice *hi)
./pkg/thsice/thsice_solve4temp.F 307 THSICE_SOLVE4TEMP 
      qicen(1) = -cpwater*Tmlt1 + cpice *(Tmlt1-Tice(1)) +
./pkg/thsice/thsice_solve4temp.F 309 THSICE_SOLVE4TEMP 
      qicen(2) = -cpice *Tice(2) + Lfresh
./pkg/thsice/THSICE_PARAMS.h 70 NO PROCEDURE 
     &  cpice, cpwater,
./pkg/thsice/THSICE_PARAMS.h 87 NO PROCEDURE 
      _RL  cpice
./pkg/thsice/thsice_calc_thickn.F 271 THSICE_CALC_THICKN 
         qbot =  -cpice *Tf + Lfresh
./pkg/thsice/thsice_readparms.F 202 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: cpice   =',cpice
./pkg/thsice/thsice_readparms.F 49 THSICE_READPARMS 
     &  cpice, cpwater,
./pkg/thsice/thsice_readparms.F 89 THSICE_READPARMS 
      cpice    = 2106. _d 0
./pkg/thsice/thsice_extend.F 85 THSICE_EXTEND 
     &             + cpice *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf)
./pkg/thsice/thsice_extend.F 86 THSICE_EXTEND 
          qicen(2)= -cpice *Tf + Lfresh