Symbol Description Uses
Tice internal ice temperatures 40


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 12 THSICE_SOLVE4TEMP 
     O                     Tice, sHeating, flxCnB,
./pkg/thsice/thsice_solve4temp.F 155 THSICE_SOLVE4TEMP 
      Tice(1) = 0.5 _d 0 *(-b1 - sqrt(b1*b1-4. _d 0*a1*c1))/a1
./pkg/thsice/thsice_solve4temp.F 156 THSICE_SOLVE4TEMP 
      Tice(2) = (Lfresh-qicen(2)) / cpice
./pkg/thsice/thsice_solve4temp.F 158 THSICE_SOLVE4TEMP 
      if (Tice(1).gt.0. _d 0 .or. Tice(2).gt.0. _d 0) then
./pkg/thsice/thsice_solve4temp.F 159 THSICE_SOLVE4TEMP 
          write (6,*) 'BBerr Tice(1) > 0 = ',Tice(1)
./pkg/thsice/thsice_solve4temp.F 160 THSICE_SOLVE4TEMP 
          write (6,*) 'BBerr Tice(2) > 0 = ',Tice(2)
./pkg/thsice/thsice_solve4temp.F 162 THSICE_SOLVE4TEMP 
      IF (dBug) WRITE(6,1010) 'ThSI_SOLVE4T: k, Ts, Tice=',0,Tsf,Tice
./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 211 THSICE_SOLVE4TEMP 
         Tice(1) = -(b1 + sqrt(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1)
./pkg/thsice/thsice_solve4temp.F 212 THSICE_SOLVE4TEMP 
         dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 216 THSICE_SOLVE4TEMP 
     &                                          k,Tsf,Tice(1),dTsf
./pkg/thsice/thsice_solve4temp.F 219 THSICE_SOLVE4TEMP 
            Tice(1) = (-b1 - sqrt(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1)
./pkg/thsice/thsice_solve4temp.F 249 THSICE_SOLVE4TEMP 
     &                                            k,Tsf,Tice(1),dTsf
./pkg/thsice/thsice_solve4temp.F 274 THSICE_SOLVE4TEMP 
      Tice(2) = (2. _d 0*dt*k32*(Tice(1)+2. _d 0*Tf)
./pkg/thsice/thsice_solve4temp.F 275 THSICE_SOLVE4TEMP 
     &        + rhoi*cpice *hi*Tice(2))
./pkg/thsice/thsice_solve4temp.F 277 THSICE_SOLVE4TEMP 
      IF (dBug) WRITE(6,1010) 'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf,Tice
./pkg/thsice/thsice_solve4temp.F 282 THSICE_SOLVE4TEMP 
      fct    = k12*(Tsf-Tice(1))
./pkg/thsice/thsice_solve4temp.F 283 THSICE_SOLVE4TEMP 
      flxCnB = 4. _d 0*kice *(Tice(2)-Tf)/hi
./pkg/thsice/thsice_solve4temp.F 307 THSICE_SOLVE4TEMP 
      qicen(1) = -cpwater*Tmlt1 + cpice *(Tmlt1-Tice(1)) +
./pkg/thsice/thsice_solve4temp.F 308 THSICE_SOLVE4TEMP 
     &              Lfresh*(1. _d 0-Tmlt1/Tice(1))
./pkg/thsice/thsice_solve4temp.F 309 THSICE_SOLVE4TEMP 
      qicen(2) = -cpice *Tice(2) + Lfresh
./pkg/thsice/thsice_solve4temp.F 314 THSICE_SOLVE4TEMP 
      if (Tice(1) .ge. Tmlt1) then
./pkg/thsice/thsice_solve4temp.F 316 THSICE_SOLVE4TEMP 
     &   'BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,Tice(1),Tmlt1
./pkg/thsice/thsice_solve4temp.F 318 THSICE_SOLVE4TEMP 
      if (Tice(2) .ge. 0. _d 0) then
./pkg/thsice/thsice_solve4temp.F 320 THSICE_SOLVE4TEMP 
     &   'BBerr - Bug: IceT(2) > 0',i,j,bi,bj,Tice(2)
./pkg/thsice/thsice_solve4temp.F 62 THSICE_SOLVE4TEMP 
      _RL Tice (nlyr)
./pkg/thsice/thsice_impl_temp.F 105 THSICE_IMPL_TEMP 
     O          Tice, sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj),
./pkg/thsice/thsice_impl_temp.F 112 THSICE_IMPL_TEMP 
          Tice1(i,j,bi,bj)=Tice(1)
./pkg/thsice/thsice_impl_temp.F 113 THSICE_IMPL_TEMP 
          Tice2(i,j,bi,bj)=Tice(2)
./pkg/thsice/thsice_impl_temp.F 119 THSICE_IMPL_TEMP 
     &                              Tsf, Tice, dTsurf(i,j)
./pkg/thsice/thsice_impl_temp.F 66 THSICE_IMPL_TEMP 
      _RL hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr)
./pkg/thsice/thsice_step_fwd.F 138 THSICE_STEP_FWD 
     O          Tice, sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 149 THSICE_STEP_FWD 
          Tice1(i,j,bi,bj)=Tice(1)
./pkg/thsice/thsice_step_fwd.F 150 THSICE_STEP_FWD 
          Tice2(i,j,bi,bj)=Tice(2)
./pkg/thsice/thsice_step_fwd.F 156 THSICE_STEP_FWD 
     &                              Tsf, Tice, frzmltMxL
./pkg/thsice/thsice_step_fwd.F 89 THSICE_STEP_FWD 
      _RL compact, hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr)