resU <- list(SOC=data.frame(), forcings=data.frame())

for (i in list.files('./inputs')) {
    load(file.path('.', 'inputs',i))
    resU$SOC <- rbind(resU$SOC, res$SOC);
    resU$forcings <- rbind(resU$forcings, res$forcings)
    rm(res)
    }

res <-resU

save(res, file = 'csopraRes.Rdata')