Symbol Description Uses
flx0 14


File Line number Procedure Code
./pkg/thsice/thsice_solve4temp.F 104 THSICE_SOLVE4TEMP 
      _RL  flx0          ! net surf heat flux, from Atmos. to sea-ice (W m-2)
./pkg/thsice/thsice_solve4temp.F 197 THSICE_SOLVE4TEMP 
         flx0 = fswdn + flxExceptSw
./pkg/thsice/thsice_solve4temp.F 199 THSICE_SOLVE4TEMP 
         flx0 = fswdn + flxExcSw(1)
./pkg/thsice/thsice_solve4temp.F 203 THSICE_SOLVE4TEMP 
     &                                     flx0,df0dT,k12,k12-df0dT
./pkg/thsice/thsice_solve4temp.F 210 THSICE_SOLVE4TEMP 
         b1 = b10 - k12*(flx0-df0dT*Tsf) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 212 THSICE_SOLVE4TEMP 
         dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT)
./pkg/thsice/thsice_solve4temp.F 231 THSICE_SOLVE4TEMP 
            flx0 = fswdn + flxExceptSw
./pkg/thsice/thsice_solve4temp.F 234 THSICE_SOLVE4TEMP 
            flx0 = fswdn + flxExcSw(0)
./pkg/thsice/thsice_solve4temp.F 256 THSICE_SOLVE4TEMP 
            write (6,*) 'BB: thermw conv err: Tsf, flx0', Tsf,flx0
./pkg/thsice/thsice_solve4temp.F 284 THSICE_SOLVE4TEMP 
      flx0   = flx0 + df0dT*dTsf
./pkg/thsice/thsice_solve4temp.F 297 THSICE_SOLVE4TEMP 
      sHeating = flx0 - fct
./pkg/thsice/thsice_solve4temp.F 303 THSICE_SOLVE4TEMP 
     &    flx0,fct,flx0-fct,flxCnB