PHI_GL_STREAMICE = 0.0
PHI_GL_STREAMICE = 1.0
PHI_GL_STREAMICE = 0.5 * (1-TMP1)
_RL FUNCTION PHI_GL_STREAMICE (X, W)
_RL PHI_GL_STREAMICE
& PHI_GL_STREAMICE (