Update model_CEM.f90