Changeset 16

Timestamp:

11/27/07 18:43:16 (16 years ago)

Author:

kolasinski

Message:

Add some debug_w in def_file_name

File:

• trunk/procs/def_file_name.pro (modified) (3 diffs)

trunk/procs/def_file_name.pro

@@ -6 +6 @@
 @common
 @com_eg
+   IF debug_w THEN print, ' '
+   IF debug_w THEN print, '  ENTER def_file_name...'
 
 ; define date1 and date2
@@ -18 +20 @@
    f_suffix = suffix
 
-   IF debug_w THEN print, ' suffix before serch_time_file', suffix
+   IF debug_w THEN print, '   suffix before search_time_file = ', suffix
 
    CASE strmid(cmd.plt, 0, 2) OF
@@ -37 +39 @@
       END  
    ENDCASE 
-   IF debug_w THEN print, ' suffix after search_time_file', suffix
+   IF debug_w THEN print, ' suffix after search_time_file = ', suffix
    
    file_name = cmd.exp+'_'+timavef+'_'+date1+'_'+date2+suffix+'.nc'
    base_file_name = cmd.exp+'_'+timavef+'_'+date1+'_'+date2
    
-   IF debug_w THEN print,  ' vargrid : ',  vargrid
-   IF debug_w THEN print,  ' file_name in def_file_name ',file_name 
+   IF debug_w THEN print,  ' vargrid = ',  vargrid
+   IF debug_w THEN print,  ' file_name in def_file_name = ',file_name 
+   IF debug_w THEN print, '  ... EXIT def_file_name'
 END