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 
               CASE cmd.grid OF
                  'T': 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
                  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, '=f(next)') NE -1 THEN BEGIN
            idx = strpos(cmd.var, '=f(')
            var1 = strmid(cmd.var, 0, idx)
            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'