Symbol Description Uses
dTsf surf. temp adjusment: Ts^n+1 - Ts^n 13


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 13 THSICE_SOLVE4TEMP 
     O                     dTsf, flxAtm, evpAtm,
./pkg/thsice/thsice_solve4temp.F 212 THSICE_SOLVE4TEMP 
         dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 213 THSICE_SOLVE4TEMP 
         Tsf = Tsf + dTsf
./pkg/thsice/thsice_solve4temp.F 216 THSICE_SOLVE4TEMP 
     &                                          k,Tsf,Tice(1),dTsf
./pkg/thsice/thsice_solve4temp.F 232 THSICE_SOLVE4TEMP 
            dTsf = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 235 THSICE_SOLVE4TEMP 
            dTsf = 1000.
./pkg/thsice/thsice_solve4temp.F 249 THSICE_SOLVE4TEMP 
     &                                            k,Tsf,Tice(1),dTsf
./pkg/thsice/thsice_solve4temp.F 251 THSICE_SOLVE4TEMP 
          if (abs(dTsf).lt.Terrmax) then
./pkg/thsice/thsice_solve4temp.F 254 THSICE_SOLVE4TEMP 
            write (6,*) 'BB: thermw conv err ',i,j,bi,bj,dTsf
./pkg/thsice/thsice_solve4temp.F 284 THSICE_SOLVE4TEMP 
      flx0   = flx0 + df0dT*dTsf
./pkg/thsice/thsice_solve4temp.F 288 THSICE_SOLVE4TEMP 
        evpAtm = evap + dEvdT*dTsf
./pkg/thsice/thsice_solve4temp.F 291 THSICE_SOLVE4TEMP 
        flxAtm = flxSW + flxExceptSw + df0dT*dTsf
./pkg/thsice/thsice_solve4temp.F 65 THSICE_SOLVE4TEMP 
      _RL dTsf