_RL ETA_GL_STREAMICE
ETA_GL_STREAMICE = Y0 + M1 * X
ETA_GL_STREAMICE = Y0 + M2 * X
ETA_GL_STREAMICE = Y0 +
_RL FUNCTION ETA_GL_STREAMICE (X, M1, M2, Y0, W)
& ETA_GL_STREAMICE)
RESID = ETA_GL_STREAMICEv
RESID = ETA_GL_STREAMICE (
type(active) :: ETA_GL_STREAMICE
& ETA_GL_STREAMICE (