1 | PRO def_file_name, cmd, ncdf_db, file_name, delta_t1 |
---|
2 | |
---|
3 | ; define file name following |
---|
4 | ; <expid>_<timeave>_<date1>_<date2>[_<spec>]_<grid> convention |
---|
5 | |
---|
6 | @common |
---|
7 | @com_eg |
---|
8 | |
---|
9 | ; define date1 and date2 |
---|
10 | |
---|
11 | timavef = cmd.timave |
---|
12 | date1 = cmd.date1 |
---|
13 | |
---|
14 | suffix = '_'+mesh_type2+suff_domain+file_suff_var |
---|
15 | |
---|
16 | base_suffix = '_'+mesh_type2 |
---|
17 | |
---|
18 | f_suffix = suffix |
---|
19 | |
---|
20 | IF debug_w THEN print, ' suffix before serch_time_file', suffix |
---|
21 | |
---|
22 | CASE strmid(cmd.plt, 0, 2) OF |
---|
23 | 'xt': search_time_file, cmd, ncdf_db, suffix, date1, date2, delta_t1, timavef |
---|
24 | 'yt': search_time_file, cmd, ncdf_db, suffix, date1, date2, delta_t1, timavef |
---|
25 | 'zt': search_time_file, cmd, ncdf_db, suffix, date1, date2, delta_t1, timavef |
---|
26 | 't_': search_time_file, cmd, ncdf_db, suffix, date1, date2, delta_t1, timavef |
---|
27 | ELSE: BEGIN |
---|
28 | CASE strmid(cmd.plt, 0, 3) OF |
---|
29 | 'xyt': search_time_file, cmd, ncdf_db, suffix, date1, date2, delta_t1, timavef |
---|
30 | ELSE: BEGIN |
---|
31 | cmdspec_b = cmd.spec |
---|
32 | cmd.spec = cmd.date1 |
---|
33 | search_time_file, cmd, ncdf_db, suffix, date1, date2, delta_t1, timavef |
---|
34 | cmd.spec = cmdspec_b |
---|
35 | END |
---|
36 | ENDCASE |
---|
37 | END |
---|
38 | ENDCASE |
---|
39 | IF debug_w THEN print, ' suffix after search_time_file', suffix |
---|
40 | |
---|
41 | file_name = cmd.exp+'_'+timavef+'_'+date1+'_'+date2+suffix+'.nc' |
---|
42 | base_file_name = cmd.exp+'_'+timavef+'_'+date1+'_'+date2 |
---|
43 | |
---|
44 | IF debug_w THEN print, ' vargrid : ', vargrid |
---|
45 | IF debug_w THEN print, ' file_name in def_file_name ',file_name |
---|
46 | END |
---|