_RL SEAICE_JFNKphi, SEAICE_JFNKalpha
& SEAICE_JFNKphi, SEAICE_JFNKalpha,
& *( JFNKresidual/JFNKresidualKm1 )**SEAICE_JFNKalpha
& SEAICE_JFNKphi, SEAICE_JFNKalpha, SEAICEuseIMEX, SEAICEuseBDF2,
SEAICE_JFNKalpha = 1. _d 0
CALL WRITE_0D_RL( SEAICE_JFNKalpha, INDEX_NONE,