& useMaykutSatVapPoly, SEAICE_mcPheeStepFunc,
& (.NOT.SEAICE_mcPheeStepFunc) ) THEN
& (SEAICE_mcPheeStepFunc) ) THEN
& SEAICE_mcPheeStepFunc, SEAICE_gamma_t, SEAICE_gamma_t_frz,
SEAICE_mcPheeStepFunc = .FALSE.
CALL WRITE_0D_L ( SEAICE_mcPheeStepFunc, INDEX_NONE,