#library(fs)
source ('/storage/Satellite/GOES-16/download_CLASS_AOD_ADP.R')
#url <- "ftp://ftp.avl.class.noaa.gov/sub/susan.m.one1/53704/"
url <- "ftp://ftp-order.class.noaa.gov/sub/susan.m.one1/53704/"
download_path <- "/storage/Satellite/GOES-16/"
download_CLASS_AOD_ADP(url, download_path)