Posição de Eq. Corregida. Inicialização

Inicialização
fe_pred(:) = 0.d0
uepred(:) = 0.d0
vepred(:) = 0.d0