library(ncdf4); library(ggplot2)
library(reshape2); library(ggpubr)
clead <- c("01","03","06") # c("04") list of leastimes
model <- "clWRF" # "RegCM"
c.mem <- c("m4")
var <- "t2"
xmins <- c(10,10,10,10,10,10,20) 
xmaxs <- c(35,35,35,35,35,35,32)
xdels <- c(5,5,5,5,5,5,4)
idir <- "/home/tanpv/Data/562_VNU/0.25_VN/Dat_Reg/"
odir <- "/home/tanpv/Progs/562_VNU/PDF/"