&Const Ncase = 5 Ntc_var = 4 / &Arrays Yr01 = 1980, 1980, 1983, 1983, 1983, Yr02 = 2010, 2010, 2009, 2009, 2002, tc_varn = "tc3m", "tc6m", "ntc3m", "ntc6m", ! Ntc_var x_varn = "cli", "eof", "cfs", "eof_cfs", "cfs_new", ! =Ncase: Clim, eof_Clim, cfs_mean, cfs_eof_82-09, cfs_eof_83-02_03-09 Dir_Inp = "/home/tanpv/Progs/TCs/FCS_Aug/Out_train_cli/", ! case=1: Clim_idx "/home/tanpv/Progs/TCs/FCS_Aug/Out_train_eof_cli/", ! case=2: Clim_eof "/home/tanpv/Progs/TCs/FCS_Aug/Out_train_cfs/", ! case=3: CFS "/home/tanpv/Progs/TCs/FCS_Aug/Out_train_eof_cfs/", ! case=4: CFS_eof "/home/tanpv/Progs/TCs/FCS_Aug/Out_train_eof_cfs_new/" ! case=5: CFS_eof in the same period (1982-2009) /