Changeset 47
- Timestamp:
- 02/04/08 13:03:08 (16 years ago)
- Location:
- trunk/procs
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/def_file_suff_var.pro
r5 r47 11 11 END 12 12 ELSE: BEGIN 13 IF strpos 13 IF strpos(cmd.var, '@@') NE -1 THEN BEGIN 14 14 @def_macro_base_fld 15 IF strpos(macro_base_fld, ',') NE -1 THEN macro_base_fld = (strsplit(macro_base_fld, ',', /EXTRACT))[0] 15 16 file_suff_var = '_'+macro_base_fld 16 17 ENDIF ELSE BEGIN -
trunk/procs/def_macro_base_fld.pro
r8 r47 12 12 stop 13 13 END 14 ENDCASE 14 ENDCASE -
trunk/procs/macros/make_grad.pro
r7 r47 9 9 ; Find the position of the comma in the character string defined 10 10 ; between '/' in 'fld_macros.def' 11 pos_comma = strpos(macro_base_fld,',')11 ; pos_comma = strpos(macro_base_fld,',') 12 12 13 13 ; Extract the variable and the coordinate along which we want the gradients 14 var_name = strmid(macro_base_fld, 0, pos_comma) 15 var_name = strtrim(var_name, 1) 16 var_name = strcompress(var_name) 17 coord_name = strmid(macro_base_fld, pos_comma + 1, strlen(macro_base_fld) - pos_comma - 1) 18 coord_name = strtrim(coord_name, 1) 19 coord_name = strcompress(coord_name) 20 21 ; print, 'Variable and coordinate' 22 ; print, var_name,', ', strlen(var_name), ' ,', coord_name, ' ,',strlen(coord_name) 14 ;; var_name = strmid(macro_base_fld, 0, pos_comma) 15 ;; var_name = strtrim(var_name, 1) 16 ;; var_name = strcompress(var_name) 17 ;; coord_name = strmid(macro_base_fld, pos_comma + 1, strlen(macro_base_fld) - pos_comma - 1) 18 ;; coord_name = strtrim(coord_name, 1) 19 ;; coord_name = strcompress(coord_name) 20 var_name = (strsplit(macro_base_fld, ',', ESCAPE = ' ', /EXTRACT))[0] 21 coord_name = (strsplit(macro_base_fld, ',', ESCAPE = ' ', /EXTRACT))[1] 23 22 24 23 ; Read the variable in the correspondent netcdf file
Note: See TracChangeset
for help on using the changeset viewer.