_RL stefanBoltzmann
PARAMETER ( stefanBoltzmann = 5.670 _d -8 )
& ocean_emissivity*stefanBoltzmann*TsfSq*TsfSq
& ocean_emissivity*stefanBoltzmann*
SEAICE_boltzmann = stefanBoltzmann
flwup = emiss*stefanBoltzmann*Ts2*Ts2
dflwupdT = emiss*stefanBoltzmann*Ts2*Tsf * 4. _d 0