[1] "file C:1.DBL.nc has 2 dimensions:"
  [1] "lat   Size: 1"
  [1] "lon   Size: 1"
  [1] "------------------------"
  [1] "file C:\Users\data.nc has 3 variables:"
  [1] "short So[lon,lat]
  [1] "short il[lon,lat]
  [1] short fg[lon,lat]

a<-list.files("C:\Users\Data", "*.nc", full.names = TRUE)
    for(i in 1:length(a)){
    f <- open.ncdf(a[i])
    A = get.var.ncdf(nc=f,varid="So",verbose=TRUE)
    B <- get.var.ncdf(nc=f,varid="il")
    C <- get.var.ncdf(nc=f,varid="fg")
    write.table(t(rbind(A,B,C)),file="output-all.txt")}

"A" "B" "C"
            "1" 500 200 300

"A" "B" "C"
            "1" 500 200 300
            "2" 500 200 300
            "3" 500 200 300
            "4" 500 200 300