Corrections done by A. Jornet. These errors crashed the model only in coupled mode with serveral treadds OMP.