IF debug_w THEN print, '   ENTER def_file_suff_var...'
      IF debug_w THEN print, '   cmd=', cmd
      macro_base_fld = cmd.var
      IF strpos(cmd.var, '@@') NE -1 THEN BEGIN 
         CASE cmd.var OF
            '@@voenergy': BEGIN 
               IF debug_w THEN print, '   cmd.grid in def_file_suff_var = ', cmd.grid
               CASE cmd.grid OF
                  'T': file_suff_var = '_votemper'
                  'T05': file_suff_var = '_votemper'
                 ELSE: file_suff_var = '_so'
               ENDCASE 
            END 
            ELSE: BEGIN
               IF strpos(cmd.var, '@@') NE -1 THEN BEGIN 
                  @def_macro_base_fld
                  IF strpos(macro_base_fld, ',') NE -1 THEN macro_base_fld = (strsplit(macro_base_fld, ',', /EXTRACT))[0]
                  file_suff_var = '_'+macro_base_fld
               ENDIF ELSE BEGIN 
                  print, ' Define base field for grid for macro in def_grid'
                  stop
               ENDELSE 
            END 
         ENDCASE 
      ENDIF ELSE BEGIN
         IF strpos(cmd.var, '(next)') NE -1 THEN BEGIN
            idx = strpos(cmd.var, '=')
            var1 = strmid(cmd.var, 0, idx)
            sl_pos = strpos(cmd.var, '/')
            IF sl_pos NE -1 THEN var1 = strmid(cmd.var, 0, sl_pos)
            file_suff_var = '_'+var1
            ENDIF ELSE file_suff_var = '_'+cmd.var
      ENDELSE 
      IF debug_w THEN print, '   file_suff_var = ', file_suff_var
      IF debug_w THEN print, '   ...EXIT def_file_suff_var'