Symbol Description Uses
cpIce specific heat of fresh ice [J/kg/K] 23


File Line number Procedure Code
./pkg/thsice/THSICE_PARAMS.h 100 NO PROCEDURE 
      _RL  cpIce
./pkg/thsice/THSICE_PARAMS.h 81 NO PROCEDURE 
     &  cpIce, cpWater,
./pkg/thsice/thsice_calc_thickn.F 520 THSICE_CALC_THICKN 
         qbot =  -cpIce *Tf + Lfresh
./pkg/thsice/thsice_extend.F 172 THSICE_EXTEND 
     &             + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf)
./pkg/thsice/thsice_extend.F 173 THSICE_EXTEND 
          qicen(2)= -cpIce *Tf + Lfresh
./pkg/thsice/thsice_ini_vars.F 151 THSICE_INI_VARS 
     &             + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf)
./pkg/thsice/thsice_ini_vars.F 152 THSICE_INI_VARS 
              Qice2(i,j,bi,bj) = -cpIce *Tf + Lfresh
./pkg/thsice/thsice_readparms.F 261 THSICE_READPARMS 
      WRITE(iUnit,*) 'ThSI: cpIce     =',cpIce
./pkg/thsice/thsice_readparms.F 50 THSICE_READPARMS 
     &  cpIce, cpWater,
./pkg/thsice/thsice_readparms.F 91 THSICE_READPARMS 
      cpIce    = 2106. _d 0
./pkg/thsice/thsice_solve4temp.F 265 THSICE_SOLVE4TEMP 
      a1 = cpIce
./pkg/thsice/thsice_solve4temp.F 266 THSICE_SOLVE4TEMP 
      b1 = qicen(1) + (cpWater-cpIce )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 269 THSICE_SOLVE4TEMP 
      Tice(2) = (Lfresh-qicen(2)) / cpIce
./pkg/thsice/thsice_solve4temp.F 290 THSICE_SOLVE4TEMP 
      a10 = rhoi*cpIce *hi/(2. _d 0*dt) +
./pkg/thsice/thsice_solve4temp.F 291 THSICE_SOLVE4TEMP 
     &      k32 * (4. _d 0*dt*k32 + rhoi*cpIce *hi)
./pkg/thsice/thsice_solve4temp.F 292 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpIce *hi)
./pkg/thsice/thsice_solve4temp.F 294 THSICE_SOLVE4TEMP 
     &      (rhoi*cpIce*Tice(1)+rhoi*Lfresh*Tmlt1/Tice(1))
./pkg/thsice/thsice_solve4temp.F 296 THSICE_SOLVE4TEMP 
     &      - k32 * (4. _d 0*dt*k32*Tf+rhoi*cpIce *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 297 THSICE_SOLVE4TEMP 
     &       / (6. _d 0*dt*k32 + rhoi*cpIce *hi) - fswint
./pkg/thsice/thsice_solve4temp.F 440 THSICE_SOLVE4TEMP 
     &        + rhoi*cpIce *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 441 THSICE_SOLVE4TEMP 
     &         /(6. _d 0*dt*k32 + rhoi*cpIce *hi)
./pkg/thsice/thsice_solve4temp.F 477 THSICE_SOLVE4TEMP 
      qicen(1) = -cpWater*Tmlt1 + cpIce *(Tmlt1-Tice(1))
./pkg/thsice/thsice_solve4temp.F 479 THSICE_SOLVE4TEMP 
      qicen(2) = -cpIce *Tice(2) + Lfresh