library(ncdf4); library(ggplot2)
library(reshape2); library(ggpubr)
clead <- c("01","03","05") # c("04") list of leastimes
model <- "clWRF" # "RegCM"
c.mem <- c("m2","m4")
idir <- "/home/tanpv/Data/562_VNU/0.25_VN/Dat_Reg/"
odir <- "/home/tanpv/Progs/562_VNU/PDF/"
for (lead in c(clead)){
    ifile <- paste("t2_",model,"_lead_",lead,sep="")