Changeset 72

Timestamp:

03/03/08 18:23:38 (16 years ago)

Author:

kolasinski

Message:

change str_sep to strsplit in search_time_file

File:

• trunk/procs/search_time_file.pro (modified) (4 diffs)

trunk/procs/search_time_file.pro

@@ -27 +27 @@
 
          ; local or remote DB
-         machine = (str_sep(ncdf_db, ':'))[0]
+         machine = (strsplit(ncdf_db, ':', /EXTRACT))[0]
          CASE machine OF
             'local': BEGIN
-                                ; field name added (1 variable)
+               ; field name added (1 variable)
                variab = '_'+cmd.var
-;               spawn, 'ls '+(str_sep(ncdf_db, ':'))[1]+file_name_root+'*'+suffix+variab+'.nc', line
-                                ; global name (all variables)
-;               spawn, 'dir '+(str_sep(ncdf_db,
-;               ':'))[1]+file_name_root+'*'+suffix+'.nc', line2
-;               print, 'ls
-;               '+(str_sep(ncdf_db,':'))[1]+file_name_root+'*'+suffix+'.nc'
-               print, '    Looking for '+(str_sep(ncdf_db, ':'))[1]+file_name_root+'*'+suffix+'.nc ...'
-               spawn, 'ls '+(str_sep(ncdf_db, ':'))[1]+file_name_root+'*'+suffix+'.nc', line2
-;               line = [line, line2]
+               print, '    Looking for '+(strsplit(ncdf_db, ':', /EXTRACT))[1]+file_name_root+'*'+suffix+'.nc ...'
+               spawn, 'ls '+(strsplit(ncdf_db, ':', /EXTRACT))[1]+file_name_root+'*'+suffix+'.nc', line2
                line = line2
             END
@@ -48 +41 @@
                IF nrem EQ 1 THEN BEGIN
                   rem_line = strcompress(strtrim(rem_line[0], 2))
-                  argvar = str_sep(rem_line, ' ')
+                  argvar = strsplit(rem_line, ' ', /EXTRACT)
                   remote_name = argvar[1]
                   remote_login = argvar[2]
                   print, '    rsh '+remote_login+'@'+remote_name+' ls '+$
-                   (str_sep(ncdf_db, ':'))[1]+file_name_root+'*'+suffix+'.nc'
+                   (strsplit(ncdf_db, ':', /EXTRACT))[1]+file_name_root+'*'+suffix+'.nc'
                   print, ''
                   spawn, 'rsh '+remote_login+'@'+remote_name+' ls '+$
-                   (str_sep(ncdf_db, ':'))[1]+file_name_root+'*'+suffix+'.nc', line
+                   (strsplit(ncdf_db, ':', /EXTRACT))[1]+file_name_root+'*'+suffix+'.nc', line
                ENDIF ELSE print, ' *** search_file : '+machine+' unknown in config/remote'
             END
@@ -73 +66 @@
             ; remove root directory if exists
             IF strpos(file, '/') NE -1 THEN BEGIN
-               argvar = str_sep(file, '/')
+               argvar = strsplit(file, '/', /EXTRACT)
                n = n_elements(argvar)
                file = argvar[n-1]
@@ -81 +74 @@
                stop
             ENDELSE  
-            argvar = str_sep(file, '_')
+            argvar = strsplit(file, '_', /EXTRACT)
             dat1 = argvar(2)
             dat2 = argvar(3)