RESID = ETA_GL_STREAMICEv
RESID = ETA_GL_STREAMICE (
RESID = RESID - S(i,j,bi,bj)
Htmp = HTMP-RESID/FP
RESID=1. _d 0
IF ((RESID .gt. .005) .and.