FWsublim (I,J) = 0. _d 0
O FWsublim,
FWsublim(I,J) = F_lh(I,J)/lhSublim
& FWsublim(I,J),
& FWsublim(I,J)*SEAICE_deltaTtherm/SEAICE_rhoICE
_RL FWsublim (1:sNx,1:sNy)