Update VARS_MAIN.f90

Update, work in progress