Active layer collapse correction to s_sedzlj.f90