| 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 |
|---|
