| Symbol | Description | Uses |
| flx0 | net surf heat flux, from Atmos. to sea-ice (W m-2) | 12 |
| File | Line number | Procedure | Code |
| ./pkg/thsice/thsice_solve4temp.F | 163 | THSICE_SOLVE4TEMP |
_RL flx0 |
| ./pkg/thsice/thsice_solve4temp.F | 354 | THSICE_SOLVE4TEMP |
flx0 = fswdn + flxExceptSw |
| ./pkg/thsice/thsice_solve4temp.F | 357 | THSICE_SOLVE4TEMP |
& 'ThSI_SOLVE4T: flx0,df0dT,k12,D=', flx0,df0dT,k12,k12-df0dT |
| ./pkg/thsice/thsice_solve4temp.F | 368 | THSICE_SOLVE4TEMP |
b1 = b10 - k12*(flx0-df0dT*Tsf) / (k12-df0dT) |
| ./pkg/thsice/thsice_solve4temp.F | 370 | THSICE_SOLVE4TEMP |
dTsf = (flx0 + k12*(Tice(1)-Tsf)) / (k12-df0dT) |
| ./pkg/thsice/thsice_solve4temp.F | 405 | THSICE_SOLVE4TEMP |
flx0 = fswdn + flxExceptSw |
| ./pkg/thsice/thsice_solve4temp.F | 425 | THSICE_SOLVE4TEMP |
WRITE (6,*) 'BB: not converge: flx0,dfdT=',flx0,df0dT |
| ./pkg/thsice/thsice_solve4temp.F | 451 | THSICE_SOLVE4TEMP |
flx0 = flx0 + df0dT*dTsf |
| ./pkg/thsice/thsice_solve4temp.F | 464 | THSICE_SOLVE4TEMP |
sHeat(i,j) = flx0 - fct |
| ./pkg/thsice/thsice_solve4temp.F | 472 | THSICE_SOLVE4TEMP |
& flx0,fct,flx0-fct,flxCnB(i,j) |