_RL SEAICE_boltzmann
& SEAICE_boltzmann,
D3=SEAICE_emissivity*SEAICE_boltzmann
SEAICE_boltzmann = stefanBoltzmann
SEAICE_boltzmann = 5.670 _d -08
D3(I,J)=SEAICE_snow_emiss*SEAICE_boltzmann
D3(I,J)=SEAICE_ice_emiss*SEAICE_boltzmann